Postmessage Befehl an WebBrowser-Komponente?

[Esolit]

Hi,

was ist an folgendem Quelltext falsch? Ich lege erst den Fokus meinen Programmes auf das Dokument im WebBrowser und versuche dann einen Tastenbefehl (im Beispiel Tabulator-Taste) an diese zu schicken. Nur irgendwie wird das jedes mal so interpretiert als wenn der Befehl an die Form geschickt worden wäre. Stimmt vielleicht der Klassenname des WebBrowsers nicht?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
wnd : HWND;
begin
wnd := FindWindow('TForm1',nil);
if wnd <> 0 then
begin
wnd := FindWindowEx(wnd,0,'TWebBrowser1',nil);
(Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus;
 PostMessage(wnd, WM_KEYDOWN , VK_Tab, 0);
end else showmessage('Not Found');
end;

Beste Grüße