1:
2:
3:
4:
5:

For i := Pred(IdPop31.CheckMessages) downto 0 do 
begin 
  IdPop31.Retrieve(i, IdMessage1);
  Memo1.Lines.Add('Betreff: '+IdMessage1.Subject); 
end;					

1:
2:
3:
4:
5:

For i := IdPop31.CheckMessages downto 1 do 
begin 
  IdPop31.Retrieve(i, IdMessage1);
  Memo1.Lines.Add('Betreff: '+IdMessage1.Subject); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

for i := 1 to IdPOP31.CheckMessages do
        begin
             // clear the component to store the mail
             IdMessageMail.Clear;
             // set nodecode to true because the mails send by the
             // server don't use mime
             IdMessageMail.NoDecode := True;
             // clear the mail body

             // retrieve the mail
             IdPOP31.Retrieve(i,IdMessageMail);

             Index := MailSubjects.Add(IdMessageMail.Subject);

             CheckListBoxMails.Items.Insert(Index,IdMessageMail.From.Address);
             CheckListBoxMails.Checked[Index] := True;

             MailBodys.Insert(Index,TStringlist.Create);
             TStringlist(MailBodys[Index]).Text := IdMessageMail.Body.Text;

             IDPop31.Delete(i);
        end;