Здравствуйте, kochmin_alexandr, Вы писали:

А>> Что это и как лечится?

_>это ошибка округления float типов при двочном представлении.

Как вариант лечения округлите, например, до двух знаков после запятой:

a := Round (18400 * Cnt * 100) div 100