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;