Interpolacion RGB

[[Caral]]

Hola
No dejo de aprender con el código de cHackAll, no dejas de impresionarme amigo.
Haciendo un poco de chapuzas quise que el color estuviese en el form completo, que cuando se amplie o reduzca el color haga lo mismo y que con un trackbar se pudiera cambiar, ademas de hacerlo que siga la linea del form, sin la inclinacion (bueno, metiendome en camisa de once varas)
Logre que se ampliara hacia abajo, que siguiera la linea del form y que cambiara el color con el trackbar (hace un efecto simpatico).
Lo que no me aclaro es como hacer que crezca completo cuando el form se amplia?.
Aqui tu codigo con estos detalles:

Código Delphi [-]
procedure TForm1.TrackBar1Change(Sender: TObject);
var Offset, Value, Index: Cardinal;
begin
 Offset := TrackBar1.Position;
 Value := 255;
 for Index := 0 to 255 * 3 do
  begin
   Canvas.Pen.Color := Value;
   Canvas.MoveTo(Index, 0);
   Canvas.LineTo(Index + 0, Form1.ClientHeight);
   Dec(PByte(Cardinal(@Value) + (Offset mod 3))^);
   Inc(PByte(Cardinal(@Value) + ((Offset + 1) mod 3))^);
   if ((Index + 1) mod 255) = 0 then
    Inc(Offset);
  end;
end;

Bueno, la pregunta es obvia: Como lo hago amigo?.
Saludos