设置Timer的Interval为100看起来就是有些不舒服，不过程序运行中应该是可以接受的。
我试了试感觉还行。要不就嵌入一个可以滚动的组件或者使用第三方控件。
procedure TForm1.Timer1Timer(Sender: TObject);
//Timer1 Interval 为 200
var
i:Integer;
begin
s:=Copy(s,2,Length(s)-1)+Copy(s,1,1); //向左滚动
// s:=Copy(s,Length(s)-2,1)+Copy(s,1,Length(s)-1); //向右滚动
StatusBar1.SimpleText:=s;
end;
