Problem mit email empfang

[Klaus01]

Zitat von Natcree:

Ich möchte mir emails über acount ins Programm laden was auch funktioniert.

Er soll aber die Verbindung deconnecten wenn keine EMails vorhanden sind. bevor er versucht die email runter zu laden.

Hier mal der code

Delphi-Quellcode:

if IdPop31.Connected then mailcount:=idpop31.CheckMessages;
for Index := 0 to pred(mailcount) do
begin
  try
      if mailcount<1 then IdPOP31.Disconnect;
      if mailcount<1 then else memo1.Clear;
      if mailcount<1 then else edit1.Clear;
      if mailcount<1 then else memo2.Clear;
      if mailcount<1 then else idmessage1.clear;
      if mailcount<1 then else IdPOP31.RetrieveHeader(Index, IdMessage1);
      if mailcount<1 then else memo1.text := (IdMessage1.From.Text);;
      if mailcount<1 then else IdPOP31.Retrieve(index,idMessage1);
      if mailcount<1 then else edit1.text := IdMessage1.Subject;
      if mailcount<1 then else IdPOP31.Retrieve(index,idMessage1);
      if mailcount<1 then else Memo2.text := IdMessage1.body.GetText;
      if mailcount<1 then else IdPOP31.Delete(index);
      if mailcount<1 then else IdPOP31.Disconnect;

    finally
idmessage1.Free;
end;
end;
end;

Er macht es aber nicht Wo steckt hier der Fehler drinn ???

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;
         //... stuff deleted
         IdPOP31.Disconnect;
      end;
  end
else
  idPop32.Disconnect;

Grüße
Klaus

end;