[Yurk@]

Вот держи образец рисования вертикальных линий + смена цвета (я сильно не зацикливался):

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
Kx,Ky,R,G,B :integer;
begin
R:=0;
G:=0;
B:=0;
Kx:=0;
Ky:=0;
Repeat
begin
Canvas.Pen.Color:=RGB(R,G,B);
Canvas.MoveTo(Kx,Ky);
Canvas.LineTo(Kx,Form1.ClientWidth);
R:=R+1;
G:=G+1;
B:=B+1;
Kx:=Kx+5;
end;
until (R>255) or (Ky>Form1.ClientWidth);
end;

Остальную часть проги, я думаю, сделаешь сам.
Если чё - пиши !!!!