[Brons14]

если сделать так

Код:

procedure TForm4.Timer1Timer(Sender: TObject);
var
x,y: integer;
begin
Image1.Canvas.MoveTo(0,Height-1);
 x:= random(Image1.Width);
 y:= random(Image1.Height);
 Image1.Canvas.LineTo(x,y);
 Image1.Canvas.Pen.Color:=Random($FFFFFF);

end;

то без изменений( может MoveTo не там нужно писать, Randomize исправил