Продолжение цикла

[stalker1995s]

Здравствуйте уважаемые, вот такая вот проблема, тревожить меня уже больше двух месяцев:
Скажем есть у нас цикл, который по очереди берет емейл адрес с текстового файла.
Скажем у нас 1500 тыс. емейлов, и он на каждый из них, отправляет написанный текст.
Как сделать выше перечисленное я знаю, и уже реализовал, но теперь проблема в следующем:
Цикл спотыкается об битые(не существующие) емейлы, и останавливает работу цикла.
Сам вопрос - 'Как избежать остановки цикла, т.е пропуск не рабочего.' Нашел не рабочий, плюнул на него, и дальше выполняет цикл.

P.S: Да, вы правы, я уже спрашивал, но спросил видимо не так. Надеюсь на вашу помощь. В случае могу предоставить код программы.

procedure TForm1.N1Click(Sender: TObject);
var n1,i,n2,index,name: integer;
SName: integer;
begin
Try
for index:= 0 to 1500 do
begin
idSMTP1.Username:=Edit1.Text; // Логин
idSMTP1.Password:=Edit2.Text; // Пороль
idSMTP1.Host:=ComboBox2.Text;
idSMTP1.Port:=25;
idSMTP1.AuthenticationType:=atLogin ;
name:=name+1;

IdMessage1.Body.Text:=Memo1.Text+' Код сообщения: '+IntToStr(SName);
idMessage1.From.Text:=Edit1.Text;
idMessage1.Recipients.EMailAddresse s:=ComboBox1.Items[name];
idMessage1.Subject:=Edit3.Text;
Label5.Caption:=intToStr(name);

idSMTP1.Connect(5000);
if idSMTP1.Connected=true then
begin
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
end;
end;
end;

[Человек_Борща]

try ... except + continue

[Yurk@]

procedure TForm1.N1Click(Sender: TObject);
var 
  n1,i,n2,index,name,SName: integer;
begin
  idSMTP1.Username:=Edit1.Text; // Логин
  idSMTP1.Password:=Edit2.Text; // Пороль
  idSMTP1.Host:=ComboBox2.Text;
  idSMTP1.Port:=25;
  idSMTP1.AuthenticationType:=atLogin ;
  for index:= 0 to 1500 do
  begin
    name:=name+1;
    IdMessage1.Body.Text:=Memo1.Text+' Код сообщения: '+IntToStr(SName);
    idMessage1.From.Text:=Edit1.Text;
    idMessage1.Recipients.EMailAddresse s:=ComboBox1.Items[name];
    idMessage1.Subject:=Edit3.Text;
    Label5.Caption:=intToStr(name);
    try
      idSMTP1.Connect(5000);
      if idSMTP1.Connected=true 
      then
        try
          idSMTP1.Send(idMessage1);
        Finally
          idSMTP1.Disconnect;
        end;
    Except
    end;
  end;
end;

более того, можно команду Connect вынести вверх перед цыклом (зачем каждый раз делать конект\диконект), а try..Finally оставить только на самом Send

[stalker1995s]

Очень благодарен, все работает.