Converter um valor CURRENCY para STRING perdendo zeros após a vírgula
convertendo um campo com valor CURRENCY para STRING e o mesmo perde os zeros à direita após a vírgula:
var r:real;
begin
R := 10.00;
Label1.Caption := FloatToSTrf(r,ffCurrency,18,2)
end;