Проблема с удалением письма (IdPop31)

← →
Delphin © (2003-07-09 20:51) [0]

Есть такой код:

................
I:=IdPOP31.CheckMessages;
Repeat
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
IdPOP31.Retrieve(X,IdMessage1);
FR:=IdMessage1.From.Address;
IF FR=ListBox1.Items[ListBox1.ItemIndex] Then
IdPOP31.Delete(X)
Else
IdMessage1.Clear;
IF (ListBox1.ItemIndex+1=ListBox1.Items.Count)AND
(X<I)
Then Begin
ListBox1.ItemIndex:=0;
X:=X+1;
Edit2.Text:=IntToStr(X);
End;
Until (ListBox1.ItemIndex+1=ListBox1.Items.Count)
End;

Ошибок нигде не выдаёт, и письма тоже не удаляет. Может кто-то знает, как с этим бороться?

← →
Е-Моё имя © (2003-07-10 09:59) [1]

может сессию закрыть?

Всё разобрался, просто не так поставил условия перед выполнением этой процедуры ;)

Проблема с удалением письма (IdPop31) Найти похожие ветки