procedure THITimer.OnStop;
begin
    if not FTimer.Enabled then exit;
    FTimer.Enabled := false;
   _hi_OnEvent(_event_onStop);
end;