1:
2:
3:
4:
5:

procedure TForm1.CheaterElite2Click(Sender: TObject);
begin
if shellexecute(handle,'open','http://www.cheaterelite.de',nil,nil,sw_show)<=32
then showmessage('Internetseite konnte nicht geöffnet werden!');
end;					

1:
2:
3:

unit Unit1;

uses Windows, Dialogs, Forms, {...}, irgendneandereunit;					

1:
2:
3:

unit Unit1;

uses Windows, Dialogs, Forms, {...}, irgendneandereunit, ShellAPI;