Delphi 文字跑马灯

//跑马灯
procedure Tfr_Main.tme_TitleTimer(Sender: TObject);
var
  strTrim: Widestring;
begin
  strTrim := copy(strScroll, 1, 1); // 获取第1个字符
  Delete(strScroll, 1, 1); // 将第1个字符删除
  strScroll := strScroll + strTrim; // 将原来第1个字符放到最后一位
  Application.title := strScroll; // 显示出来。
  Self.Caption := strScroll; // 显示出来。
end;