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