[RusMaXXX]

Всем доброго времени суток..!!! :-)

У меня возник вопрос в следующем: нужно реализовать чтение данных из памяти по указанному адресу..???
Но у меня чё-то не получается его воплотить в жизнь, вот привожу свою процедуру для получения данных из памяти

Код:

procedure Get_Data(ProcessId, PointerData: DWORD; var Value: string);
var
  Buf : PChar;
  HandleWindow, Write : Cardinal;
  vTmp: array [0..127] of char;
begin
 FillChar(vTmp, SizeOf(vTmp), 0);
 HandleWindow := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, ProcessId);
 if HandleWindow = INVALID_HANDLE_VALUE then exit;
 ReadProcessMemory(HandleWindow, Pointer(PointerData), @vTmp, 4, Write);
 CloseHandle(HandleWindow);
 StrLCopy(vTmp, vTmp, SizeOf(vTmp));
 Value := vTmp;
end;

НАРОД..!!!!!! помогите мне, в чём причина, а то я уже не могу понять этого...

Заранее благодарен .....