Nach Datum Sortieren

[TurboMartin]

Hi DP ,
Ich habe folgenden Code:

Delphi-Quellcode:

strlBilder := TStringList.Create;
  FindFirst('*.jpg', faAnyFile, srBilder1);
  strlBilder.Add(srBilder1.Name);
  while FindNext(srBilder1) = 0 do
  begin
    strlBilder.Add(srBilder1.Name);
 //   ShowMessage('');
  end;
  FindClose(srBilder1);
  strlBilder.Sorted := false;
  strlBilder.CustomSort(@CompareDate);

Quele: Post #7
Allerdings funktioniert das nicht, und es gibt mindestens eine AV.
Aber wie kann ich es sonst nach Datum in einer StringList sortieren?