DELPHI中多张图片转动，该如何做呀。。在线等哟

Question

高手们，哥哥们
小弟急哟问题很简单的，要做一个像抽奖的工具。  现在呢？数字图片要进行上下转动的，该如何做呢？
像电视上抽奖的那样上下转动哟
这一步先做吧。下一步就是要求停下时可以由快到慢转动的过程，该如何做呢？？

Answer 1

Delphi的安装目录下有一个动画例子，目录如下：
\Demos\EarthPng

Answer 2

顶一下求教图片进行转动 在DELPHI真的不能够实现吗？

Answer 3

搞个延迟sleep循环显示图片不行吗？

Answer 4

在界面上放置一个panel，让图片在panel里面从上向下移动
panel的高度和图片的高度相同，然后一个接一个移动，
移动出panel的图片继续回到原位置从新开始
能够实现楼住的要求
并且期待更好的解决办法

Answer 5

一部分代码如下
-----------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation{$R *.dfm}
var exit:boolean;procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
begin
    exit:=False;   //判断是否退出
    I:=image1.Top;  //  image1放在panel1内
    repeat
       inc(I);
       image1.Top:=I;
       sleep(10);
       application.ProcessMessages;
    until exit;     //在这里加一句话就可以让图片回到原位置重新开始下落
end;procedure TForm1.Button2Click(Sender: TObject);
begin
    exit:=True;    //退出按钮
end;end.