Ordner in einer Listbox auflisten

[SirThornberry]

dann bau das doch um. Die unterordner vermeidest du indem du die rekursion verhinderst und den puren ordnernamen ohne pfad davor bekommst du direkt vom TSearchRec...
Die Infos sind absichtlich so sperlich da ich den eindruck habe das du den source nicht verstanden hast und du somit nicht wirklich programmierst sondern einfach dein Programm aus bausteinen anderer zusammensetzt ohne diese zu verstehen.
Auf diese Art und weise hoff ich das du versuchst den source zu verstehen und somit irgendwann auch besser wirst... (in sachen programmieren)