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

for (r=0; r<=255; r=r+c)
 for (g=0; g<=255; g=g+c)
  for (b=0; b<=255; b=b+c)

k=Edit1->Text.ToInt(); //количество цветов
t=1.0/3.0;
q=pow(k,t);          //количество отрезков
a=255/q;               //размер одного отрезка

    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);

void __fastcall FormKeyPress(TObject *Sender, char &Key);

private:    // User declarations

__published:    // IDE-managed Components

public:     // User declarations

 pause = false;

for (r=0; r<=255; r=r+c)
 for (g=0; g<=255; g=g+c)
  for (b=0; b<=255; b=b+c)

pause = true;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   Timer1->Enabled= false;
   Timer1->Interval= 10;
}
//---------------------------------------------------------------------------
const int max_value= 255;
const int c = 25;
int r= 0, g= 0, b= 0;
//---------------------------------------------------------------------------
int gen_value(int f,int q,int a,int value)
 {
   for (int s=0; f <= q; f++)
     {
       s += a;
       if (value < s) return  s-a/2;
     }
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  int k = Edit1->Text.ToIntDef(10); //кол-во цветов
  double t = 1.0 / 3.0;
  double q = pow(k, t);          //кол-во отрезков
  double a = 255 / q;               //размер отрезка
  int f=1;
 
  Label2->Caption = q;
  Label4->Caption = a;
 
  int r1= gen_value(f,q,a,r);
  int g1= gen_value(f,q,a,g);
  int b1= gen_value(f,q,a,b);
 
  TColor color= RGB(r,g,b);
  TColor newcolor= RGB(r1,g1,b1);
 
  Canvas->Brush->Color = color;
  Canvas->Rectangle(225, 25, 250, 50);
  Canvas->Brush->Color = newcolor;
  Canvas->Rectangle(300, 25, 325, 50);
 
  Memo1->Lines->Add(String(r)+"\t"+String(g)+"\t"+String(b)+"\t->\t"+
                    String(r1)+"\t"+String(g1)+"\t"+String(b1));
 
  b+=c;
  if( b> max_value)
   {
     b= 0;
     g+= c;
 
     if(g> max_value)
       {
        b= g= 0;
        r+= c;
 
        if( r> max_value)
          { g= b= r= 0; Timer1->Enabled= false; }
       }
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled= !Timer1->Enabled;
}
//---------------------------------------------------------------------------