Problema com Delphi 7 - Formulário de Contato

[Lorrane123 0]

Eu estava tentando criar um formulário de contato no Delphi 7 com este código:

IdSMTP1.AuthenticationType := atLogin;

 

idSMTP1.Host := 'smtp.mail.yahoo.com.br' ;

 

idSMTP1.Port := 25;

 

idSMTP1.Username := '***************@yahoo.com';

 

idSMTP1.Password := '****';

 

idSMTP1.Connect(30000);

 

IdMessage1.From.Address := '***************@yahoo.com';

 

IdMessage1.Sender.Name := '***************@yahoo.com';

 

IdMessage1.Sender.Address := '***************@yahoo.com';

 

IdMessage1.Recipients.EMailAddresses := '***************@yahoo.com';

 

IdMessage1.Subject := edit1.Text + '''' + edit2.Text;

 

IdSMTP1.Send(IdMessage1);

 

IdSMTP1.Disconnect;

 

Sempre funcionou direitinho. Eu coloco o idSMTP e o idMessage, e esse código html no Button. Mas quando clico no Button, verifico no email e não tem nada. Não sei o que pode ser, sempre funcionou e agora não está mais funcionando. Já tentei em 4 e-mails diferentes e não chega! O que pode ser??