Invalid class typecast

[muli]

Hola buenos dias, estoy totalmente desencajado con este error que me sale ahora en Delphi Rio, lo llevo usando desde Delphi 6 y nunca tuve ningún problema, resulta que cuando abro una consulta(query) recorro los campos del mismo y asigno propiedades de displayformat, trabajo con Firebird 2.5 y pongo el código en cuestión, antes no usaba la variable campo

Código Delphi [-]
Procedure TDatos.Query1AfterOpen(DataSet: TDataSet);
var
  n:Integer;
  Campo : String;

begin
  For N:=0 to Query1.FieldCount-1 Do
  Begin
    if Query1.Fields[n].DataType =  ftBCD then
    Begin
      (Query1.Fields[N] as tBCDfield).displayformat:='##,##0.00 €';
    End;
    Campo:=UpperCase(Query1.Fields[N].FieldName);
    if Campo='GRAVAME' then
    Begin
      (Query1.Fields[N] as tBCDfield).displayformat:='##,##0.00 %';
    End;
    if Campo='BONIFICACION' then
    Begin
      (Query1.Fields[N] as tBCDfield).displayformat:='##,##0.00 %';
    End;
  End;
end;