Aparece símbolo de moneda en todo el sistema

[[AgustinOrtu]]

Buenas, revisando un proyecto que tenia por ahi, me encuentro con el siguiente codigo en el evento OnException de un ApplicationEvents:

Código Delphi [-]
procedure TFPrincipal.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
    Application.ShowException(E);
    CurrencyString:= '';
    NegCurrFormat:= 2;
end;

Lamentablemente esto surgio como suerte de algun parche para algo que molestaba y no se documento la razon exacta (que ocurrencia ), pero vagamente recuerdo que era algo similar a lo que planteas