Каталог вашего приложения I

Application.EXEName возвращает полное имя вашего приложения, включая диск и путь. Использование функции ExtractFilePath() с Application.EXEName в качестве параметра позволяет получить только диск и путь. Просто!