var
...
deltaR,deltaG,deltaB:Double;
colorFrom,colorTo:Tcolor;

//область для процедур
procedure FormPaint(Dummy : Pointer;Sender: TObject);
begin
colorFrom:=clblue;//начальный цвет
colorTo:=clLime;//конечный цвет
//шаг для каждой компонеты RGB-цвета
deltaR:=(GetRValue(colorTo)-GetRValue(colorFrom))/form.Width;
deltaG:=(GetGValue(colorTo)-GetGValue(colorFrom))/form.Width;
deltaB:=(GetBValue(colorTo)-GetBValue(colorFrom))/form.Width;
For I:=0 to form.Width do begin
//задаём цвет кисти, составленной из трех компонентов
form.Canvas.Brush.Color:=RGB(
round(deltaR*i+GetRValue(colorFrom)),
round(deltaG*i+GetGValue(colorFrom)),
round(deltaB*i+GetBValue(colorFrom)));
form.Canvas.FillRect(form.ClientRect);
  end;
end;

...
round(deltaG*i+GetGValue(colorFrom)),
round(deltaB*i+GetBValue(colorFrom)));Rect.Left:=i;
Rect.Top:=0;
Rect.Right:=i+1;
Rect.Bottom:=Form.Height;
form.Canvas.FillRect(Rect);

program Gradient;

uses KOL;

begin
 Applet := NewForm(nil, '');
 Applet.Border := 0;
 with NewGradientPanel(Applet, clBlue, clLime)^ do
 begin
   Align := caClient;
   GradientStyle := gsHorizontal;
 end;
 Run(Applet);
end.