Problem mit email empfang

[Klaus01]

Delphi-Quellcode:

if mailcount > 0 then
  begin
    for Index := mailCount downto 1 do  // wie Sir Rufo schon geschrieben hat
      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