entiendo que lo que quieres es:
9,99€ ó 9,99$ ó 9.99Pts
si es asi, dependiendo del valor del listbox que tu dices, envía este mediante una variable al fastreport
Código Delphi
[-]var tMoneda: Integer;
tMoneda := Listbox.ItemIndex;
en el codigo del reporter crea un condicional tal que:
Código Delphi
[-] case tMoneda of
0: begin
MemoX.DisplatFormar.FormatStr := el formato de la moneda X
end;
1: begin
end;
end;
creo que podría ser algo así