我給妳做了壹個，用的最笨的方法，但是我覺得也是最簡單的方法。
源碼如下：
加壹個Panel，來做小飛機的天空
加壹個Image，裏面放上小飛機的圖片
加兩個按鈕，壹個控制timer開啟，壹個控制timer關閉，然後.....
procedure?TForm1.Button1Click(Sender:?TObject);
begin
Timer1.Enabled:=True;?//開啟timer1
end;
procedure?TForm1.Button2Click(Sender:?TObject);
begin
Timer1.Enabled:=False;?//關閉timer1
end;
procedure?TForm1.Timer1Timer(Sender:?TObject);
begin
image1.Left:=image1.Left+8;
image1.Top?:=?image1.Top?-?5;
if?image1.Left+image1.Width?>?panel1.Width?then
begin
image1.Left:=0-image1.Width; image1.Top:=panel1.Height-image1.Height;end;
end;