How to open an URL in the Default Webbrowser

uses
  ShellApi;

{....}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,
               'open',
               'http://www.SwissDelphiCenter.ch',
               nil,
               nil,
               SW_SHOW);
end;