LAN Web TCP Delphi

Title: 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;