[san-46]

uses Sysutils;
ExtractFilePath(<FullPathFileName>) - функция возвращает путь, выделяя его из полного пути к файлу, где есть и имя файла.
ExtractFileName(<FullPathFileName>) - функция возвращает имя файла, из полного пути.