您好：
    使用OpenDialog的时候，加上这两句就好。
    OpenDialog1->Options.Clear();
    OpenDialog1->InitialDir = ExtraFilePath(Application->ExeName);