This is what I came up with...
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;