//文字在窗体上水平来回移动 
procedure TForm1.Timer1Timer(Sender: TObject);{ Timer1.Interval:=10;}
begin
  if label1.Left+label1.Width>0 then  
     label1.Left:=label1.Left-2
  else label1.Left:=form1.Width;
end;