[ApxaHGe1]

Я сделал так ....

Component => Install Component => Unit file name (Выбрал sumprops.pas )

Далее уже использовал так

Код:

var
  Form1: TForm1;
  s:Currency;

implementation

uses sumprops;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=StrToInt(Edit1.Text);
Edit2.Text:=MoneyToString(s,True,False);
end;

end.

Если нужно ... Вот _http://dump.ru/file/2922286 мой проект