Нажатие на кнопку в Delphi

Помогите с кодом, чтоб при нажатии на кнопку открывалась папка в который лежит программа (название папки может быть любое) , но папки должна открыться именно с программой.
Спасибо.