Печать. Программа частично перестает отвечать.

Printe()->BeginDoc();// запускаем печать
while ( Printe()->Printing ) // если печатает
{
 
                        for ( int i = 0; i < 6; i++ )
                        {
                        //выполняем то что нужно
                        }
 
                        //Printe()->Draw...
 
                        page++; // увеличиваем счетчик страниц
 
                        if ( page < PrintDialog1->Copies ) // счетчик меньше кол-ва покий
                        {
                                   Printe()->NewPage(); // новый лист
                        }
}
Printe()->EndDoc();// конец печати

Printe()->BeginDoc();

Printe()->EndDoc();

TProgressBar * Progress = (TProgressBar*)
Application->MainForm->FindComponent("ProgressBar1");
while (1)
  for (int index = 0; index < 100; index++)
  {
    Progress->Position = index;
    Sleep(10);
  }

public:
  TProgress * ProgressThread;

ProgressThread = new TProgress(true);

ProgressThread->Resume();

ProgressThread->Suspend();

Printe()->BeginDoc();// запускаем печать
//>>>>>
while ( page != PrintDialog1->Copies ) // если страница не сравнялась с кол-во копий
//>>>>>
{
 
                        for ( int i = 0; i < 6; i++ )
                        {
                        //выполняем то что нужно
                        }
 
                        //Printe()->Draw...
 
                        page++; // увеличиваем счетчик страниц
 
                        if ( page < PrintDialog1->Copies ) // счетчик меньше кол-ва покий
                        {
                                   Printe()->NewPage(); // новый лист
                        }
}
Printe()->EndDoc();// конец печати