1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var bla: array[0..5] of byte = ($90,$90,$90,$90,$90,$90);
// bzw = ($D9,$9E,$F4,$1B,$00,$00)

procedure TForm1.Button1Click(Sender: TObject);
begin
    WindowName  :=  FindWindow(nil,WindowTitle);
          If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0);
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
              WriteProcessMemory(HandleWindow,pointer($480802), @bla[0],6,write);
    closehandle(HandleWindow);
    MessageDlg('Geld ist eingefroren',  mtwarning,[mbOK],0);
end;					

1:
2:
3:
4:
5:

var old: DWord;
begin
VirtualProtectEx(processhandle, pointer(@addresse{$00400F87}), size{22}, PAGE_EXECUTE_READWRITE, old);
WriteProcessMemory(processhandle...);
VirtualProtectEx(processhandle, pointer(@addresse{$00400F87}), size{22}, old, old);					

1:
2:
3:
4:
5:

var mem: pointer;
begin
mem := VirtualAllocEx(processhandle, nil, size, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
WriteProcessMemory(processahndle,...);
VirtualFreeEx(processhandle, mem, 0, MEM_RELEASE);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
    hProcess: THandle; //Prozesshandle des Spiels
    wert:integer;  //wert des ausgelesenen speichers
    BytesRead: DWORD;
    adresse:pointer;  //adresse, die ausgelesen werden soll

...

adresse:=ptr($9D903C);

ReadProcessMemory(hProcess,adresse,@wert,sizeof(wert), BytesRead );

...					

1:
2:
3:
4:
5:

ReadProcessMemory(hProcess, adresse, @wert, SizeOf(wert), BytesRead);  // originaladresse lesen
adresse := Ptr(wert + $60);  // Wert + 96dez
ReadProcessMemory(hProcess, adresse, @wert, SizeOf(wert), BytesRead);  // eben berechnette adresse auslesen
CloseHandle(hProcess);
Edit1.Text := IntToStr(wert);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function WriteMemory(Adress:Pointer; Buffer:array of char):Bool;
begin
        try
                Result:=False;
                VirtualProtectEx(handlewindow, Pointer(Adress), Length(Buffer), PAGE_EXECUTE_READWRITE, old);
                If (WriteProcessMemory(handleWindow, Pointer(Adress), @Buffer, Length(Buffer), BytesWritten)
                and (BytesWritten = Length(Buffer)))
                then Result:=True else Result:=False;
        finally
        VirtualProtectEx(Handlewindow, Pointer(Adress), Length(Buffer), old, old);
        end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

Adress:= Ptr($00400400);
                pcardinal(@buffer[0])^ := $8B4154A3;
                pcardinal(@buffer[4])^ := $00054000;
                pcardinal(@buffer[8])^ := $C3000000;
                pcardinal(@buffer[12])^:= $00000000;
                pcardinal(@buffer[16])^:= $00000000;

                If WriteMemory(Adress, Buffer) = True then Memo1.Lines.Add('OK') else Memo1.Lines.Add('Err');