如何实现在任务栏上 Application.Title 的滚动？

Question

其实就是在一个定时器内控制标题的变换
例如第一秒标题是"滚动测试"
下一秒就是"动测试滚"
在接下去是"测试滚动"如此循环，很easy的

Answer 1

成功，谢了，加分了，大家有什么再好些的方法吗？同样加分哟。.............
  case kk of
    1: begin
        Application.Title := '爱北京天安门......我';
        kk := kk + 1;
      end;
    2: begin
        Application.Title := '北京天安门......我爱';
        kk := kk + 1;
      end;
    3: begin
        Application.Title := '京天安门......我爱北';
        kk := kk + 1;
      end;
    4: begin
        Application.Title := '天安门......我爱北京';
        kk := kk + 1;
      end;
    5: begin
        Application.Title := '安门......我爱北京天';
        kk := kk + 1;
      end;
    6: begin
        Application.Title := '门......我爱北京天安';
        kk := kk + 1;
      end;
    7: begin
        Application.Title := '......我爱北京天安门';
        kk := kk + 1;
      end;
    8: begin
        Application.Title := '...我爱北京天安门...';
        kk := kk + 1;
      end;
    9: begin
        Application.Title := '我爱北京天安门......';
        kk := 1;
      end;
  end;