Чтение памяти процесса

[Maincore]

procedure TForm1.Button1Click(Sender: TObject);
begin


BaseAddr := 0;
RecivedBytes := 0;
h:=FindWindow('#32770','My programm');
listbox1.Items.Add('handle '+inttostr(h));
mThreadID:= GetWindowThreadProcessId(h,@mProcessID);
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_OPERATION or PROCESS_VM_READ, False, mProcessID);
listbox1.Items.Add('Pid '+inttostr(mProcessID));
listbox1.Items.Add('OpenProcess = '+inttostr(hProcess));


 try
    if hProcess <> 0 then
    begin
       try
       //Запращиваем память по указанному адресу BaseAddr
        while VirtualQueryEx(hProcess, Pointer(BaseAddr), MBI, SizeOf(MBI)) <> 0 do
        begin
        //Если страница памяти доступна и не заблокирована для нас
        if ((MBI.State = MEM_COMMIT) and (not (MBI.Protect = PAGE_GUARD) or (MBI.Protect = PAGE_NOACCESS))) then
          begin
            try
              //Выделяем часть памяти равной размеру региона памяти из кучи ОЗУ
              Buff := AllocMem(MBI.RegionSize);
               //Читаем память этого региона
              if ReadProcessMemory(hProcess, MBI.BaseAddress, Buff, MBI.RegionSize, RecivedBytes) then
              begin
              memo1.Lines.Add(pansichar(Buff));
              end
               //Если не удачно
             else if (GetLastError <> ERROR_PARTIAL_COPY) and
                (GetLastError <> ERROR_ACCESS_DENIED) then
              begin
               //Ложный результат
                aFailMesage:=Format('Error #%d with RMessage: %s ', [GetLastError, SysErrorMessage(GetLastError)]);
                Exit;
              end;
            finally
              //Освобождаем занятую нами память
              FreeMem(Buff);
            end;
          end;
          //Увеличиваем(инкрементируем) стартовый адрес на размер региона
           BaseAddr := BaseAddr + MBI.RegionSize;
         //проверяем непревышает ли он размер 4 гб.
          if BaseAddr = GB4 then
          begin

            Exit;
          end;
        end;
       finally
        FreeAndNil(fs);
      end;
    end
    else
    begin
      aFailMesage:=Format('Error #%d with RMessage: %s ', [GetLastError, SysErrorMessage(GetLastError)]);
      Exit;
    end;
  finally
    CloseHandle(hProcess);
  end;
  end;

Почему в memo записываются не все данные?

[Stilet]

Потому что не исключено что Buff содержит в себе символ с кодом 0 - привычное так сказать окончание ASCIIZ строки. Мемо управляющие символы не любит.

[Maincore]

Потому что не исключено что Buff содержит в себе символ с кодом 0 - привычное так сказать окончание ASCIIZ строки. Мемо управляющие символы не любит.

Что то я не очень понимаю, как найти мне нужный текст в этих данных?
Не могли бы вы подсказать как это можно реализовать