Envoyer un Email avec le logiciel de messagerie par défaut

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','mailto:user@host.com',nil,nil,sw_shownormal);
end;