При выполнении цикла форма подвисает

Application->ProcessMessages();

Sleep(y);

Application->ProcessMessages();

void TForm1::Funct1(int i){
Sleep(1000);
//Код
}
void TForm1::Funct2(int i){
Sleep(1000);
//Код
}
void TForm1::Funct(int i){
   Funct1(i);
   Funct1(i);
}
//---------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   for(int i = 0; i < n; i++){
      Ping(i);
   }
}

//---------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
switch(i)
 {
 case 1: Funct1(i);break;
 case 2: Funct2(i);break; 
 // итд
 default: Timer->Enabled= false;
 }
i++;
}

void TForm1::Funct1(int i /*- индекс строки*/){ //В МЕМО1 выводим строки через определенное время
Sleep(1000);//Определенное время (рандом)
//Код который выполняется после [B]сна "Sleep(1000)"[/B]
}
void TForm1::Funct2(int i /*- индекс строки*/){ //В МЕМО2 выводим строки через определенное время
Sleep(1000);//Определенное время (рандом)
//Код который выполняется после [B]сна "Sleep(1000)"[/B]
}
void TForm1::Funct(int i){
   Funct1(i);
   Funct1(i);
}
//---------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   for(int i = 0; i < n; i++){
      Ping(i); // здесь в цикле мы уже выполняем добавления строк в МЕМО1 и МЕМО2
   }
}