Delphi dicas

E-mail pelo delphi

Procedure TForm1.Button1Click(Sender: TObject);

var Mail : String;

begin

        Mail := 'mailto:joaquim@softcominformatica.com.br';

        ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal);

end;