Opendialog hat eine Eventmethode, wo man sich rein hängen kann.
Am Besten auch den "neueren" TFileOpenDialog benutzen, anstatt dem alten TOpenDialog.
in FileOpenDialog.OnExecute kannst du über FileOpenDialog.Dialog Zugriff bekommen,
siehe TCustomFileDialog.Execute // DefaultFolder
Der TOpenDialog wird in neueren Windowsen intern auf die neue
API umgeverbogen, aber dem Entwickler wird jeglicher vernünftige Zugriff auf den Dialog verwehrt, durch eine echt grauenhafte Implementation.
Das Event nutzt Delphi selber aus, um z.B. den "Bug" zu beheben, dass Windows seit einer Weile den DefaultFolder/InitialDir einfach ignoriert, bzw. denkt da automatisch etwas zu auszuwählen, wo es denkt der Endnutzer würde sich freuen.