Бедняга smtp! жертва спамеров

if strtoint(current.Caption)=0 then
begin
finish.Caption:=inttostr(input.Count-1);
smtp.Host:=server.Text;
smtp.UserID:=userid.Text;
smtp.Connect;
showmessage('!');
end;
i:=strtoint(current.caption);
current.caption:= inttostr(i);
repeat
inc(i);
SMTP.EncodeType := uuCode;
smtp.SubType:=mtPlain;
smtp.PostMessage.Create;
smtp.PostMessage.FromAddress:=FromAddress.Text;
smtp.PostMessage.FromName:=fromname.Text;
smtp.PostMessage.ToAddress.Text:=input.Strings;
smtp.PostMessage.Body.Text:=text.Text;
smtp.PostMessage.Subject:=subject.Text;
smtp.PostMessage.LocalProgram:='The Bat v1.6';
smtp.PostMessage.Date:='11:22:33 01.12.2372';
smtp.PostMessage.ReplyTo:=replyto.Text;
smtp.SendMail;
showmessage('ok') ;
application.ProcessMessages;
until abort or (i>=(strtoint(finish.Caption))-1);