procedure TForm11.Button1Click(Sender: TObject);
var
ProcessID: DWord;
  ProcessHandle: THandle;
  Mbi: TMemoryBasicInformation;
  Addr: DWord;
  Value: DWord;
  I: Cardinal;
  Buf: PChar;
  BytesRead: DWord;
  wHandle, ttHandle: integer;
  Value: integer; 

begin
wHandle := FindWindow(nil, 'Form1'); // Буду искать значения в другом приложении Form1
if wHandle <> 0 then  begin
Value:=123; // будем искать
ttHandle := GetWindowThreadProcessId(wHandle, @ProcessID);
ProcessHandle  := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);
try
Addr := 0;

// Перечисляем все регионы виртуальной памяти процесса
while VirtualQueryEx(ProcessHandle, Pointer(Addr), Mbi, SizeOf(Mbi)) <> 0 do begin
 // Если региону выделена память, и регион не является "сторожевым" (как вершина стека),
 // то читаем этот регион
if (Mbi.State = MEM_COMMIT) and not ((Mbi.Protect and PAGE_GUARD) = PAGE_GUARD) then  begin
GetMem(Buf, Mbi.RegionSize);
    try
     //
     // Читаем весь регион в выделенный буфер
     //
     if ReadProcessMemory(ProcessHandle, Mbi.BaseAddress, Buf,
       Mbi.RegionSize, size_t(BytesRead)) then
     begin
      //
      // Ищем значение типа DWORD в буфере
      //
      for I := 0 to BytesRead - SizeOf(Value) do  begin

        if PDWord(@Buf[I])^ = Value then  begin // ВОТ ЗДЕСЬ ОШИБКА
                // Найдено, выводим
memo2.lines.add('Value ' + IntToStr(Value) + ' found at ' +
         IntToHex(Integer(Cardinal(Mbi.BaseAddress) + I), 8));
      end;
      end;
     end;

    finally
     FreeMem(Buf);
    end;
   end;

   // Вычисляем адрес следуюшего региона
   Addr := Addr + Mbi.RegionSize;
  end;

 finally
  CloseHandle(ProcessHandle);
 end;
end;