IdPOP3 alle Absender auslesen

[any_key]

Ahoihoi,
ich habe eine kurze Frage. Undzwar würde ich gerne alle Absender aus einem Email-Postfach auslesen.
Das ganze habe ich jetzt so realisiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  IdPOP31.Host := 'host';
  IdPOP31.Username := 'username';
  IdPOP31.Password := 'password';
  IdPOP31.Connect();
  for i := 1 to IdPOP31.CheckMessages do begin
    IdPOP31.Retrieve(i, IdMessage1);
    ShowMessage(IdMessage1.From.Text);
  end;
  IdPOP31.Disconnect;
end;

Eigentlich wird doch durch IdPOP31.CheckMessages die Gesamtzahl der Mails im Postfach ausgelesen. Von daher kann ich doch eigentlich über die Schleifenvariable i einfach bis zur Gesamtzahl der Mails durchgehen und jedes Mal den Absender auslesen. Aber wenn ich das ausprobiere wird immer nur der Absender der neusten Mail im Postfach angezeigt.
Kann mir da evtl jemand helfen?