Source position: msefiledialog.pas line 522
procedure tfiledialogfo.copytoclip(
const sender: TObject;
var avalue: msestring
);