Программная пауза

Button1->Enabled = false;
// OnButton2Click
Button1->Enabled = true;

Button1->Enabled = false;

Button1->Enabled = true;

bool pause;

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    pause = false;  //начальное значение - пауза выключена
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for (int i = 0; i <= 50; i++)
    {  //здесь делаем в цикле какое-то действие
        Label1->Caption = IntToStr(i);
        Form1->Refresh();
        Sleep(50);
 
        if (i == 25)  //при наступлении какого-то условия
            pause = true;  //включаем паузу
 
        while (pause)  //ждём, пока пауза не будет отключена
        {
            Application->ProcessMessages();  //чтобы обработать событие FormKeyPress
        }
    }
}
 
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
    pause = false;  //после нажатия любой кнопки отключаем паузу
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
const c=25;
int k,r,g,b,f,r1,g1,b1,n,n1,p;
float a,s,m;
double q,t;
 
k=Edit1->Text.ToInt(); 
t=1.0/3.0;
q=pow(k,t);        
a=255/q;             
 
Label2->Caption=q;
Label4->Caption=a;
 
for (r=0; r<=255; r=r+c)
 for (g=0; g<=255; g=g+c)
  for (b=0; b<=255; b=b+c)
   {s=0;
    for (f=1; f<=q; f++)
    {
     s=s+a;
     if (r<s) {r1=s-a/2;
      break;}
    }
    s=0;
    for (f=1; f<=q; f++)
    {
     s=s+a;
     if (g<s) {g1=s-a/2;
      break;}
    }
    s=0;
    for (f=1; f<=q; f++)
    {
     s=s+a;
     if (b<s) {b1=s-a/2;
      break;}
    }
    n=r+g*256+b*65536;
    n1=r1+g1*256+b1*65536;
    Canvas->Brush->Color=n;
    Canvas->Rectangle(225,25,250,50);
    Canvas->Brush->Color=n1;
    Canvas->Rectangle(300,25,325,50);}
 
}

    pause = true;
    while (pause)  //ждём, пока пауза не будет отключена
    {
        Application->ProcessMessages();  //чтобы обработать событие FormKeyPress
    }

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
    pause = false;  //после нажатия любой кнопки отключаем паузу
}

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
    if (Key == VK_RETURN)
        ShowMessage("íàæàëè ýíòåð");
    else if (Key == 'g')
        ShowMessage("íàæàëè g");
    else if (Key == '1')
        ShowMessage("íàæàëè 1");
    else if (Key == 'f')
        Key = 0;  //îòìåíÿåì íàæàòèå êíîïêè F
}

__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner){}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
const c=25;
int k,r,g,b,f,r1,g1,b1,n,n1,p;
float a,s,m;
double q,t;
bool pause;
 
k=Edit1->Text.ToInt(); //кол-во цветов
t=1.0/3.0;
q=pow(k,t);          //кол-во отрезков
a=255/q;               //размер отрезка
 
Label2->Caption=q;
Label4->Caption=a;
 
for (r=0; r<=255; r=r+c)
 for (g=0; g<=255; g=g+c)
  for (b=0; b<=255; b=b+c)
   {s=0;
    for (f=1; f<=q; f++)
    {
     s=s+a;
     if (r<s) {r1=s-a/2;
      break;}
    }
    s=0;
    for (f=1; f<=q; f++)
    {
     s=s+a;
     if (g<s) {g1=s-a/2;
      break;}
    }
    s=0;
    for (f=1; f<=q; f++)
    {
     s=s+a;
     if (b<s) {b1=s-a/2;
      break;}
    }
    n=r+g*256+b*65536;
    n1=r1+g1*256+b1*65536;
    Canvas->Brush->Color=n;
    Canvas->Rectangle(225,25,250,50);
    Canvas->Brush->Color=n1;
    Canvas->Rectangle(300,25,325,50);}
    pause = true;
    while (pause)  //ждём, пока пауза не будет отключена
    {
        Application->ProcessMessages();  //чтобы обработать событие FormKeyPress
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
    bool pause;
    pause = false;  //после нажатия любой кнопки отключаем паузу
}

KeyPreview=true;