При запуске программы функция ExtractFilePath(Application->ExeName);
возвращает неправильный путь запускаемого файла.

Например, файл main.exe запускается из директории "C:\\ProgramFiles\\TestProgramm\\main.exe"

а функция ExtractFilePath(Application->ExeName);

возвращает путь "C:\\ProgramFiles\\TestProgramm\\.\\"
 
никак не пойму в чем дело? и что делать в данной ситуации,
так как из-за неправильного полученного пути, запущенная
программа отказывается работать правильно.

Подскажите как определить правильный путь запускаемой программы?

У меня нормально всё возвращает, специально сейчас проверил. Показывай код.