timer kraviny

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Brush.Color:= clwhite;
Image1.Canvas.Pen.Color:= clblack;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Timer1.Enabled:= false;
Timer2.Enabled := false;
Timer3.Enabled:= false;
Timer4.Enabled:= false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Randomize;
x:= Random(Image1.Width);
y:= Random(Image1.Height);

        if x > Image1.Width / 2 then
        begin
        Image1.Canvas.Brush.Color:= clblue;
        Image1.Canvas.Rectangle(x,y,x+40,y+40);
        end;

        if x < Image1.Height / 2 then
        begin
        Image1.Canvas.Brush.Color:= clgreen;
        Image1.Canvas.Rectangle(x,y,x+40,y+40);
        end;

x:=x+10;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;



end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if RadioButton1.Checked then
begin
Randomize;
x:= Random(Image1.Width);
y:= Random(Image1.Height);
Image1.Canvas.Brush.Color:= clblue;
Image1.Canvas.Ellipse(x,y,x+30,y+30);
end;

if RadioButton2.Checked then
begin
Randomize;
x:= Random(Image1.Width);
y:= Random(Image1.Height);
Image1.Canvas.Brush.Color:= clblue;
Image1.Canvas.Rectangle(x,y,x+30,y+30);
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled := false;
Timer2.Enabled := false;
Timer3.Enabled := false;
Timer4.Enabled := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer2.Enabled:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Timer3.Enabled:= true;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin

if xx < Image1.Width then
begin
Image1.Canvas.Brush.Color:= clwhite;
Image1.Canvas.Pen.Color:= clblack;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.Ellipse(xx,yy,xx+30,yy+30);
end;

if xx > Image1.Width - 50 then
begin
Image1.Canvas.Pen.Color:= clblack;
Image1.Canvas.MoveTo(Image1.Width - 20,0);
Image1.Canvas.LineTo(Image1.Width - 20,30);
Timer3.Enabled:= false;
end;
xx:= xx+30;

end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
Image1.Canvas.LineTo(xxx,yyy);
Image1.Canvas.MoveTo(xxx+30,yyy+30);
Image1.Canvas.Pen.Color:=clblack;

yyy:= yyy+30;

if yyy > Image1.Height then
begin
Image1.Canvas.Pen.Color:=clwhite;
xxx:= xxx+50;
yyy:=0;
end;



end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Timer4.Enabled:= true;
end;

end.