function NewGradientPanel( AParent: PControl; Color1, Color2: TColor ): PControl;

Creates gradient-filled STATIC control. To adjust colors at the run time, change Color1 and Color2 properties (which initially are assigned from Color1, Color2 parameters), and call Invalidate method to repaint control.