ImageEn, unit ievect
TIEVNewObject
Declaration
TIEVNewObject = procedure(Sender: TObject; hobj: integer) of object;
Description
hobj is the handle of the new created object.