Botão para enviar email / delphi

[Marruco]

Bom já vi que muita gente pede, e so mandam scripts com muita coisa inútil.

Então vou desponibilizar um aqui, que é pequeno e fácil.

var Mail : String;

begin

        Mail := 'viniciusmarruco@gmail.com'; // email aqui

        ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal); // vai abri a entrada padrão

end;