·        Coloque em use  Comobj
·        Crie a seg. procedure:
procedure AbreInternetExplorer(URL : string);
var
IE : Variant;
begin
  IE := CreateOleObject('InternetExplorer.Application');
  IE.Visible := true;
  IE.Navigate(URL);
  ·        Coloque um button e um edit e digite:
  if Edit1.Text <> '' then
  AbreInternetExplorer(Edit1.Text);

  At? a   próxima, espero que estas dicas possam ajudar a alguem, um abra?o.

  Adalmo,  Ipatinga, Minas Gerais - reisipa@uol.com.br