Problem mit email empfang

[Natcree]

Danke erstmal zeigt mir aber fehler an

Delphi-Quellcode:

if IdPop31.Connected then mailcount:=idpop31.CheckMessages;

if mailcount > 0 then
  begin
    for Index := 0 to pred(mailcount) 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);
        idmessage1.Free;
        IdPOP31.Disconnect;
      end;
  end
else
  IdPOP31.Disconnect;
end;

Siehe Bild