Usuwanie emaila z serwera

Być może przeoczyłem ten temat, ale szukałem na 4p i w swoich zasobach na kompie, ale tego nie znalazłem.

Piszę program do usuwania niepotrzebnych emaili z serwera i szukam procedury, która będzie mi je usuwać poprzez email. Czyli np. wyświetli mi adres email nadawcy w Edit to usuwa tego emaila z serwera.

Ma ktoś może tą procedurkę i może mi ja wkleić?
Z góry dzięki!! [browar]

  pop.Connect;
  for i := pop.CheckMessages downto 1 do
  begin
    msg.Clear;
    if pop.Retrieve(i,msg) then
    begin
      ...//dowolny kod obrabiajacy maila
      pop.Delete(i);  //usuwa email o indeksie "i" z serwera 
    end;
  end;
  pop.Disconnect;

uwaga!! po usunieciu przesuwaja sie indeksy wiec najlepiej przegladac od najwyzszego indeksu</u>

Do tego już doszedłem, do usuwania po indeksach. Teraz muszę zrobić tak, że mam jakąś listę adresów email (w listbox) i program usuwa z serwera wszystkie nowe maile które posiadają adresy z tej listy. Bedzie tu trzeba kombinować z tymi indeksami. Dzięki.

Proste. Mozna to zrobic tak:

var sl : TStringList; //lista adresow;
...
 
  pop.Connect;
  for i := pop.CheckMessages downto 1 do
  begin
    msg.Clear;
    if pop.Retrieve(i,msg) then
    begin
      if sl.IndexOf(msg.subject)<>-1 then
        pop.Delete(i);  //usuwa email o indeksie "i" z serwera 
    end;
  end;
  pop.Disconnect;