关于对象的释放

Question

constructor TBicycle.create;
var
  i: Integer;
begin
  inherited create;
  FColor:='白色';
  FMake:='永久';
  FTopSpeed:=20;
  FWheels:= TList.Create;
  for i:=1  to 2 do
    FWheels.Add(TWheel.create(21,'B型自行车车轮',i));
end;destructor TBicycle.Destory;
var
  i: Integer;
begin
  for i:=1  to 2 do
    TWheel(FWheels.Items[i]).Free;
  inherited;
end;
这里在构造函数里创建了两个对象,FWheels,TWheel但在销毁函数里没看见释放FWheels.请大侠指点.

Answer 1

destructor TBicycle.Destory; 
var 
  i: Integer; 
begin 
  for i:=1  to 2 do 
    TWheel(FWheels.Items[i]).Free; 
  FWheels.free; 
  inherited; 
end; 

Answer 2

我知道是这样写，但是这段代码是刘艺<<Delphi面向对象编程思想>>里的代码,他就是这样写的。这样不释放没什么问题吧.
我想问下,只要是创建的对象都要释放(包括自动和手动的)是不是?

Answer 3

TList是没有属主的,要手动释放尽信书不如无书