[Brons14]

Помогите пожайлуста сделать программу с TImage и таймером, вообщем я не знаю как рисовать произвольные линии по нажатию на таймер, но начало всегда в (0, Height), цвет тоже random.

Код:

procedure TForm4.Timer1Timer(Sender: TObject);
var
x,y,i: integer;
begin
x:=0;
y:=Image1.Height;
Image1.Canvas.LineTo(x,y);
Timer1.Enabled:=true;
x:=0;
y:=i;
Image1.Canvas.LineTo(x,y);