Вопрос Кнопка

[Maxvell]

Подскажите код, чтобы после нажатия на кнопку, открылся сайт в браузере

procedure NewButtonClick(Sender: TObject);
begin
?
?
?
?
end;

 

[Krinkels]

procedure OpenBrowser;
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'krinkels.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;