Hast Du einen Portblocker, Virenscanner o.ä. laufen, der u.U. verhindert, dass Dein Programm den Port 25 benutzen darf?
Du könntest auch versuchen, das Verschicken der Mail im OnRequestDone erledigen zu lassen, z.B.
Delphi-Quellcode:
procedure TForm1.SmtpCli1RequestDone(Sender: TObject; RqType: TSmtpRequest; Error: Word);
begin
if RqType=smtpConnect then SmtpCli1.Helo;
if RqType=smtpOpen then SmtpCli1.Helo;
if RqType=smtpHelo then begin
{Mail zusammenbauen}
SmtpCli1.Mail;
end;
if RqType=smtpMail then SmtpCli1.Quit;
if RqType=smtpQuit then
// Fertig...
if POP3Cli1.Connected then POP3Cli1.DisConnect;
end;