Abrindo um web site

// Uses ShellApi;

var
St:Array[0..255] of char;
begin
ShellExecute(Handle,'open',StrPCopy(St,'http://'+ Label1.Caption),nil,nil,SW_SHOW);
end;