Всем Спасибо !
Заменил операцию C:=A-B ; на

C:= ( REAL_TO_DINT ( A *10 ) - REAL_TO_DINT ( B * 10 ) ) / 10.0 ;