1.添加幾何(Shape)控件
2.添加定時器(Timer)控件,并雙擊它添加代碼，讓Shape1向右移動
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Shape1.Left:=Shape1.Left+5;
end;
3.再添加幾何(Shape)控件
改變其"形狀"(Shape)屬性為"圓形"
4.再添加定時器(Timer)控件,并雙擊它添加代碼，讓Shape2向上移動
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Shape2.Top:=Shape2.Top-10;
  if Shape2.Top=0 then Shape2.Top:=250;
end;
5.改變第二個定時器Timer2的Enabled屬性使剛開始不移動
6.添加一個按鈕，標題(Caption)改為"射擊"，并添加事件和代碼
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer2.Enabled:=True;
end;