[omaryan]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  X: Double;
  Y: Currency;
begin
  Y := 1.1;
  X := Double(Y);
  ShowMessage(FloatToStr(X));
end;

Почему этот код не работает?

[TOJluK]

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

Код:

ShowMessage(CurrToStr(Y));

[Saint Garry]

Проблема скорее всего в том что Currency - тип числа с фиксированой запятой и четирьмя значащими цифрами после нее, а Double с плавающей запятой. Более глубоко это нада рыть исходник модуля system

[Darken]

А чего вы хотите получить этим кодом? Может я помогу реализовать все проще?