[jachguate]

Código Delphi [-]
procedure TForm1.Query1AfterOpen(Sender: TObject);
begin
  Query1.FieldByName('Precio').Currency := True;
end;

Hasta luego.