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;