procedure TForm1.btn1Click(Sender: TObject); begin ShellExecute(0,'open','тут сайт',nil,nil,SW_SHOWMAXIMIZED); end;