Problem mit email empfang

[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 ???