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

var
 Read: DWORD;
 OldProtect: DWORD;
 Buf: Pointer;
begin
 // Lese & Schreibrechte holen
 if VirtualProtectEx(Prozess, Adresse, Groesse, PAGE_EXECUTE_READWRITE, OldProtect) then
 begin
  // Speicher reservieren
  getmem(Buf, Groesse);
  try
   // Daten lesen
   if ReadProcessMemory(Prozess, Adresse, Buf, Groesse, Read) then
    if Read = Groesse then
    begin
     // Spaß haben
    end;
  finally
   // Wieder alte Rechte setzen
   VirtualProtectEx(Prozess, Adresse, Groesse, OldProtect, OldProtect)
   freemem(Buf);
  end;
 end;
end;                    

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

type
 PMyArray = ^TMyArray;
 TMyArray = array[0..maxint] of byte;

// Spaß haben geht dann (zum Beispiel :mrgreen:) so 
for i := 0 to Groesse-1 do
 Memo1.Text := Memo1.Text + IntToHex(PMyArray(Buf)^[i], 2);