TWebBrowserThread.Execute;var Msg: TMsg;
begin
Coinitialize(nil);
FWebBrowser := TWebBrowser.Create(nil);
FWebBrowser .ParentWindow := FParentControl.Handle;
FWebBrowser .SetBounds(0, 0, X, Y);
while GetMessage(Msg, 0, 0, 0) and not Terminateddo
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
FWebBrowser.Free;
CoUninitialize;
end;
