if else невыполняеться условие

[DKENT]

Если сообщение отправлено то в memo добавляется лог, если сообщение не отправилось то в логе пусто, в моем случае не работает конструкция else

form1.IdSMTP1.Connect;
 if form1.IdSMTP1.Connected then
    begin
      form1.IdSMTP1.Send(form1.IdMessage1);
      form1.memo2.lines.add(form1.memo1.lines[i]+' - Отправлено');
     form1.label5.Caption:=inttostr(i);
    end
    else
 form1.memo2.lines.add(form1.Memo1.lines[i]+' - Ошибка');
 form1.IdSMTP1.Disconnect();
  form1.IdSMTP1.Free;
  form1.IdMessage1.Free;
  end;

Прошу помощи!

Необходимо проверять отправлено сообщение или нет и соответственно в логе выводить это все дело.
Заранее благодарен)

[Stilet]

 form1.IdSMTP1.Connect;
 if form1.IdSMTP1.Connected then    begin
     try
      form1.IdSMTP1.Send(form1.IdMessage1);
      form1.memo2.lines.add(form1.memo1.lines[i]+' - Отправлено');
      form1.label5.Caption:=inttostr(i);
     except
      on e:Exception do begin
        form1.memo2.lines.add(form1.Memo1.lines[i]+' - Ошибка '+e.Message);
      end;
     end;
    end else
      form1.memo2.lines.add(form1.Memo1.lines[i]+' - Не соединено');

 form1.IdSMTP1.Disconnect();
  form1.IdSMTP1.Free;
  form1.IdMessage1.Free;
  end;