怎么解决文字滚动问题？

Question

怎么样可以使窗体的栏题栏中的文字，滚动显示？
谢谢各位？

Answer 1

来个变态的
--------
var
  Form1: TForm1;
  i:integer;
implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption:=' '+Caption;
  inc(i);
  if i>60 then
  begin
    i:=0;
    Caption:=trim(Caption);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=not Timer1.Enabled;
  i:=0;
end;