E-Mail´s vor dem Empfangen sortieren?

[Karstadt]

Delphi-Quellcode:

            if (IdMessage1.MessageParts.Items[intIndex] is TIdAttachment) then
            begin
              Dateiname := TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).Filename;

so rufe ich die E-Mails. Wie kann ich aber die E-mail nach Datum sortieren? es ist wichtig, dass ich die ältersten E-mails zu erst empfange.