★★书上的一道关于卡通控件的例子，无法运行！怎么回事，大虾救命啊！

Question

用到一个animate、三个button（play,pause,stop），下面是代码，编译时提示出错。{}中的是我的问题，请按题号回答，谢谢了！！unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    Animate1: TAnimate;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  button2.Enabled:=false;
  button3.Enabled:=false;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  with tanimate.Create(form1) do  {Q1: 这句话什么意思？有什么用？}
    begin
      parent:=form1;              {Q2: 这句话什么意思？有什么用？}
      filename:='H:\bc\Delphi\Borland\Delphi6\Demos\CoolStuf\cool.avi';
      active:=true;
    end;
  animate1.Active:=true;
  button2.Enabled:=true;
  button3.Enabled:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  animate1.Seek(10);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  animate1.Stop;
end;end.

Answer 1

Q1:当你新建一个类时，有不想声明变量，就可以这么写，我是经常这么写的
相当于：
var animate1: tanimate;
begin
animate1 := tanimate.Create(form1)
with animate1 do
... ...
Q2:设置它在谁的上面显示