Можно к примеру по таймеру перерисовывать эти же линии, но с разными цветами...
Код:
//Установить красный цает линий
Form1.Image1.Canvas.Pen.Color := clRed;
Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);
//Установить синий цвет линий
Form1.Image1.Canvas.Pen.Color := clBlue;
Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);
Admin: Пользуемся тегами!