Crear un Degradado entre dos colores

[aeff]

Saludos, colegas la cuestion que trato de resolver es lograr un degradado entre dos colores, para explicarme mejor, tengo dos colores, por ejemplo: clRed y clBlue, y necesito degradar el rojo hasta llegar a azul verticalmente, claro, pintando en el canvas de un objeto y teniendo en cuenta el Height del mismo de forma que la degradación se ajuste al área ¿no?.

En el Trucomania existe una referencia de como lograr un degradado tipo instalación, en este caso no me preocupa el Height de el objeto en cuestion (el Form), pero el degradado es de un color específico hacia negro y lo que quiero es lograrlo entre dos colores:

 procedure TForm1.FormPaint(Sender: TObject);
  var 
     Row, Ht: Word ;
  begin 
     Ht := (ClientHeight + 255) div 256 ;
     for Row := 0 to 255 do 
       with Canvas do begin 
          Brush.Color := RGB(0, 0, Row) ;
          FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;
       end ;
  end;

alguien me puede dar una mano en esto colegas ???

mil gracias de antemano, en verdad!, mil gracias!

saludos!
aeff!