procedure TForm1.Label5Click(Sender: TObject);

begin

ShellExecute(0, 'open', 'http://www.bhnet.com.br/~simonet', nil, nil, SW_SHOWMAXIMIZED);

end;