freeAndNil 的问题！急~~~~

[oneal3417]

偶用delphi写的一个类；
代码如下：
unit basedata_unit;

interface
uses
Windows, Messages, SysUtils, Variants, DBClient, Classes,datamod_unit;
type
Tbase_data=class(TObject)
private
Datamod:TDataModule5;
public
function FindAllRec():OLEVariant;
constructor create;
destructor Destroy;override;
end;

implementation
constructor Tbase_data.create;
begin
Datamod:=TDataModule5.Create(nil);
end;
destructor Tbase_data.Destroy;
FreeAndNil(Datamod);
inherited;
end;
function Tbase_data.FindAllRec():OLEVariant;
begin
Datamod.adoq1.Close;
Datamod.adoq1.SQL.Clear;
Datamod.adoq1.SQL.Add('select * from hz_msg');
Datamod.adoq1.Open;
Datamod.adoq1.FieldByName('hz_id').DisplayLabel:='患者ID';
Datamod.adoq1.FieldByName('hz_name').DisplayLabel:='姓名';
Datamod.adoq1.FieldByName('hz_sex').DisplayLabel:='性别';
Datamod.adoq1.FieldByName('hz_age').DisplayLabel:='年龄';
Datamod.adoq1.FieldByName('hz_class').DisplayLabel:='病人类别';
Datamod.adoq1.FieldByName('jb_class').DisplayLabel:='疾病类型';
Datamod.adoq1.FieldByName('ry_date').DisplayLabel:='入院时间';
Datamod.adoq1.FieldByName('cy_date').DisplayLabel:='出院时间';
Datamod.adoq1.FieldByName('fz_doc').DisplayLabel:='负责医生';
Datamod.adoq1.FieldByName('lx_name').DisplayLabel:='联系人';
Datamod.adoq1.FieldByName('lx_phone').DisplayLabel:='联系电话';
Datamod.adoq1.FieldByName('lx_address').DisplayLabel:='联系地址';
Datamod.adoq1.FieldByName('bz').DisplayLabel:='备注';
result:=Datamod.dsp1.Data;
end;

end.

报错：unknow directive 'freeandnil'
怎么回事？恳请各位高手赐教~~~谢谢！！

[yuqianyi1974]

destructor Tbase_data.Destroy;
begin//少一个
FreeAndNil(Datamod);
inherited;
end;

[lihuasoft]

呵呵，粗心。

另外，
destructor Tbase_data.Destroy;
begin
FreeAndNil(Datamod); /////////不必使用FreeAndNil，直接.Free就可以了
inherited;
end;

甚至可以不用写，而是在

constructor Tbase_data.create;
begin
Datamod:=TDataModule5.Create(Self);////让Tbase_data对象自己回收....
end;

[oneal3417]

谢谢！！楼上两位噶~~~呵呵~~~