Danke für die Antwort.
Jetzt ist bei mir aber noch eine Frage aufgekommen:
Undzwar würde ich gerne alle Absender auslesen, von denen Mails im Postfach liegen. Dazu habe ich folgendes:
Code:
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?

//EDIT
So dank ein wenig Hilfe weiß ich jetzt wie es geht. IdMessage1 musste bei jedem Schleifendurchlauf noch geleert werden.