[Kaban4ig]

Всем привет мне нужно найти ячейку с нужным числом, делаю это так

Код:

Sadr := $00000000; 

  for i := 1 to 1000000{2147483647} do
  begin
    Sadr := Sadr + 1;
    ReadProcessMemory(h2, pointer(Sadr), @adr, 4, Nat);
    If adr = StrToInt(Edit1.Text) then
      Memo1.Lines.Add(inttostr(Sadr) + ' ' + inttostr(adr));

  end;

Но получается СВЕРХ медленно (миллион примерно за 10-15 секунд). Возможно ли както прочитать всю память процесса меньше чем за секунду?