1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject);
var WindowName: Integer;
    Window: Integer;
    Pidi: Integer;
    Wert: DWORD;
    nBuf: integer;
    cAdr: string;
    nPos: integer;
begin
 Active:= true;
 cAdr:= edit1.Text;   //Startadresse
 WindowName:= FindWindow(nil,'Test');
 GetWindowThreadProcessId(WindowName ,@Pidi);
 Window:= OpenProcess(PROCESS_VM_READ ,False , Pidi);

 while 0 = 0 do //Dreckige Endlosschleife
 begin
  nPos:= StrToInt('$'+cAdr);
  cAdr:= inttohex(nPos+4,nPos+4);

  ReadProcessMemory(Window ,ptr($+strtoint('$'+cAdr)),@nBuf,4,Wert);
  memo1.lines.add(cAdr+'  :  ' + IntToStr(nBuf));
  if nBuf = strtoint(edit2.Text) then
   memo2.Lines.Add(cAdr+'  :  ' + IntToStr(nBuf));

  Application.ProcessMessages;
  if Active = false then exit;  //Durch den Stop-Button setze ich Active auf false
 end;
 
CloseHandle(Window);
end;