Сканер процесса

[ddwnik]

Доброго времени суток.
Уже пол дня думаю, и не пойму - почему не выводится ни одного значения в Memo.

Программа сканит текст "Создать".
Но ничего не происходит(
Прошу помощи!

var
  Form1: TForm1;
  ProcessID: DWord;
 ProcessHandle: THandle;
 Mbi: TMemoryBasicInformation;
 Addr: DWord;
 Value: string;
 I: Cardinal;
 Buf: PChar;
 BytesRead: DWord;
 len   : integer;

 implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
h:THandle;
begin

len   := 17;
Buf := AllocMem(len);
Value:='Создать';
 H:=FindWindow(Nil,'Ножницы');
GetWindowThreadProcessId(h, ProcessID);
ProcessHandle := OpenProcess(Process_All_Access, false, ProcessID);
ShowMessage(IntTostr(h));
 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, BytesRead) then
     begin

     for I := 0 to BytesRead - SizeOf(Value) do
      begin
      Application.ProcessMessages;  
     
       {Текст - Unicode}
  
     if WideCharToString(@(Buf[I])) =Value then begin
 
 //if (PChar(@Buf[I])) =Value then begin

 memo1.Lines.Add ('Value ' + (Value) + ' found at ' + IntToHex(Integer(Cardinal(Mbi.BaseAddress) + I), 8));

      end;
      end;
     end
     else
    finally
     FreeMem(Buf);
    end;
   end;
   Addr := Addr + Mbi.RegionSize;
  end;


  CloseHandle(ProcessHandle);

end;

end.

[min@y™]

может и выполнение до memo1.Lines.Add просто не доходит?
поюзай дебаггер и/или допиши там ветку else.