说明：  滚动字幕：滚动字幕的窗体为scrollform,在窗体中增加一个计时器Timer1、一个标签控件Label1(字幕)、一个TrackBar1(控制滚动速度)、一个MainMenu1和一个Button。主要功能可以实现字幕滚动；字幕滚动速度调节；字幕字体颜色的更改；字幕内容的更改和还原。核心代码如下： procedure Tscrollform.Timer1Timer(Sender: TObject) begin timer1.Interval:=300-TrackBar1.Position Label3.Caption:=IntToStr(210-timer1.Interval) if label2.Left+label2.Width >0 then label2.Left := label2.Left-10 else label2.Left:=Panel1.Width end 计时器：计时器的窗体为timerform，在窗体中增加一个MaskEdit1控件，一个计时器Timer2，两个按钮Start和Reset。主要功能可以实现计时，暂停、继续、重置计时器。主要思想是使用decodetime函数和计时器实现两个不同时刻相减得到总的毫秒数，再转成时、分、秒，显示在MaskEdit1控件。
(rolling subtitles : Rolling subtitles for the Form scrollform, in the form of an additional timer Timer1, a label control Label1 (subtitles), a TrackBar1 (rolling speed control), a MainMenu1 and a Button. The main function can be achieved subtitles rolling; Subtitles rolling speed adjustment; Subtitles font color changes; Subtitles content changes and reduction. The core code is as follows : procedure Tscrollform.Timer1Timer (Sender : TObject) begin timer1.Interval : = 300-TrackBar1.Position Label3.Caption : = IntToStr (210-timer1.Interval) if label2.Left label2.Width gt; 0 then label2. Left : = label2.Left-10 label2.Left else : = Panel1.Width end timer : Form for the timer timerform, in the form of an additional MaskEdit1 control, a timer Timer2, two Start and Reset button. The main funct)