Создать таблицу Paradox во время выполнения

TTable имеет способность создавать таблицы Paradox без применения SQL.

with TTable.create(self) do 
begin 
  DatabaseName := 'C:\projects\data'; 
  TableName := 'Clients'; 
  TableType := ttParadox; 
  with FieldDefs do b 
  begin 
    Add('ID',    ftInteger, 0, True); 
    Add('FName', ftString, 25, False); 
    Add('LName', ftString, 25, False); 
  end; 
  IndexDefs.Add('MainIndex','IntField', [ixPrimary, ixUnique]); 
  CreateTable; 
end;