哪位大侠能把label控件卷动显示，或者有一些别的特效？？？(88分)

哪位大侠能把label控件卷动显示，或者有一些别的特效？？

ll为一标签控件
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
ll.Caption:='这是滚动显示吗';
ll.AutoSize:=false;
ll.Width:=0;
form1.Update;
for i:=0 to canvas.TextWidth(ll.Caption) do
begin
ll.Width:=i;
application.ProcessMessages;
sleep(100);
end;
end;

不错！！

还不如用控件
http://cnpack.cosoft.org.cn/download/AAFont2.57.zip