Muito obrigado pela dica, no seu codigo esta dando erro nessa parte:
IdSMTP1.AuthenticationType := := atLogin; [Error] Unit1.pas(190): Undeclared identifier: 'AuthenticationType' [Error] Unit1.pas(190): Undeclared identifier: 'atLogin' [As partes desta mensagem que não continham texto foram removidas]