Процедура CurrencyToComp ( Value: Currency; var Result :Comp );
== Данная процедура поддерживается только в Delphi 5 ==

Модуль: System

Описание
Процедура конвертирует значение типа Currency (параметр Value) в значение типа Comp и записывает результат в переменную Result.