函数中调用table的问题？(100分)

我建好一个＊。dbf数据库文件，有一个函数要调用这个数据库文件，我想用动态产生table的
方法去调用它，怎样实现？
例如：
在下面程序中没有任何问题
procedure TForm1.Button1Click(Sender: TObject);
var tb :ttable;
begin
tb:=ttable.create(self);
tb.tablename:='d:/a.dbf';
tb.open;
end;

但在下面程序却出现问题
procedure TForm1.Button1Click(Sender: TObject);
begin
h;
end;
function h:integer;
var tb :ttable;
begin
tb:=ttable.create(self);------>报　undeclared indentifier.'self'　
tb.tablename:='d:/a.dbf';
tb.open;
end;


请问如何解决？？？

你试试这样写：
tb:=ttable.create(nil);

tb := TTable.Create(nil);
因为你的函数h不是Form1的成员方法，所以不能访问self。

接受答案了.