procedure TForm1.Button1Click(Sender: TObject);
var hwn:hwnd;
pid,hPr,dwR:dword;
buf:byte;
begin
hWn := FindWindow(nil, PChar('заголовок окна'));
if IsWindow(hwn) then begin
 showmessage('хэндл найден');
 GetWindowThreadProcessId(hWn, PID); //ищем pid
 hPr := OpenProcess(PROCESS_VM_READ, False, PID);
 ReadProcessMemory(hPr, ptr($232D7E68), @buf, 1, dwR); //читаем память
 CloseHandle(hPr);
end;
end;