Delphi 文字跑马灯

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