Problem mit email empfang

[Klaus01]

.. wenn Du mails aus der Queue löscht dann
mache das bitte von oben/hinten nach unten/vorne.

Delphi-Quellcode:

if mailcount > 0 then
  begin
    for Index := pred(mailCount) downto 0 do
      begin
        memo1.Clear;
        edit1.Clear;
        memo2.Clear;
        idmessage1.clear;
        idPOP31.RetrieveHeader(Index, IdMessage1);
        memo1.text := (IdMessage1.From.Text);;
        IdPOP31.Retrieve(index,idMessage1);
        edit1.text := IdMessage1.Subject;
        IdPOP31.Retrieve(index,idMessage1);
        Memo2.text := IdMessage1.body.GetText;
        IdPOP31.Delete(index);
        //
        //IdPOP31.Disconnect;
      end;
    idmessage1.Free;
    IdPOP31.Disconnect;
  end
else
  IdPOP31.Disconnect;
end;

Grüße
Klaus