var
i: Integer;
begin
   if (listbox1.ItemIndex < > -1) and (listbox1.ItemIndex < ImageEnVect1.ObjectsCount) then
      begin
        for i: = 0 to ImageEnVect1.ObjectsCount - 1 do
         begin
           if (ImageEnVect1.ObjText [i] = '' + listbox1.Items [listbox1.ItemIndex] + '') then
            begin
              ImageEnVect1.SelObjects [i];
              Exit;
             end;
          end;
        end;
end;

if (ImageEnVect1.ObjText[ImageEnVect1.GetObjFromIndex( i )] = '' + listbox1.Items[listbox1.ItemIndex] + '') then
  ImageEnVect1.SelObjects [i];

procedure TForm2.Listbox1Click (broadcaster: TObject);
Var
  index: Integer;
begin
  ImageEnVect1. UnSelAllObjects;
  if Listbox1.ItemIndex < > -1 then
  begin
    Index: = Listbox1.ItemIndex;
    ImageEnVect1. SelObjects [index];
    label1. Caption: = IntToStr (index);
  end;
end;

procedure TForm2.Listbox1Click(Sender: TObject);
var
  index: Integer;
begin
  ImageEnVect1.UnSelAllObjects();
  if Listbox1.ItemIndex > -1 then
  begin
    Index := Listbox1.ItemIndex;
    ImageEnVect1.AddSelObject( ImageEnVect1.GetObjFromIndex( index ));
    label1.Caption: = IntToStr( index );
  end;
end;