with TTable.create(self) do
begin
  DatabaseName := 'C:\temp';
  TableName := 'FOO';
  TableType := ttParadox;
  with FieldDefs do
  begin
    Add('Age', ftInteger, 0, True);
    Add('Name', ftString, 25, False);
    Add('Weight', ftFloat, 0, False);
  end;
  IndexDefs.Add('MainIndex', 'IntField', [ixPrimary, ixUnique]);
  CreateTable;
end;