Unterordnernamen auslesen

[SaFu]

Guten morgen
Hab mal ne Frage zum ShellTreeView ich habe das Shelltreeview auf einen bestimmten Ordener gesetzt in dem Erzeuge ich dann unterordner.

Danach werden dateien erstellt und die will ich jetzt mit dem Unterordnernamen und datei namen abspeichern

Mein problem ist jetzt wie lese ich den Unterordenernamen aus um den in den in den namen der zu speichernde Datei zu übergeben

Delphi-Quellcode:

 Grid:= hier muss der name des unter ordners aus dem ShellTreeview + ComboBox4.Text+'.txt';
  FileStream.SaveToFile(Grid);

Danke schonmal