> {$IFDEF IBO_VCL60_OR_GREATER} // NEW
> Result := AsInt64; // NEW
> {$ELSE} // NEW
> {$IFDEF IBO_VCL40_OR_GREATER}
> TVarData(Result).VType := VT_DECIMAL_X;
> tagDEC_X(Result).lo64 := AsInt64;
> {$ELSE}
> Result := AsExtended;
> {$ENDIF}
> {$ENDIF} // NEW
> end
> <etc>
>