Q:

Удаление писем почты и delphi

Всем привет! Удаляю сообщения из почты следующим образом:
IdPOP31.Host:='сервер';
  IdPOP31.Port:=110;   
  IdPOP31.Username:='имя';  
  IdPOP31.Password:='пароль';                    
  IdMessage1.Clear;                                          
  IdPOP31.Connect;                                          
  IdMessage1.CharSet:='utf-8';
  IdMessage1.Clear;                                         
  Application.ProcessMessages;
  lb_letters.Clear;
  j:=IdPOP31.CheckMessages;
  if IdPOP31.CheckMessages>0
  then for i:=1 to IdPOP31.CheckMessages do
  begin
    IdPOP31.RetrieveHeader(i, IdMessage1);
    if AnsiCompareText(IdMessage1.From.Address,'webmaster@mark-itt.ru')=0
    then begin
      IdPOP31.Retrieve(i, IdMessage1);
      IdPOP31.Delete(i);
      Application.ProcessMessages;
      p_attachment.Caption:=IntToStr(i)+'/'+IntToStr(j);
    end;
  end;
  IdPOP31.Disconnect;

В почтовом ящике огромное количество писем от одного получателя, хочу удалить все его письма. В принципе  всё работает, однако если я прерву работу "Ctrl+F2", то все письма остаются на месте. Возможно ли сделать так, чтобы те письма, которые уже прошли проверку на совпадения адреса удалялись в случае прерывания работы приложения???

A:

Первая ссылка из гугла: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370
Все остальные ссылки

