Вопрос: Как узнать каталог, где находится запускаемая программа?

Ответ : 
                ExtractFilePath(Application->ExeName);