Source position: msefiledialog.pas line 502
procedure tfiledialogfo.createdironexecute(
const sender: TObject
);