Ну попробуй Try...Except:
Код:
for n:=0 to 100 do begin
TRY
idsmtp1.Host:='SMTP.xxx.ru';
idsmtp1.port:=25;
idsmtp1.Username:='xxx';
idsmtp1.password:='xxx';
idmessage1.body.Text:=memo2.text;
idmessage1.from.Text:=edit2.text;
idmessage1.recipients.EMailAddresses:=edit1.text;
idmessage1.subject:=edit3.text;
idmessage1.IsEncoded:=true;
attach:=TIdAttachment.Create(idmessage1.MessagePar ts, listbox2.Items[n]);
idsmtp1.connect();
if idsmtp1.connected=true then begin
idsmtp1.send(idmessage1);
IdMessage1.Clear;
idsmtp1.disconnect;
end;
Except
{вот здесь можешь вывести ошибку, если надо... или нечего не выводи}
end;
end;