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

procedure TForm1.Button1Click(Sender: TObject);
var
   Buffer : Array[0..512] Of Char;
   N : DWORD;
   result : String;
begin
   ReadProcessMemory(ProgramToRead,
   Ptr(0),
   @Buffer,
   512,
   N);
   Buffer[512] := #0;
   Memo1.Text := StrPas(Buffer);
end;					

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

procedure TForm1.Button2Click(Sender: TObject);
var
  lBuf: string;
  lRead,c : Cardinal;
begin
C := wndMain;
  GetWindowThreadProcessId(c, @c); //Get ProcessID and ignore ThreadID
  c := OpenProcess(PROCESS_ALL_ACCESS, False, c);  //Get ProcessHandle
  SetLength(lBuf, 16);
  ReadProcessMemory(c, Ptr($11546A64), @lBuf[1], 16, lRead);
  Memo1.Text := lBuf;
  CloseHandle(c);
  end;