1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var
  c,baseAdress,base,next,over:Cardinal;
  x:Single;
begin
      c:=FindWindow(nil,'Fenstername)'); //Get WindowHandle
      if c=0 then
        begin
          MessageDlg('ErrorMessage',mtwarning,[mbOK],0);
          Exit;
        end;
      baseAdress:=$0018ECE4;
      x:=1;
      GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
      c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
      ReadProcessMemory(c, ptr(baseAdress), @base, SizeOf(base), BytesRead); 
      base := base + $DDC;                                          
      WriteProcessMemory(c,ptr(base),@over,SizeOf(over),write);                            
      CloseHandle(c);
    end;