Вот смотрю я пример из delphi\demos\fastnet\nmpop3 и не пойму зачем нужен цикл от 1 до 500. В чём подвох?

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 500 do
NMPOP31.GetMailMessage(StrToInt(Edit5.Text));
Edit6.Text := NMPOP31.MailMessage.From;
Edit7.Text := NMPOP31.MailMessage.Subject;
Edit9.Text := NMPOP31.MailMessage.MessageID;
Memo2.Lines.Assign(NMPOP31.MailMessage.Head);
Memo1.Lines.Assign(NMPOP31.MailMessage.Body);
If NMPOP31.MailMessage.Attachments.Text <> '' then
ShowMessage('Attachments:'+#10#13+NMPOP31.MailMessage.Attachments.Text);
end;