Problema con Clipboard en crhome
 

Buenas tardes les explico, tratando de conseguir la URL de Crhome, realizo:
1.- una enumeración de ventajas hijas
2.- una vez encontrada pulso F6, para que me lleve a la barra de direcciones del crhome
3.- copio lo que esta seleccionado al portapapeles
4.- pego la url en un memo

Pero el copiado y pegado no lo realiza, ya probe a poner sleep() despues del F6, despues del copiado y aveces lo hace y la mayoria de veces no, adjunto el codigo:

Código Delphi [-]
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;

Y en ocaciones manda error, que el clipboard esta cerrado.