Работа с Bitbtn

[Vladnet]

Привет всем!
Как сделать так, чтобы по клику по bitbtn открвалась страница в интернете (например яндекс)

[Daramant]

Вот такой код:

uses ShellApi;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(Handle,
                 'open',
                 'http://www.yandex.ru',
                 nil,
                 nil,
                 SW_SHOWNORMAL);
end;

[Neeter]

Если вы хотите из какого-нибудь edit'а открывать сайт, то надо писать так:

 ShellExecute(Handle, nil, PChar(Edit1.Text), nil, nil, SW_SHOW);