Es wird nur eine Email empfangen(Indy pop3)

[Spurius]

Hallo,
ich versuche mit folgendem Code Mails von einem Server abzurufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 pop.Host := 'pop.gmx.net';
 pop.Username := 'irgendwer';
 pop.Password := 'irgendwas';
 pop.connect;

 for index := 1 to pop.CheckMessages do begin
  pop.RetrieveHeader(index,nachricht);       // nachricht ist eine idmessage
  flist := 1;
  fitem[index] := listview1.Items.Add;
  fitem[index].Caption := nachricht.Subject;
  fitem[index].SubItems.Add(nachricht.From.Text);
  fitem[index].SubItems.Add(datetostr(nachricht.Date));
  fitem[index].SubItems.add(inttostr(pop.RetrieveMsgSize(index) div 1024)+'kb');
 end;
 pop.Disconnect;
end;

Es wird jedoch nur die erste Mail im Postfach empfangen, diese wird dann sooft angezeigt, wie sich Emails im Postfach befinden.
Kann mir einer sagen, was ich da anders machen muss?
Gruß
Spurius