Im Webbrowser mit Tab navigieren

[nezumi77]

N'abend,

ich möchte im Webbrowser den gesamten Text markieren und in ein Memo laden.

Delphi-Quellcode:

WebBrowser1.OleObject.document.execCommand('SelectAll', false, emptyParam);
Clipboard.AsText := Webbrowser1.OleObject.Document.Selection.createRange.Text;
Memo1.Lines.Text := Clipboard.AsText;

Das Blöde ist nur, dass beim Aufruf der Seite der Cursor in einem Eingabefeld ist und daher nichts markiert wird. Um aus dem Eingabefeld herauszukommen versuche ich

Delphi-Quellcode:

webbrowser1.SetFocus;
Keybd_event($09, 0, 0, 0);
Keybd_event($09, 0, KEYEVENTF_KEYUP, 0);

Leider ohne Erfolg. Das führt nur dazu, dass TWebbrowser den Focus verliert. Daher: Wie kann ich "Tab" simulieren ohne den Webbrowser zu verlassen?

Gruß, nezumi