Как определить имя файла программы и откуда она запущена

Информация о полном пути хранится в свойстве Application.ExeName или в ParamStr(0) (Именно с параметром 0 возвращается полный путь с названием запущенного приложения).
Для получения конкретных данных, на примере Application.ExeName, используйте ее совместно с функциями:

путь к файлу:
ExtractFilePath(Application.ExeName);

имя файла:
ExtractFileName(Application.ExeName);

расширение файла:
ExtractFileExt(Application.ExeName);

диск с которого запущено приложение:
ExtractFileDir(Application.ExeName);