Как получить путь к файлу?

Как получить имя и путь запущенной программы, если она запущена из каталога, указанного в переменной окружения PATH:

FileName:=FExpand(FSearch('file.ext',GetEnv('PATH')));