Mendapatkan Direktory Windows

procedure Form1.Button1Click(Sender: TObject);
  var
    WinPath: array[0..MAX_PATH + 1] of char;
  begin
      GetWindowsDirectory(WinPath,MAX_PATH);
  end;