1.添加一个Timer控件，Interval属性设置为20。
2.添加一个Label控件，Name为labMessage。
3.在Timer的OnTimer事件添加如下代码：
procedure TForm1.Timer2Timer(Sender: TObject);
begin
labMessage.Left := labMessage.Left - 1 ;
if labMessage.Left + labMessage.Width = 0 then
labMessage.Left := Form1.Width;
end;