En Delphi, en el query o TTable, doble clic, después al campo currency, añade en su propiedad DisplayFormat esto: ",#0.00" (sin las comillas dobles) y listo.
En Editformat, añade: "0.00" para que la coma de millar no moleste.
Para acceder a los datos, puedes hacerlo así:
Código Delphi
[-]
query1.fieldbyname('precio_total').AsCurrency :=
query1.fieldbyname('precio_base').AsCurrency * 1.16;
Saludos