delphi实现js效果的滚动

//**********begin**********
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c,d,e:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled := false;
 if edit1.Text <> '' then
  begin
    a := Panel1.Width ;
    Label1.Left := a ;
    Label1.Caption := edit1.Text ;
    b := Label1.Width div 2 ;
    c := Panel1.Width div 2 ;
    d := c - b ;
    e := 0;
    timer1.Enabled := true;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 edit1.Clear;
 Label1.Caption := '';
 Panel1.Caption := '';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if a = 0-Label1.Width then
  begin
   a := Panel1.Width ;
  end
 else
  begin
   if (a = d) and (e = 0) then
    begin
     e := 1;
     timer2.Enabled := true;
     timer1.Enabled := false;
    end
   else
    begin
     a := a-1 ;
     e := 0;
     Label1.Left := a ;
     edit1.Text := inttostr(a);
    end;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 timer1.Enabled := true;
 Timer2.Enabled := false;
end;

end.

//**********end**********