Author: Tomas Rutkauskas Create a dBase database at runtime Answer: The following procedure may be especially useful for temporary tables: 1 procedure MakeDataBase; 2 begin 3 with TTable.Create(nil) do 4 begin 5 DatabaseName := 'c:\temp'; (* alias *) 6 TableName := 'test.dbf'; 7 TableType := ttDBase; 8 with FieldDefs do 9 begin 10 Add('F_NAME', ftString, 20, false); 11 Add('L_NAME', ftString, 30, false); 12 end; 13 CreateTable; 14 { create a calculated index } 15 with IndexDefs do 16 begin 17 Clear; 18 { don't forget ixExpression in calculated indexes! } 19 AddIndex('name', 'Upper(L_NAME)+Upper(F_NAME)', [ixExpression]); 20 end; 21 end; 22 end;