Использую TNMSMTP для отправки сообщений из Дельфийской программы. Иногда бывает нужно отправить сразу штук 20-30 сообщений подряд.

Соответственно, в цикле стоит вот такая конструкция:

try
Connect;
SendMail;
Disconnect;
except
on E: Exception do
begin
Disconnect;
SaveToLog('SendReportViaEMail', E.Message);
_Result := False;
end;
end; {try}

Вроде бы все exceptionы должны отлавливаться и писаться в LOG. НО!!! Все же иногда вылетает на экран сообщение с exception "Socket error" (например, штук 15 отправилось, а потом вылетел этот exception). Почему он не отлавливается в try...except? Как с этим бороться?