float Step; 
TRect BandRect; 
//A panel doesn't have a canvas property. Create one.
TControlCanvas *PanelCanvas=new TControlCanvas; 
PanelCanvas->Control=Panel1; 

Step=(float)Panel1->ClientHeight/256;       //256 bandes de couleur 
for(int i=0;i<256;i++) 
{ 
  BandRect.Left=0; 
  BandRect.Top=(int)(i*Step); 
  BandRect.Right=Panel1->ClientWidth+1; 
  BandRect.Bottom=(int)((i+1)*Step);        // bandes horizontales 
  PanelCanvas->Brush->Color=RGB(0,0,255-i); // bandes bleues 
  PanelCanvas->FillRect(BandRect); 
} 
delete PanelCanvas;