[TOJluK]

Значения переменных типа Currency записываются в память как целые числа.
А чего вы добиваетесь своим кодом? Как вариант пишите так

Код:

ShowMessage(CurrToStr(Y));