procedure TForm6.Button4Click(Sender: TObject);
var
  WindowHandle: Integer;
  Pidi: Integer;
  Read:DWORD ;
  Processhandle: THandle;
  lBuf: integer;
   Wert:DWORD ;
begin
  WindowHandle :=FindWindow(nil,'Fentsertitel');
  if Windowhandle=0 then raise Exception.create('Fenster nicht gefunden');
  GetWindowThreadProcessId(WindowHandle ,@Pidi);
  ProcessHandle :=OpenProcess(PROCESS_VM_READ ,False , pidi);
  if ProcessHandle=0 then raise Exception.create('Kein Zugriff auf Process');
  try
   ReadProcessMemory(Processhandle ,ptr($00400000),@lBuf,4,Wert);
    Edit2.Text :=IntToStr(lbuf);
  finally
    CloseHandle(Processhandle);
  end;
end;