музыка под настроение

PaintBox1->Canvas->Brush->Color = clBtnFace;
   PaintBox1-> Canvas->FillRect ( Canvas->ClipRect );
 
    int x = random ( 0x80 );
    int y = random ( 0x80 );
        int z = random ( 0x80 );
        int v = random ( 0x80 );
        int d = random ( 0x80 );
        int b = random ( 0x80 );
 
 
    int p = 24;
        PaintBox1->Canvas->Pen->Color = clTeal;
        PaintBox1->Canvas->Brush->Color = clAqua;
        PaintBox1->Canvas->Rectangle( p*1, 0x80, p*1.5, 0x80 - x );
 
        PaintBox1->Canvas->Brush->Color = clGray;
        PaintBox1->Canvas->Rectangle( p*2, 0x80, p*2.5, 0x80 - y );
 
        PaintBox1->Canvas->Brush->Color = clAqua;
        PaintBox1->Canvas->Rectangle( p*3, 0x80, p*3.5, 0x80 - z );
 
        PaintBox1->Canvas->Brush->Color = clGray;
   PaintBox1->  Canvas->Rectangle( p*4, 0x80, p*4.5, 0x80 - v );
 
   PaintBox1->  Canvas->Brush->Color = clAqua;
        PaintBox1->Canvas->Rectangle( p*5, 0x80, p*5.5, 0x80 - d );
 
        PaintBox1->Canvas->Brush->Color = clGray;
        PaintBox1->Canvas->Rectangle( p*6, 0x80, p*6.5, 0x80 - b );
 
        PaintBox1->Canvas->Pen->Color = clBtnFace;
        PaintBox1->Canvas->Brush->Color = clBtnFace;
        PaintBox1->Color=clHighlight;
        for ( int i = 0; i < 0x80; i += 5 )
        PaintBox1->Canvas->Rectangle( 0, i, p*6, i + 2 );