BCB 使用OpenDialog時無法設定初始目錄

最近使用 BCB 的 OpenDialog 寫一個選取檔案的程式

OpenDialog1->InitialDir=ExtractFileDir(Application->ExeName);

才發現一直無法設定程式所在的目錄為開啟的預設目錄
會一直停留在上一次取檔的目錄
而且程式重啟也是會記得
在網路上程式的解法都是

1. OpenDialog1->Options->ofNoChangeDir = true
2. Execute 完 Dialog 後, 要把 FileName 清空
   (有試過在設定InitialDir之前清除也可以)

後來發現其實有一個重點
應該是使用ExtractFileDir之後要接反斜線
OpenDialog1->InitialDir=ExtractFileDir(Application->ExeName)+"\\";
這樣就不用清空FileName
我猜是因為判定不是目錄的原因才會有問題