Суть проблемы заключается в следующем:

При нажатии на Button в директории программы должна появиться новая папка (её имя пользователь вводит в Edit) и в эту новую папку должны скопироваться файлы (имена которых известны) из папки, находящейся в директории программы.

Например:

C:\\….\Programma\ - папка с программой
C:\\….\Programma\Dir\ - папка с файлами (допустим 1.db, 2.db и 3.db)
C:\\….\Programma\New\ - папка, которая создаётся при нажатии на Button и в которую копируются 1.db, 2.db и 3.db

Проблема в том, что не известен адрес папки Programma. Перед созданием папки пользователь совершает много других операций, после которых папка с программой перестаёт быть текущей.

Подскажите как решить проблему!!

ExtractFilePath(Application->ExeName)

P.S.
название темы должно отражать ее суть ( проблему автора )