ReadProcessMemory & Extended type

[RibGeDx]

Всем привет. Короче, пытаюсь читать с процесса нужное значение по определённому адресу. Адрес нашел правильный (при перезапуске он не меняется). Ну собсна, создаю процесс (CreateProcess) и сразу пытаюсь с него читать нужное значение. Но в чем прикол, когда процесс завершается или еще не запустился, то при чтении выбивает ошибку Invalid float operation... Точнее не при чтении, а при попытке записать прочитанные данные куда то... Может можно как нибудь проверить, есть ли определённый адрес в программе или можно сделать как то по другому?

var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: PAnsiChar;

function Exec(FileName, Parameters: PAnsiChar; Show: Boolean): Boolean;
begin
  CmdLine := PAnsiChar('"' + FileName + '" ' + Parameters);
  FillChar(StartInfo, SizeOf(StartInfo), #0);

  with StartInfo do begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_Show;
  end;

  try
    Result:= CreateProcessA(nil, CmdLine, nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
    PAnsiChar(ExtractFilePath(FileName)), StartInfo, ProcInfo);
  except
    Exit;
  end;

  if Result then begin
    while WaitForSingleObject(ProcInfo.hProcess, 10) <> WAIT_OBJECT_0 do begin
      Application.ProcessMessages;
    end;
  
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

procedure ReadFromProcess;
var pr: Extended; readed: Cardinal;
begin
  if ReadProcessMemory(ProcInfo.hProcess, Ptr($0028F8B4), addr(pr), 10, readed) then begin
      Form1.Label1.Caption:= 'get adr: ' + floattostr(pr);
  end;
end;

чтение с процесса идет по таймеру )