envio de email pelo delphi 7

Ola Pessoal. Estou tentando enviar email diretamento do delphi7 e não to conseguindo.

Essa é minha rotina

IdSMTP1.Port := 25;
IdSMTP1.Host := 'smtp.uol.com.br';
IdSMTP1.Username := 'meu login';
IdSMTP1.Password := 'minha senha';
IdSMTP1.AuthenticationType := atLogin;
IdMessage1.From.Address := 'meu email';
IdMessage1.Recipients.EMailAddresses := 'email destino';
IdMessage1.Subject := 'assunto';
IdMessage1.Body := 'minha mensagem';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso', 'Confirmação',MB_ICONINFORMATION + MB_OK);

Debugando, quando chega na linha connect, demora um pouco e aparece erro socket 10060.

Ja tirei o escaner do avast para smtp

Obrigado