Offset lade problem in Delphi

Function MemoryRead(Adresse: DWord): PChar;
var
  ThreadID, ProcessID: Integer;
  WindowHandle: THandle;
  Windowtitel: HWnd;
  buffer: PChar;
  Bytes: DWord;
begin
  WindowTitel := FindWindow(nil, Application);
  if WindowTitel = 0 then
    Exit;

  ThreadID := GetWindowThreadProcessID(WindowTitel, @ProcessID);
  WindowHandle := Openprocess(PROCESS_ALL_ACCESS, False, ProcessID);
  GetMem(Buffer, 64); //64 Byte sichern
  ReadProcessMemory(WindowHandle, Ptr(Adresse), @Buffer, 4, Bytes);
  Result := Buffer;
  
  FreeMem(Buffer);
  CloseHandle(WindowHandle);
end;