[Snake22]

Вобщем надо изменить значение в другой прогамме.
Адрес памяти всегда постоянный, (отсеял его с помощью ArtMoney)
адрес 00871714
нашел в интернете как считывать изменять данные в программе,но уменя не работает =(
вот листинг программы,посмотрите что не так

Код:

uses ...TlHelp32;

//функция поиска хендла по имени exe файла прогаммы
function GetProcessByEXE(exename:string):thandle;
var
  I: Integer;
  hSnapshoot: THandle;
  pe32: TProcessEntry32;

  proc:thandle;
begin
  result:=0;
  hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  if (hSnapshoot = -1) then
      Exit;
  pe32.dwSize := SizeOf(TProcessEntry32);
  if (Process32First(hSnapshoot, pe32)) then
  repeat
  if (pe32.szExeFile=exename)then
     begin
     result:=pe32.th32ProcessID;
     exit;
     end;
  until not Process32Next(hSnapshoot, pe32);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  GameScreen: HWND; //хендл процесса
  Buffer: Byte; //тут будет наше значение
  ProcessIdentifier, ProcessHandle, Temp: Cardinal;
  NumberOfBytes: byte;// количество байт

begin
NumberOfBytes:=8;
  GameScreen := GetProcessByEXE('proga.exe');
  if GameScreen <> 0 then
  begin
    GetWindowThreadProcessId(GameScreen, @ProcessIdentifier);
    ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessIdentifier);
    ReadProcessMemory(ProcessHandle, Ptr($00871714), @Buffer,NumberOfBytes, Temp);    
    ShowMessage( IntToStr(Buffer) );
    //Buffer:=5; //пока не надо
    //WriteProcessMemory(ProcessHandle,Ptr($00871714),@Buffer,NumberOfBytes,Temp);
    Closehandle(ProcessHandle);

  end;
end;

при считывании всё время возвращается ноль. хотя там не ноль.
еще,где NumberOfBytes:=8; это АртМоней показывает Тип-целое, 8байт. вроде правильно подставил?
Хенд процесса возвращается правильный, сверял с АртМонием.
Где косяк?
еще я слышал что дельфи шестнадцатеричные числа както в обратном порядке читает.может адрес памяти переконвертировать както надо?