TTable *TableK = new TTable(this);
TableK->Active = false;
TableK->DatabaseName = FirstDir;
TableK->TableType = ttFoxPro;
TableK->TableName = TableName;
TableK->FieldDefs->Clear();
TFieldDef *pNewDef;
pNewDef = TableK->FieldDefs->AddFieldDef();	pNewDef->Name = "CL_CODE"; pNewDef->DataType = ftString; pNewDef->Size = 10;
pNewDef = TableK->FieldDefs->AddFieldDef();	pNewDef->Name = "CLIENT"; pNewDef->DataType = ftString; pNewDef->Size = 100;
pNewDef = TableK->FieldDefs->AddFieldDef();	pNewDef->Name = "FACTOR"; pNewDef->DataType = ftFloat; pNewDef->Precision = 6;
TableK->CreateTable();