//  if (ToIntegerEvent(MyClass.Tracking) = 1) then
//   SendMessage(fTThwnd, TTM_TRACKPOSITION, 0, MAKELPARAM(pt.X, pt.Y));
//  SendMessage(fTThwnd, TTM_TRACKACTIVATE, 1, dword_ptr(@ti));