有关自动生成表的问题(100分)

procedure CreateNewDbf(FileName, DirList: string);
var NewDbf: TTable;
begin
NewDbf := TTable.Create(self);{报没有定义SELF}
with newdbf do
begin
DatabaseName:=DirList;
TableName:=trim(filename);
TableType:=ttFoxpro;
with FieldDefs do
begin
Clear;
Add('Name',ftString,40,false);
Add('Address',ftString,80,false);
Add('Post',ftString,6,false);
end; //------end Fields
CreateTable;
end; //------end newdbf
end;
编译时在开关部分报错，请指教。

NewDbf := TTable.Create(self);{报没有定义SELF}
该为
NewDbf := TTable.Create(nil);{报没有定义SELF}

是不是应该给table一个可以依附的父亲啊？
....parent:=form1什么的

接受答案了.