mit
ChangeFileExt kannst du ganz einfach die Dateiendung entfernen und dann schaust du einfach nur noch nach ob es dieses Verzeichnis gibt.
wenn du keine neue Dateierweiterung angibst, dann wird die alte sozusagen entfernt:
AlsVerzeichnisname := ChangeFileExt(Dateiname, '') + '\';