Du könntest dich vom Ende (den Backslash dort entfernen!) in Richtung Anfang vorarbeiten und beim ersten gefundenen Backslash stoppen (deshalb ja den letzten wegmachen!
). Dann kopierst du den Teil von der aktuellen Position bis zum Ende und hast den letzten Namen des Ordners.
Wobei ich sicher bin, dass Delphi eine passende Funktion zur Verfügung stellt.
Und selbst wenn nicht, dann könnte man sich immer noch selbst eine schreiben.