Delphi WriteProcessMemory mit Offsets zum Pointer

[infY2k7]

wie kann ich das besser schreiben? also hier mal meine prozedur:

Delphi-Quellcode:

procedure p_memorywrite(value,size:integer;adresse:dword);
begin
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    GetMem(buf,1);
    buf^  :=  Chr(value);
    FreeMem(buf);
    WriteProcessMemory(HandleWindow,ptr(adresse),buf,size,write);
    closehandle(HandleWindow);
end;