procedure TForm1.btn1Click(Sender: TObject);
procedure OpenInIE(aURL: string);
//need uses ComObj;
var
IE : Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := false;
IE.Navigate(aURL);
end;
begin
OpenInIE('www.delphibbs.com');
end;