begin 
with TTable.Create(Self) do 
begin 
 DatabaseName := 'C:\temp'; 
 TableName := 'Foo'; 
 TableType := ttParadox; 
 with FieldDefs do Begin 
  Add('ID', ftInteger, 0, True); 
  Add('Age', ftInteger, 0, True); 
  Add('Name', ftString, 25, False); 
  Add('Weight', ftFloat, 0, False); 
 End; 
 IndexDefs.Add('MainIndex','ID', [ixPrimary, ixUnique]); 
 CreateTable; 
end; 
end;