StringList "gruppiert" sortieren nach Ordnern und Dateinamen

[juergen]

Hallo zusammen,

ich finde einfach keine Möglichkeit eine Listbox im virtuellen Style nach meinen Vorstellungen zu sortieren.
Die Daten bestehen aus:
Dateipfad + Dateiname + Dateiextansion
Der Listbox werden dann die Daten von einer TStringList übergeben.

Die einfache "Standard"-Sortierung könnte ja so ausschauen:

Delphi-Quellcode:

function Sort_by_Folder(strings: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := AnsiCompareText((strings[index1]), (strings[index2]))
end;

Aufruf...

Delphi-Quellcode:

...
My_StringList_PfadUndDatei.CustomSort(Sort_by_Folder)
...

Damit werden die Ordner korrekt sortiert, aber die Dateien aus dem "obersten" Ordner werden dannn alphabetisch eingeordnet und nicht zu dem obersten Ordner.
Alles klar? Mir fällt es etwas schwer das genau zu beschreiben, hoffe aber ihr versteht was ich meine.

Im Prinzip müsste ich eine "gruppierte" Sortierung haben. Erst nach Ordnern und innerhalb der Ordner nach Dateinamen.
Nur finde ich da überhaupt keinen Ansatz.

Hat da jemand von euch den Lichtblick?

Schon mal danke vorab!