Свой таймер на QueryPerformanceCounter

[Mikle]

Пытаюсь осуществить subj, чтобы была полная аналогия стандартному таймеру, только точнее. Все получается только для RunTime. В приложении пример. Приходится вводить глобальную переменную RunTime, иначе в DesignTime таймер вешается. Но с этой переменной при запуске программы, если свойство Enabled установлено при дизайне в TRue, то таймер все равно не пускается, приходится прописывать в коде QTimer1.Enabled = True. Да и вообще хотелось бы избавиться от такой переменной, чтобы контрол получился независимым.
То, что этот таймер забирает 100% системного времени - понимаю, главное, что он отдает его по необходимости программе через DoEvents.