Почему у меня работает а у других нет?

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  ProcessId: integer;
  ThreadId: integer;
  HandleWindow: Integer;
  WindowName: integer;
  write: cardinal;
  buf : array[0..1023] of WideChar;
const
  WindowTitle = 'PandoraSaga';
 
  AAddress : Array[1..61] Of Int64 = ($016012F8, $016013F4, $015F35F8, $015F38C8, $015F39A8, $015F3838, $015F3564, $015F3800, $015F3D38, $015F4ABC, $015F5254, $015FA844, $015FD77C, $01647134, $015F4C24, $015F34F4, $015F4B2C, $015F4BC0, $015FF89C, $015F352C, $016470FC, $01648BE4, $0164DEBC, $0164FD8C, $01646EC8, $01647270, $016474C8, $015F5358, $015FDB1C, $098AD2FC, $015FE030, $01651508, $0164B00C, $0164B2A8, $015F4B64, $015FFC1C, $01600EB8, $01600F28, $016021C4, $0160276C, $01602C4C, $016030D4, $01603144, $016031B4, $01603224, $0160440C, $016044EC, $0160468C, $0160759C, $0164689C, $016470C4, $016473C4, $01647884, $0164792C, $0164812C, $01648244, $0164890C, $0164B214, $0164E994, $0164EEEC, $0165108C);
  AString : Array[1..61] Of String = ('Параметры', 'Профиль', 'Сохранить Логин?', 'Подключение...', 'Вход...      ', 'Вы не ввели ваш пароль.    ', 'Войти ', 'Вы не ввели Логин.  ', 'ID/Пароль не действителен. ', 'Назд', 'Назд', 'Назд', 'Назд', 'Назд', 'Подключаемся...', 'Выхд', 'Выхд', 'Выхд из игры.', 'Выхд', 'Авторы ', 'Войти', 'Войти', 'Войти', 'Войти', 'Нет перса', 'Удалить персонаж', 'Удалить персонаж', 'Создать персонажа ', 'Чел. ', 'Воин   ', 'Без наций  ', 'Астир - Тер. Кор-ва ', 'Выход ', 'Выход из акк через %d секунд.', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена');
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
MessageDlg('Возникли проблемы? --> | Обратись в тему в нашей группе --> | ВКонтакте: ', mtInformation, [mbOK],0 );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  i : Integer;
begin
  WindowName := FindWindow(nil,WindowTitle);
  If WindowName = 0 then
  begin
    MessageDlg('Запустите сначало игру а потом Русифицируйте!', mtCustom,[mbOK],0);
    WindowName := FindWindow(nil,WindowTitle);
    If WindowName = 0 then Exit;
  end;
  ThreadId := GetWindowThreadProcessId(WindowName ,@ProcessId);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
 
  For i:=1 To High(AAddress) Do
  WriteProcessMemory(HandleWindow, Ptr(AAddress[i]),
  StringToWideChar(AString[i],@buf,1024), Length(AString[i])*2+2, write);
  MessageDlg('Игра Русифицирована!', mtCustom,[mbOK],0);
end;
 
end.

  AString : Array[1..61] Of String = ('Параметры', 'Профиль', 'Сохранить Логин?',
  'Подключение...', 'Вход...      ', 'Вы не ввели ваш пароль.    ', 'Войти ',
  'Вы не ввели Логин.  ', 'ID/Пароль не действителен. ', 'Назд', 'Назд', 'Назд',
  'Назд', 'Назд', 'Подключаемся...', 'Выхд', 'Выхд', 'Выхд из игры.', 'Выхд',
  'Авторы ', 'Войти', 'Войти', 'Войти', 'Войти', 'Нет перса', 'Удалить персонаж',
  'Удалить персонаж', 'Создать персонажа ', 'Чел. ', 'Воин   ', 'Без наций  ',
  'Астир - Тер. Кор-ва ', 'Выход ', 'Выход из акк через %d секунд.', 'Отмена',
  'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена',
  'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена',
  'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена', 'Отмена',
  'Отмена', 'Отмена');

  IAString : Array[1..61] Of String = ('Settings', 'Profile', 'Save Logs?',...

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TBuf = Array[0..65535] Of Byte;
var
  Form1: TForm1;
  ProcessID, Addr, BytesRead: DWord;
  BazeAddr : Int64;
  HandleWindow: Integer;
  ProcessHandle: THandle;
  Mbi: TMemoryBasicInformation;
  BytesWrite: cardinal;
  buf : array[0..1023] of Char;
  ReadBuf: PChar;
  FindString : String = 'Log In';
  AddrString : Int64 = $015F3564;
const
  WindowTitle = 'PandoraSaga';
 
  AAddress : Array[1..7] Of Int64 = ($015F35F8, $015F38C8,
  $015F39A8, $015F3838, $015F3564, $015F3800, $015F3D38);
 
  AString : Array[1..7] Of String = ('Сохранить Логин?',
  'Подключение...', 'Вход...      ', 'Вы не ввели ваш пароль.    ', 'Войти ',
  'Вы не ввели Логин.  ', 'ID/Пароль не действителен. ');
 
  IAString : Array[1..7] Of String = ('Remember Login ID', 'Connecting...', 'Logging in...',
  'Please enter your password.', 'Log In', 'Please enter your ID.', 'ID/Password does not match.');
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  MessageDlg('Возникли проблемы? --> | Обратись в тему в нашей группе --> | ВКонтакте: ', mtInformation, [mbOK],0 );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  i,j : Integer;
  Finded : Boolean;
begin
  ProcessHandle := FindWindow(nil,WindowTitle);
  If ProcessHandle = 0 then
  begin
    MessageDlg('Запустите сначало игру а потом Русифицируйте!', mtCustom,[mbOK],0);
    ProcessHandle := FindWindow(nil,WindowTitle);
    If ProcessHandle = 0 then Exit;
  end;
  GetWindowThreadProcessId(ProcessHandle ,@ProcessID);
  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessID);
  //------------------------------------------------------------------
  //Определение базы адресов
  StringToWideChar(FindString,@buf,1024);
  Addr := 0;
  Finded := false;
  try
    while VirtualQueryEx(ProcessHandle, Pointer(Addr), Mbi, SizeOf(Mbi)) <> 0 do
    begin
      if (Mbi.State = MEM_COMMIT) and not ((Mbi.Protect and PAGE_GUARD) = PAGE_GUARD) then
      begin
        GetMem(ReadBuf, Mbi.RegionSize);
        try
        if ReadProcessMemory(ProcessHandle, Mbi.BaseAddress, ReadBuf, Mbi.RegionSize, BytesRead) then
        begin
          for i := 0 to BytesRead - Length(FindString)*2 do
          begin
            Finded:=true;
            for j := i to i+Length(FindString)*2-1 do
            if ReadBuf[j] <> buf[j-i] then
            begin
              Finded := false;
              break;
            end;
            if Finded then
            begin
              BazeAddr := Int64(Cardinal(Mbi.BaseAddress) + i)-AddrString;
              break;
            end;
          end;
        end else
        finally
          FreeMem(ReadBuf);
        end;
      end;
      if Finded then break;
      Addr := Addr + Mbi.RegionSize;
    end;
  except
  end;
 
  //------------------------------------------------------------------
  //Замена ...
  Try
    if Finded then
    begin
      For i:=1 To High(AAddress) Do
      WriteProcessMemory(ProcessHandle, Ptr(AAddress[i]+BazeAddr),
      StringToWideChar(AString[i],@buf,1024), Length(AString[i])*2+2, BytesWrite);
      MessageDlg('Игра Русифицирована!', mtCustom,[mbOK],0);
    end else
    MessageDlg('Не найдено ключевое слово. Игра Не Русифицирована!', mtCustom,[mbOK],0);
  finally
    CloseHandle(ProcessHandle);
  end;
end;
 
end.