Zatrzymanie wykonywania programu na podany czas

Aby po kliknięciu przycisku Button1 wstrzymać na określony czas wykonywanie programu wywołujemy funkcję Windows API Sleep() podając jako jej argument czas w milisekundach (1 s = 1000 ms):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Sleep(5000);
}