Hola Tarco35.
Me acordé de una función que simplifica mucho el código y trabaja correctamente:
Código Delphi
[-]
procedure TForm1.CrearCampo(aFieldName, aType: string);
begin
if Table1.FindField(aFieldName) = nil then
begin
Table1.Close;
with Query1 do
begin
SQL.Text:= 'ALTER TABLE ITEMS ADD ' + aFieldName + ' ' + aType;
ExecSQL;
Close;
end;
Table1.Open;
end;
end;
Saludos.