Чтение памяти процесса (поиск адресов)

[xRamzeSx]

Доброго времени суток, уважаемые программеры.

Есть функция поиска адресов в процессе:

procedure TForm1.N1Click(Sender: TObject);
var
  mbi: MEMORY_BASIC_INFORMATION;
  Max, write: Cardinal;
  Address: cardinal;
  wer, rew: integer;
  a: integer;
  ii, i: integer;
  tp, ad, rm, pm: string;
begin
ListBox1.Clear;
ListBox1.Items.Add('Процесс: '+ComboBox1.Text);
stp:= 0;
for i:= kol-1 downto 1 do ValueListEditor1.DeleteRow(i);
kol:= 1;
  Address:= $00010000;
  Max:= $BFFFFFFF;
  hwnd:= FindWindow(nil,PChar(ComboBox1.Text));
  TId:= GetWindowThreadProcessId(hwnd,@pid);
  hpr:= OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if  HPR= 0 then messagedlg('Error...',mtWarning,[mbOk],0);
  while (VirtualQueryex(hpr, ptr(Address), mbi, SizeOf(MEMORY_BASIC_INFORMATION)) > 0) and
    ( mbi.RegionSize+integer(MBI.BaseAddress) < max) do
  begin
  ad:= sh(integer(mbi.BaseAddress));
  rm:= sh(mbi.RegionSize);
  rm:= copy(rm, 2, 7);
  case mbi.Type_9 of
    MEM_PRIVATE: tp:= 'PRIVATE';
    MEM_MAPPED: tp:= 'MAPPED';
    MEM_IMAGE: tp:= 'IMAGE';
    end;
 case mbi.State of
    MEM_COMMIT: pm:= 'COMMIT';
    MEM_FREE: pm:= 'FREE';
    MEM_RESERVE: pm:= 'RESERVE';
    end;
  if (mbi.Protect = PAGE_READWRITE) and (mbi.State=MEM_COMMIT) then
    begin
    if stp = 1 then break;
    Address:= integer(mbi.BaseAddress) + (mbi.RegionSize);
    StatusBar1.Panels[3].Text:= sh(cardinal(mbi.BaseAddress))+'  X  '+sh(address);
    wer:= StrToInt(sh(integer(mbi.BaseAddress)));
    rew:= StrToInt(sh(address));
    for i:= wer to rew do begin
        if stp = 1 then break;
        ReadProcessMemory(HPR, ptr(strtoint(sh(i))), @a, 4, write);
        Application.ProcessMessages;
        if a = StrToInt(Edit1.Text) then begin
          if kol = 1 then ValueListEditor1.Cells[1,1]:= inttostr(a)
          else ValueListEditor1.Strings.Add(inttostr(a));
          ValueListEditor1.Cells[0,kol]:= sh(i);
          kol:= kol+1;
          StatusBar1.Panels[1].Text:= inttostr(kol-1);
        end;
        II:= I-wer;
        Gauge1.Progress:= round(ii*(100/(rew-wer+1)));
      end;
      end;
      Address:= integer(mbi.BaseAddress);
    Inc(Address, mbi.RegionSize);
    end;
end;

Данный код работает и находит адреса по указанному мной значению.

Проблема в том, что если сравнить результаты поиска этой функции с, например, Cheat Engine или ArtMoney, в этой, нет статических адресов.

В чем может быть проблема?