Graphics:: TBitmap *Gradient = new Graphics:: TBitmap (); 
Gradient-> Height = 50; 
Gradient-> Width = 50; 
int h=Gradient-> Height; 
int w=Gradient-> Height; 
struct tRGB {int R, G, B;}; 
tRGB Color1, Color2; 

Color1.R=214; 
Color1.G=50; 
Color1.B=50; 

Color2.R=92; 
Color2.G=44; 
Color2.B=220; 

double Rg = (Color2.R-Color1.R); 
double Gg = (Color2.G-Color1.G); 
double Bg = (Color2.B-Color1.B); 
Rg / = w; 
Gg / = w; 
Bg / = w; 

for (int i=0; i <w+1; i ++) 
for (int i2=0; i2 <h+1; i2 ++) 
{ 
Gradient-> Canvas-> Pixels [i] [i2] =TColor (RGB (Color1.R+Rg*i,Color1.G+Gg*i,Color1.B+Bg*i)); 
}
Form1-> Canvas-> Draw (0,0, Gradient); 

delete Gradient;