Вот маленький кусочек кода для создания таблицы Paradox:
withTTable.create(self) do
begin
DatabaseName := 'C: emp'; 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
;