[BCB] 抓取目前執行檔的資料夾

如何抓取目前執行檔的資料夾

ExtractFilePath(Application->ExeName);