Great, after some studying the source code I understand now how to do this:
//TMyVectObject is derived from TIEExtendedObject IEVRegisterExtendedObject(TMyVectObject, 'TMyVectObject'); ImageEnVect1.ExtendedObjectToPut := 'TMyVectObject'; imageenvect1.MouseInteractVt := [miPutExtendedObject];
But on the inserting stage it draws a rectangle (MouseMove -> iekEXTENDED -> DrawBoxInserting). What is the best way to replace the paint handler on the inserting stage and draw custom shape?