用delphi实现怎么实现多个号码滚动的效果

procedure TForm13.FormCreate(Sender: TObject);
begin
  tmr1.Interval := 100;
  tmr1.OnTimer := tmr1Timer;
  tmr1.Enabled := True;
end;procedure TForm13.tmr1Timer(Sender: TObject);
begin
  lbl1.Left := lbl1.Left - 10;
  if lbl1.Left + lbl1.Width < self.Left then
    lbl1.Left := Self.Left + self.Width;
end;