Задержка в программе

int time=GetTickCount();
while((GetTickCount()-time)<1000)//Или меняй задержку на свою
          {
          Application->ProcessMessage(); 
          }

while (st < tt)
       {
        _asm
    {
        mov dx, 378h
        mov al, 0
        out dx, al
    }
        Sleep(lp);
        lpc ++;
        _asm
    {
        mov dx, 378h
        mov al, 1
        out dx, al
    }
        Sleep(rt);
       _asm
    {
        mov dx, 378h
        mov al, 0
        out dx, al
    }
        Sleep(sp);
        spc ++;
        _asm
    {
        mov dx, 378h
        mov al, 1
        out dx, al
    }
        Sleep(rt);
        st = st + lp + sp;
        twt = st + 2*rt*lpc;
        pd = 100*(st/tt);
        Form3->Label5->Caption = pd;
        Form3->Label6->Caption = st/1000;
        Form3->Label7->Caption = twt/1000;
    }