do Uses pridej ShellApi, pak jak psal Rainbow pridej do tveho textu do udalosti OnClick nazev nove procedury a do ni dej tohle:

Kód:
ShellExecute(GetDesktopWindow(), 'open', PChar('mailto:ruzicka@antonin.cz'),
  nil, nil, SW_SHOWNORMAL);
nebo

Kód:
ShellExecute(GetDesktopWindow(), 'open', PChar('www.seznam.cz'),
  nil, nil, SW_SHOWNORMAL);