procedure TForm1.MyDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Web : TWebBrowser;
begin
Web := TWebBrowser.Create(Self);
Web.OnDocumentComplete := MyDocumentComplete;
end;
