[Prisoner]

Тогда поможет такой код, помещенный в любой целесообразный обработчик события:

Код:

var
  sEMailAddress, sSubject, sBody, sMailMessage: string;
begin
  sEMailAddress := 'somebody@mail.ru';
  sSubject      := 'Subject of message';
  sBody         := 'Here some strings of message which will be send.';

  sMailMessage  := 'mailto:' + sEMailAddress +
                '?subject=' + sSubject +
                '&body=' + sBody;

  ShellExecute(0, 'open', PChar(sMailMessage), '', '', SW_SHOWNORMAL));
  //по поводу ловли ошибок см. справку по функции ShellExecute
end;