Problema con Clipboard en Crhome

function Chrome(wnd: THandle; Param: Integer): Bool; stdcall;
var
  wndClass: array[0..127] of char;
  Buffer: PChar;
begin
  GetClassName(wnd, wndClass, SizeOf(wndClass));
  if wndClass = 'Chrome_WidgetWin_1'
  then
    begin
      ClipBoard.Clear;
      SetForegroundWindow(wnd);
 
 
      While ClipBoard.AsText='' do
      begin
        PostMessage(wnd, WM_SYSKEYDOWN, VK_F6,0);
        keybd_event(VK_CONTROL, 0, 0, 0);
        keybd_event($43, 0, 0, 0);
        keybd_event($43, 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
      end;
      
      Form1.memo1.Lines.Add(Clipboard.AsText);
      Result := False;
    end
  else Result := True;
 
 
  SetForegroundWindow( Form1.Handle);
end;