Crear y verificar campos en Paradox

[[David]]

Hola

Tengo una aplicación en la que voy a realizar ciertos cambios y requiero añadir dos campos en una base de datos de paradox . Para ello he pensado hacer una pequeña aplicación para que añada estos campos , se la hago ejecutar el cliente , y luego le mando el ejecutable .

Los campos que quiero añadir serian numericos , IVA y Retención . Pero lo que quiero es que esta aplicación compruebe antes de hacer el cambio que estos campos no existen .

El código seria así :

Añado una TQuery .

Código Delphi [-]

if CamposnoExisten then
begin
Query1.sql.add('Alter table Caja add Iva Numeric default 16');
Query1.ExecSQL;
Query1.Clear;
Query1.SqlAdd('Alter table Caja add Ret Numeric default 5');
Query1.ExecSQL;
End;

Mis dudas , quiero saber si el código es el correcto , quiero añadir 2 campos númericos con un valor por defecto . Y lo que no sé hacer es como comprobar si en una base de datos de paradox un campo existe o no.

Saludos