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