Source position: msefiledialog.pas line 49
type getfileiconeventty = procedure(
const sender: tobject;
const ainfo: fileinfoty;
var imagelist: timagelist;
var imagenr: Integer
) of object;