МБ Марина Бухарова исторически сложилось что надо взять Paramstr(0) и найти в нем последний слэш, после чего обрезать все, что за ним. Это и будет путь к каталогу программы.