How To Open Url In Default Webbrowser

Use this function to open your browser with a given URL.

 

uses  
  shellapi;  

....  

procedure TForm1.Label1Click(Sender:TObject);  
begin  
  shellexecute(handle,'open','http://www.swissdelphicenter.ch', 
nil,nil,sw_show);  
end;