delphi 2007 paradox

[Aleca]

puedes hacerlo de esta forma.

Código Delphi [-]
procedure GeneroTabla(cName: String);
var
  NewTabla: TTable;
  NewIndexOptions: TIndexOptions;
begin
  NewTabla := TTable.Create(Application);
  NewIndexOptions := [ixPrimary];
  NewTabla.Active := False;
  NewTabla.DatabaseName := cMensPath;
  NewTabla.TableName    := cName;
  NewTabla.TableType    := ttDBase; //ttParadox
  NewTabla.FieldDefs.Clear;
  NewTabla.FieldDefs.Add('CAMPO1',      ftString,  50, False );
  NewTabla.FieldDefs.Add('CAMPO2',   ftDate,     0, False );
  NewTabla.FieldDefs.Add('Campo3', ftMemo,     0, False );
  ....
  NewTabla.IndexDefs.Create(NewTabla);
  NewTabla.IndexDefs.Clear;
  NewTabla.IndexDefs.Add('CAMPO', 'CAMPO', []);
  NewTabla.CreateTable;
  NewTabla.Destroy;
end;

Saludos