Создание таблицы Paradox

Как создать таблицу Paradox из приложения?

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTable.Create(Self) do begin
    DatabaseName := 'c:\windows\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', 'Age', [ixPrimary, ixUnique]);
    CreateTable;
  end;
end;