Source position: msefiledialog.pas line 508
procedure tfiledialogfo.dironsetvalue(
const sender: TObject;
var avalue: msestring;
var accept: Boolean
);