procedure TMainForm.ImageEnVect1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  hobj: integer;
  Distance: double;
begin
  hobj := ImageEnVect1.FindObjectAt(x, y, Distance);
  if (lasthobj > -1) and (Distance > 1) then begin
    ImageEnVect1.ObjBrushColor[lasthobj] := clWhite;
    ImageEnVect1.ObjBrushStyle[lasthobj] := bsClear;
    lasthobj := -1;
  end;

  if (hobj > -1) and (ImageEnVect1.ObjKind[hobj] = iekTEXT) and (Distance < 1) then begin
    if (lasthobj > -1) then begin
      ImageEnVect1.ObjBrushColor[lasthobj] := clWhite;
      ImageEnVect1.ObjBrushStyle[lasthobj] := bsClear;
    end;
    ImageEnVect1.ObjBrushColor[hobj] := clYellow;
    ImageEnVect1.ObjBrushStyle[hobj] := bsSolid;
    Label6.Caption := ImageEnVect1.ObjText[hobj];

    lasthobj := hobj;
  end;
end;