1.建一個文件夾"鼠標移動控件"，用于放程序。
2.新建一個程序。
3.保存(用Save All)到該文件夾
4.向窗體(Form1)添加定時器(Timer)控件(點上方的控件工具欄的第四頁(System)
  的定時器(Timer)控件，再在窗體的空白處點一下)
5.雙擊它添加事件，并添加代碼
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Label1.Caption='向上' then
    Shape1.Top:=Shape1.Top-5;
end;
6.添加一個標簽(Label)控件，把它的標題(Caption)改為"向上"
7.添加一個幾何(Shape)控件
8.添加4個按鈕(Button)控件，把它們的標題(Caption)屬性分別改為
"向上"、"向下"、"向左"、"向右"
9.雙擊按鈕，添加事件，并添加代碼
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='向上';
end;