LAN Web TCP Delphi

Title: How to set the focus on a TWebbrowser
1}
uses
ActiveX;
begin
WebBrowser1.Navigate('irgendeinedatei.html');
with WebBrowser1 do
if Document nil then
with Application as IOleobject do
DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,
GetClientRect);
end;
{2}
uses
MSHTML;
begin
WebBrowser1.Navigate('irgendeinedatei.html');
repeat
Application.ProcessMessages;
until WebBrowser1.ReadyState = READYSTATE_COMPLETE;
if WebBrowser1.Document nil then
(Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus;
end;