[Страдалецъ]

Тогда уж лучше не двумя цветами пользоваться:

Код:

Inc(R,DR);
if R>255 then DR := -1;
if R<127 then DR := 1;
Form1.Image1.Canvas.Pen.Color := RGB(R,0,0);
Form1.Image1.Canvas.MoveTo(x0,y0); 
Form1.Image1.Canvas.LineTo(x0+200,y0);