Delphi - Abrir páginas da Internet utilizando a unit ComObj (útil para quem utiliza internet explorer 7)

Adicione no formulário:

- Um Edit para colocar o Endereço da Internet.

- Um Botão para acessar a página.

Declare a Unit ComObj.

A seguinte procedure:

procedure Tform1.AbreInternetExplorer(URL : string);

var IE : Variant;

begin

 IE := CreateOleObject('InternetExplorer.Application');

 IE.Visible := true;

 IE.Navigate(URL);

end;

No evento Onclick do Button chame a procedure:

if Edit1.Text <> '' then

   AbreInternetExplorer(Edit1.Text);