ImageEn, unit ievect
TIEUserSelectObject
Declaration
TIEUserSelectObject = procedure(Sender: TObject; hobj: integer) of object;