Prozessspeicher lesen / schreiben Ergebnis falsch

[Gehstock]

nun Hab ich ein Ähnliches Problem beim Schreiben

fehler sind unter
Windows7 Nur ein Teil der ReadProcessMemory- oder WriteProcessMemory-Anforderung wurde abgeschlossen
WinXP Falscher Parameter

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  dwBytes, Buf: DWord;
  dwEngineBase, dwClientBase: DWord;
  dwProcID: Integer;
  hProcess: THandle;
begin
  dwEngineBase := 0;
  dwClientBase := 0;
  hProcess := 0;
  dwProcID := GetProcessID('calc.exe');
  if dwProcID <> 0 then
  begin
    hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, dwProcID);
    if (hProcess = INVALID_HANDLE_VALUE) then
    begin
      Showmessage('Ungültiges Handle :' + Inttostr(hProcess));
      exit;
    end;
//if not ReadProcessMemory(hProcess, Pointer($2c3ca4), @Buf, 4, dwBytes) then
//  ShowMessage(SysErrorMessage(GetLastError)+ ' : '+Inttostr(hProcess))
//  else
//    caption := (inttostr(Buf));
//end;
if not WriteProcessMemory(hProcess,Pointer($002C3C84),Pointer($55), 1,dwBytes) then
  ShowMessage(SysErrorMessage(GetLastError))
  else
    caption := (inttostr(dwBytes));
end;
end;

hab mir schon einige Delphi und C++ Sourcecodes angeschaut wegen dieser DebugPrivileges welche dort aber nie verwendet werden