uses
ShDocVw;
procedure TForm1.Button1Click(Sender: TObject);
var
Browser: IWebBrowser2;
begin
Browser:=CoInternetExplorer.Create;
Browser.Visible:=True;
Browser.Navigate('http://delphibbs.com/delphibbs/listq.asp',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
while Browser.Busy do
Application.ProcessMessages;
ShowMessage('IE打开网页完毕');
end;