TIBquery y campos persistentes en tiempo de ejecucion

[mjjj]

Estimado, sigo sin poder resolver esto... tal como tu lo expones (en teoría debería funcionar), pero no es así, me arroja un error a pesar que las tablas son identicas.

Finalmente estoy tratando de crear los campos persistenes en ejecución con el siguiente copdigo (en diseño no existen), por ejemplo para algunos de los campos persistentes

Código Delphi [-]
..
var query: tibquery;
var field: tibbcdfield;
..
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2notas';
field.FieldKind := fkdata;
field.FieldName := 'notas';
field.Size := 200;
field.DisplayWidth := 200;
field.origin := 'COMPRAS_DETALLE.NOTAS';
field.DataSet := query;
 
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2noc';
field.FieldKind := fkdata;
field.FieldName := 'noc';
field.DataSet := query;

field := tibbcdfield.Create(Self);
field.Name := 'ibquery2ncorr';
field.FieldKind := fkdata;
field.FieldName := 'ncorr';
field.DataSet := query;
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2nombre';
field.FieldKind := fkinternalcalc;
field.FieldName := 'nombre';
field.Size := 30;
field.DataSet := query;
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2cantidad';
field.FieldKind := fkdata;
field.FieldName := 'cantidad';
field.Precision := 18;
field.Size := 4;
field.DataSet := query;
field.DisplayFormat :='#,##0';

El error que me arroja dice así:
Para el campo Notas: field 'notas' expecting: BCD actual WideString
Para el campo Noc: field 'noc' expecting: BCD actual: Largeint

asi sucecivamente para el resto de los campos.

Como puedo resolver esto?
Espero me puedan ayudar.