Verzögerungsschleifen

// Bsp 1: 
void TForm1::__Delay(const DWORD Millisekunden)
{
    DWORD Start = GetTickCount();
    DWORD Ist = Start;

    while (((Ist - Start) < Millisekunden) &amp;&amp; (Start <= Ist)) Ist = GetTickCount();
}

// Bsp 2: 
void TForm1::__Delay(int D) // Dauer in Millisekunden
{
    for (int i = 0; i < D; i += 50)
    {
        Sleep(50);
        Application->ProcessMessages();
    }
}