[M.A.D.M.A.N.]

Код:

for i := 0 to 255 do
begin
  canvas.pen.color := rgb(i, i, i);
  canvas.moveto(0, i);
  canvas.lineto(10, i);
end;