再增加一个几何(Shape)控件
把定时器事件的代码改为
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Caption='向上' then
Shape1.Top:=Shape1.Top-5;
if Label1.Caption='向左' then
Shape1.Left:=Shap
增加暂停的功能
11.把暂停和继续两个按钮的功能合二为一，即修改为下面的代码
procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
if Timer1.Enabled then
Button3.Caption:='暂停'
else Bu
