古老的问题：建立一个visual foxpro的 dbf,帮帮忙呀

Question

我要动态建立一个VFor的 dbf,帮帮忙！ 我要动态建立一个VFor的 dbf，
然后插入一些数据。
代码如下：
      database1.DriverName:='STANDARD';
      database1.DatabaseName:='vfo';
      database1.params.add('PATH=d:\');
      database1.params.add('DEFAULT DRIVER=dbase');
      database1.params.add('ENABLE BCD=FALSE');
      database1.connected:=true;
       table2.Active:=false;
    with table2 do          
    begin
      active:=false;
      DatabaseName :='vfo';
      tablename:='zyf.dbf';
      TableType :=ttdbase;
      with FieldDefs do begin
        Clear;
        with AddFieldDef do begin
          Name := '1';
          DataType := ftstring;
          size:=10;
        end;  
      createtable;
      end;
    end;
    table2.Active:=true;
    table2.Append;
    table2.FieldValues['1']:='2002-01-02';
    table2.post;结果用 vforpro 打不开呀！帮帮忙了