Странная работа TTimer

void __fastcall TProgress::FormShow(TObject *Sender)
{
sec=0;
milisec=0;
 
Timer1->Interval=1;
Timer2->Interval=1000;
 
Timer1->Enabled=true;
Timer2->Enabled=true;
}
 
void __fastcall TProgress::Timer1Timer(TObject *Sender)
{
milisec++;
}
 
void __fastcall TProgress::Timer2Timer(TObject *Sender)
{
sec++;  //здесь точка остановки, чтобы проверить что сейчас в milisec 
}

TDateTime dtN;
unsigned short hh, mm, ss, ms;
 
    dtN = Now();
    DecodeTime(dtN, hh, mm, ss, ms);

int MyVariable=0;
void Timer()
{
MyVariable++;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
LARGE_INTEGER f,Last_counter;
bool Res=QueryPerformanceFrequency(&f);
if(Res==false)
        {
        ShowMessage("у вас нет высокоточного таймера");
        return;
        }
int freq=f.QuadPart;//Количество тиков в секунду
 
MyVariable=0;
//Интервал - 1 мс
int micro_interval=freq/1000;//Сколько тиков должно натикать за 1 мс.
QueryPerformanceCounter(&Last_counter);
 
int millisec=GetTickCount();//Будем замерять сколько раз в секунду вызовется функция Timer
for(;(GetTickCount()-millisec)<1000;)
        {
        LARGE_INTEGER tick;
        QueryPerformanceCounter(&tick);
        if((tick.QuadPart-Last_counter.QuadPart)>=micro_interval)
                {
                Last_counter=tick;
                Timer();
                }
        }
ShowMessage(IntToStr(MyVariable));
}