Анимация на форме

var
  Form1: TForm1;
  x1,y1,x2,y2,y:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=clWhite;
x1:=Form1.ClientWidth div 2-150;
y1:=Form1.ClientHeight div 6;
x2:=Form1.ClientWidth-x1;
y2:=5*y1;
y:=y2;
Timer1.Enabled:=false;
Timer1.Interval:=50;
doublebuffered:=true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1.Canvas do
 begin
  pen.Color:=clBlack;
  pen.Width:=4;
  moveto(x1,y1);
  lineto(x1,y2);
  lineto(x2,y2);
  lineto(x2,y1);
  brush.Color:=clAqua;
  pen.Color:=clAqua;
  pen.Width:=1;
  rectangle(x1+2,y,x2-2,y2);
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
y:=y-2;
repaint;
if y<y1+4 then Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  CheckStopped;
  CountCoordinates;
  Repaint;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
y:=y-2;
if y<y1+4 then y:=y1+4;
repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 with Form1.Canvas do
 begin
  pen.Color:=clBlack;
  pen.Width:=4;
  moveto(x1,y1);
  lineto(x1,y2);
  lineto(x2,y2);
  lineto(x2,y1);
  brush.Color:=clAqua;
  pen.Color:=clAqua;
  pen.Width:=1;
  rectangle(x1+2,y,x2-2,y2);
  if y>y1+4 then y:=y-2;
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
repaint;
//if y<y1+4 then Timer1.Enabled:=false;
end;