TIBquery y campos persistentes en tiempo de ejecucion

[mjjj]

Vamos mejorando, todos los campos persistentes de tipo string e integer esta funcionando bien, pero los de tipo float, me arroja el siguiente error

Ibquery2: Type mismatch for firld 'CANTIDAD', expecting: FLoat actual BCD'

el código que utiliza está así

Código Delphi [-]
var queryfloat:   Tfloatfield;
..
 queryfloat:= TFloatField.Create(Query);
  with queryfloat do
  begin
    FieldName:= 'cantidad';
    Name:= 'IBquery2cantidad';
    FieldKind:= fkData;
    precision := 18;
    DisplayLabel:= 'CANTIDAD';
    DisplayWidth:= 19;
    DisplayFormat:= '#,##0';
    DataSet:= Query;
  end;

Que es BCD??
Como lo soluciono?

Gracias