Muchas gracias, lo he solucionado de este modo, no se si esto se puede simplificar de algún modo sin poner tanto código:
Código Delphi
[-]
declarando esto primero:
procedure MyExceptionHandler(Sender : TObject; E : Exception );
procedure TForm1.MyExceptionHandler(
Sender : TObject; E : Exception );
var
wRetVal : Word;
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyExceptionHandler;
end;
lo que he hecho es coger este ejemplo y dejar el procedimiento MyExceptionHandler en blanco para que no haga nada.
http://www.chami.com/tips/delphi/011497D.html
No se si hay algun modo de hacer lo mismo más simple.
Pero vamos lo importante es que me funciona como esperaba.
Soy consciente de que no es nada recomendable hacer esto, pero en mi caso lo considero una excepción, vamos que se lo que me hago.