Анімація в Delphi 7

procedure TForm1.FormActivate(Sender: TObject);

begin

with form1.Canvas do

begin

pen.Color:=clWhite;

moveto(0,160);

lineto(300,160);

end;

n:=0;

x:=0;

y:=10;

Form1.Color:=clNavy;

Timer1.Interval:=50;

s:=-100;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

if timer1.Interval<1000 then

timer1.Interval:=1000000000

else timer1.Interval:=10;

end;