[Delphi] Funkcje zczytujące z pamięci (prośba) :]

Witam wszystkich! Posiadam dwie funkcje zczytujace stringi i integery z pamieci procesu. Chcialbym prosic doswiadczonych userow o sprawdzenie tych funkcji (czy wszystko jest tak jak powinno, nie ma bledow, itp). A wiec:

function RPMS(Address: Cardinal): string;
var
NOBR: LongWord;
Buffer: Array [1..255] of Byte;
Process: THandle;
ProcessId: Cardinal;
I: Byte;
begin
GetWindowThreadProcessID(FindWindow('', nil), @ProcessId);
Process := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
Result := '';
ReadProcessMemory(Process, Ptr(Address), @Buffer[1], 255, NOBR);
for I := 1 to 255 do begin if ((Buffer[I] = 0) or (Buffer[I] = $0F)) then Break;
Result := Result + Chr(Buffer[I]);
end;
end;

function RPMI(Address: Cardinal): Cardinal;
var
NOBR: LongWord;
Buffer: Integer;
Process: THandle;
ProcessId: Cardinal;
begin
GetWindowThreadProcessId(FindWindow('', nil), @ProcessId);
Process := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
ReadProcessMemory(Process, Ptr(Address), @Buffer, 4, NOBR);
CloseHandle(Process);
Result := Buffer;
end;

EDIT: To sprawdzi ktoś?

Czemu mamy to za Ciebie sprawdzac. Skompiluj kod i zobacz czy dziala. Proste!