1:
2:
3:
4:
5:
6:
7:
8:
9:

uses
  {...,} shellapi;

{...}
procedure TForm1.Label1Click(Sender: TObject);
begin
  if (ShellExecute(Handle, 'open', 'http://www.delphi-forum.de', nil, nil, SW_SHOW) <= 32) then
    ShowMessage('Internetseite konnte nicht geöffnet werden!');
end;