Criar tabela paradox via programação

Table1 := TTable.Create(Self);
Table1.TableName := ´MINHATABELA.DB´ ;
Table1.TableType := ttParadox;
With Table1.FieldDefs do
Begin
Clear;
Add(´Codigo´,ftAutoInc,0,False);
Add(´Nome´,ftString,30,False);
Add(´Valor´,ftFloat,0,False);
Add(´Quantidade´,ftInteger,0,False);
End;
Table1.CreateTable;