Графическая задача Delphi 7

[Deine]

Задача: робот заталкивает мяч в лунку.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y,a,b,dx:Integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
Canvas.MoveTo(50, 100);
Canvas.LineTo(300, 100);
Canvas.LineTo(300, 150);
Canvas.LineTo(350, 150);
Canvas.LineTo(350, 100);
Canvas.LineTo(400, 100);
x:=50;
y:=50;
a:=100;
b:=50;
dx:=3;
Canvas.Rectangle(x,y,x+50,y+50);
Canvas.Ellipse(a,b,a+50,b+50);
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval:=20;
 Form1.Canvas.Pen.Color:=Form1.Color;
 Form1.Canvas.Rectangle(x,y,x+50,y+50);
 x:=x+dx;
 Form1.Canvas.Pen.Color:=clGreen;
 Form1.Canvas.Rectangle(x,y,x+50,y+50);

 Form1.Canvas.Pen.Color:=Form1.Color;
 Form1.Canvas.Ellipse(a,b,a+50,b+50);
 a:=a+dx;
 Form1.Canvas.Pen.Color:=Clblue;
 Form1.Canvas.Ellipse(a,b,a+50,b+50);
 if x>=300 then Timer1.Enabled:=False;
 if x>=300 then Timer2.Enabled:=True;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer1.Interval:=20;
  Form1.Canvas.Pen.Color:=Form1.Color;
 Form1.Canvas.Ellipse(a,b,a+50,b+50);
 b:=b+dx;
 Form1.Canvas.Pen.Color:=Clblue;
 Form1.Canvas.Ellipse(a,b,a+50,b+50);
 if b>=150 then Timer1.Enabled:=False;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
Close;
end;

end.

Проблема: Фигуры стоят на месте, не двигаясь.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.