Обработчик Отмены

[Progs1024]

Нужно создать обработчик кнопки "Отмена"... Она становится активной когда запущен поток, IdSMTP подключён, Отправляются файлы на почту... Функция Отмены заключается в следующем: останоыить отправку файлов, отключить ИдСМТП, остановить поток... Я попробовал это реализовать

if IdSMTP1.Connected then
try
  IdSMTP1.Disconnect;
  st.Terminate;
finally
  us(label8,label1,label2,progressbar1,button7,button4,st); //Приводит всё в первоначальный вид
end;

Но вылазиет ошибка, что когда я в делфи запускаю, что когда через проводник

Как сделать так чтобы действия выполнялись, а ошибка не вылазила?

[artemavd]

Может быть попробуете так:

var
i:integer;
...
if IdSMTP1.Connected then
try
  IdSMTP1.Disconnect;
  st.Terminate;
  us(label8,label1,label2,progressbar1,button7,button4,st); //Приводит всё в except
 on EAccessViolation do
   i:=1;
end;

Не уверен, что это правильно, но я бы попробовал это. Не знаю, попробуйте.