procedure THIMST_HDHints.SetHintManager;
begin
  if not Assigned(sControl) then exit;

  if Value = nil then
  begin
    defHintHD := THIHintManager.Create;
    defHintHD.InitByDefault;
    Value := defHintHD.getInterfaceHint;
  end;

  hid := Value.init(sControl.GetWindowHandle);
  Value.hint(hid, '');
  fHint := Value;
end;

//initialization
//  defHintHD := THIHintManager.Create;
//  defHintHD.InitByDefault;