[NumLock]

Код:

begin
   with TTable.Create(nil) do
   begin
     DatabaseName  := 'c:\';
     TableName     := 'test.dbf';
     TableType     := ttDbase;
     TableLevel    := 3;
     with FieldDefs do
     begin
      Add('FIO', ftString,20,false);
      Add('OTD', ftString,30,false);
     end;
     CreateTable;
   end;
 end;