如何将一个字符串从状态条的右端滚到左端？

welcome_text:='                欢迎使用个人管理系统！         ';
再在一个Timer中写
if welcome_count>length(welcome_text) then
begin
   welcome_count:=1;
end;
bar1.panels[0].text:=copy(welcome_text,welcome_count,(length(welcome_text)-welcome_count));
welcome_count:=welcome_count+2;
我这个办法比较笨，看有没有好的办法！关注！
要注意空格数要为偶数！