procedure MakeDataBase;
 begin
 with TTable.Create(nil) do
 begin
 DatabaseName := 'c:\temp'; (* alias *)
 TableName := 'test.dbf';
 TableType := ttDBase;
 with FieldDefs do
 begin
 Add('F_NAME', ftString,20,false);
 Add('L_NAME', ftString,30,false);
 end;
 CreateTable;
 { create a calculated index }
 with IndexDefs do
 begin
 Clear;
 { don't forget ixExpression in calculated indexes! }
 AddIndex('name','Upper(L_NAME)+Upper(F_NAME)',[ixExpression]);
 end;
 end;
 end;