Опять та же проблема с типом TData в b157. Вещественные числа выдаются CodeGen-ом как 0.0000000000000. Подправьте CGTShare.pas (на форуме сто раз уже обсуждалось) и скомпилируйте CodeGen.dpr.