var
  iHObj: Integer;
...
{ Get the object }
iHObj := ImageEnVect1.GetObjFromIndex(3);
{ Unselect all objects }
ImageEnVect1.UnSelAllObjects;
{ Select one object }
ImageEnVect1.AddSelObject(iHObj);
...