ImageEnVect1.SetObjBitmapFromFile(-1, 'myimage.jpg');
ImageEnVect1.ObjKind[-1] := iekBitmap;
ImageEnVect1.SetObjRect(-1, Rect(0, 0, 800, 600));
ImageEnVect1.ObjStyle[hobj] := [ievsSelectable];
ImageEnVect1.AddNewObject();

procedure TForm1.ImageEnVect1ObjectClick(Sender: TObject; hobj: Integer);
{ ImageEnVect1ObjectClick. }
var
  iObjectKind: string;
begin
  ObjectName1.Text := string(ImageEnVect1.ObjName[hobj]);
  case ImageEnVect1.ObjKind[hobj] of
    iekNONE:
      iObjectKind := 'None';
    iekLINE:
      iObjectKind := 'Line';
    iekBOX:
      iObjectKind := 'Box';
    iekELLIPSE:
      iObjectKind := 'Ellipse';
    iekARC:
      iObjectKind := 'Arc';
    iekBITMAP:
      iObjectKind := 'Bitmap';
    iekText:
      iObjectKind := 'Text';
    iekRULER:
      iObjectKind := 'Ruler';
    iekPOLYLINE:
      iObjectKind := 'Polyline';
    iekANGLE:
      iObjectKind := 'Angle';
    iekMEMO:
      iObjectKind := 'Memo';
    iekLINELABEL:
      iObjectKind := 'LineLabel';
    iekEXTENDED:
      iObjectKind := 'Extended';
  end;
  ObjectKind1.Text := iObjectKind;
end;