procedure THIWin.SetMouseEnter(Ev:THI_Event);
begin
  // история костыля:
  // если св-ва установлены, то появляется лишнее событие WM_PAINT на контролах, но верно работает MouseEnter
  // если не установлены или сделаны иначе, то MouseEvent может приходить много раз + еще хз какие проблемы
  fonMouseEnter := ev;
  Control.onMouseEnter  := _onMouseEnter;
end;

procedure THIWin.SetMouseLeave(Ev:THI_Event);
begin
  fonMouseLeave := ev;
  Control.onMouseLeave  := _onMouseLeave; 
end;

procedure THIWin.SetMouseEnter(Ev:THI_Event);
begin
  // история костыля:
  // если св-ва установлены, то появляется лишнее событие WM_PAINT на контролах, но верно работает MouseEnter
  // если не установлены или сделаны иначе, то MouseEvent может приходить много раз + еще хз какие проблемы
  fonMouseEnter := ev;
  if not Assigned(Control.onMouseEnter) then  // вот так к примеру
    Control.onMouseEnter  := _onMouseEnter;
end;

procedure THIWin.SetMouseLeave(Ev:THI_Event);
begin
  fonMouseLeave := ev;
  if not Assigned(Control.onMouseLeave) then // и так
    Control.onMouseLeave  := _onMouseLeave; 
end;