Путь к папке проекта в designtime

Пишу компоненту которая должна открывать файлы, находящиеся в определенной подпапке по отношению к разрабатываемой программе.
В run-time всё понятно - ExtractFilePath(Application.ExeName)+FolderName
А вот как это сделать чтобы это сработало в designtime - т.е. разработчик указал в свойстве компоненты - имя папки ( короткое) а компонента сразу нашла эту папку и выполнила определенные действия???
Предположим что эти подпапки лежат в папке, в которой содержатся исходные файлы проекта.