vent function

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShellExecute(NULL,\"open\",\"1.exe\", NULL,NULL,SW_SHOWNORMAL);
ShellExecute(NULL,\"open\",\"2.exe\", NULL,NULL,SW_SHOWNORMAL);
ShellExecute(NULL,\"open\",\"3.exe\", NULL,NULL,SW_SHOWNORMAL);
}
I kan gætte jer til hvad dette stykke kode gør.  :-)

Ønskes:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShellExecute(NULL,\"open\",\"1.exe\", NULL,NULL,SW_SHOWNORMAL);
Vent 10 skeunder og så forsæt
ShellExecute(NULL,\"open\",\"2.exe\", NULL,NULL,SW_SHOWNORMAL);
Vent 10 skeunder og så forsæt
ShellExecute(NULL,\"open\",\"3.exe\", NULL,NULL,SW_SHOWNORMAL);
}