[marcoszorrilla]

Basándote en este ejemplo sacado de Trucomanía, creo que no te sería
dificil lograr lo que quieres.

procedure TForm1.Button1Click(Sender:TObject);
begin 
  if not Table1.Exists then 
  begin 
    Table1.Active       := FALSE; 
    {Aqui el Alias/Here, the alias}
    Table1.DatabaseName := 'Alias'; 
    Table1.TableType    := ttParadox; 
    {Aqui el nombre de la tabla/Here, the Table name}
    Table1.TableName    := 'Nombre de la Tabla'; 
    with Table1.FieldDefs do 
    begin 
      Clear; 
      Add('IntegerField', ftInteger,  0, FALSE); 
      Add('StringField' , ftString , 30, FALSE); 
      Add('LogicalField', ftBoolean,  0, FALSE); 
      Add('FloatField'  , ftFloat  ,  0, FALSE); 
      Add('DateField'   , ftDate   ,  0, FALSE); 
      Add('TimeField'   , ftTime   ,  0, FALSE); 
    end; 
    Table1.CreateTable; 
  end; 
end; 
 
 
 
Si quieres añadir algún indice, mirate la propiedad IndexDefs
que es similar a la FieldDefs que hemos usado.

Un Saludo.