Поиск строки в памяти запущенного процесса и её изменение

procedure TForm1.Button1Click(Sender: TObject);
var
hProc, PID, numberRead : DWORD;
hWnd : THandle;// Хэндл окна чата
IpBuf : string; // буфер куда поместиться наше значение
ipBase: ^dword; // точка входа в памяти
begin
hWnd:=findwindow('TfChatClient',nil); /// получаем хэндл окна программы
 Edit1.Text:=inttostr(hWnd); // заносим в edit Handle
GetWindowThreadProcessId(hWnd, @PID); //получаем pid зная хэндл окошка интересующей нас программы
 Edit2.Text:=inttostr(PID); // заносим в edit ID
hProc:=OpenProcess(PROCESS_VM_READ, False, PID); // подключаемся к процессу зная его ID
try
   if hProc <> 0 then // условие проверки подключения к процессу
          begin
Edit3.Text:=inttostr(hProc); // заносим в edit Process
ipbuf:=' '; // очищаем буфер
            SetLength(ipbuf, 4);// устанавливаем длинну буфера
             ipBase:=ptr($0036D0C8); // RVA слова в памяти
             ReadProcessMemory(hProc, ipBase, Addr(ipbuf), 4, numberRead); // чтение из памяти строки
             Edit4.Text:=PCHAR(ipbuf); // заносим в edit Buffer
          end;
finally
CloseHandle(hProc); // отсоединяемся от процесса
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hProc, PID, numberRead : DWORD;
  hWnd  : THandle;    // Хэндл окна чата
  IpBuf : PWideChar;  // буфер куда поместиться наше значение
  len   : integer;
  ipBase: ^dword;     // точка входа в памяти
  Buf : PChar;
  Write:cardinal;
  str:string
begin
  hWnd:=findwindow('TfChatClient',nil); /// получаем хэндл окна программы
  Edit1.Text:=inttostr(hWnd); // заносим в edit Handle
  GetWindowThreadProcessId(hWnd, @PID); //получаем pid зная хэндл окошка интересующей нас программы
  Edit2.Text:=inttostr(PID); // заносим в edit ID
  hProc:=OpenProcess(PROCESS_VM_READ, False, PID); // подключаемся к процессу зная его ID
  if hProc <> 0 then // условие проверки подключения к процессу
  try
    len   := 200;
    ipBuf := AllocMem(len);
    Edit3.Text:=inttostr(hProc); // заносим в edit Process
    ipBase:=ptr($001AB268);      // RVA слова в памяти
    ReadProcessMemory(hProc, ipBase, ipbuf, len, numberRead); // чтение из памяти строки
    Edit4.Text:=WideCharToString(ipbuf); // заносим в edit Buffer
    GetMem(buf,8);//выделяем память под наше слово
    str:='version';  // присваевываем наше слово переменной
    buf^ := Chr(str); //записываем по этому адресу наше слово
    WriteProcessMemory(hProc, ipBase, buf, len, write); //меняем старое значения слова на новое
  finally
    CloseHandle(hProc); // отсоединяемся от процесса
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hProc, PID, numberRead : DWORD;
  hWnd  : THandle;    // Хэндл окна чата
  IpBuf : PWideChar;  // буфер куда поместиться наше значение
  len   : integer;
  ipBase: ^dword;     // точка входа в памяти
 Buf : PChar;
 Write:cardinal;
  str:dword;
begin
  hWnd:=findwindow('TfChatClient',nil); /// получаем хэндл окна программы
  Edit1.Text:=inttostr(hWnd); // заносим в edit Handle
  GetWindowThreadProcessId(hWnd, @PID); //получаем pid зная хэндл окошка интересующей нас программы
  Edit2.Text:=inttostr(PID); // заносим в edit ID
  hProc:=OpenProcess(PROCESS_VM_READ, False, PID); // подключаемся к процессу зная его ID
  if hProc <> 0 then // условие проверки подключения к процессу
  try
    len   := 200;
    ipBuf := AllocMem(len);
    Edit3.Text:=inttostr(hProc); // заносим в edit Process
    ipBase:=ptr($001AB040);      // RVA слова в памяти
    ReadProcessMemory(hProc, ipBase, ipbuf, len, numberRead); // чтение из памяти строки
    Edit4.Text:=WideCharToString(ipbuf); // заносим в edit Buffer
   GetMem(buf,8);//выделяем память под наше слово
   str:=strtoint('version');  // присваевываем наше слово переменной
   buf^ := Chr(str); //записываем по тому адресу наше слово
    WriteProcessMemory(hProc, ipBase, buf, len, write); //меняем старое значения слова на новое 
  finally
    CloseHandle(hProc); // отсоединяемся от процесса
  end;
end;