Delphi忽略程序报错

type
  TForm1 = class(TForm)

procedure MyException(Sender:TObject; E:Exception);

end;

 procedure  TForm1.MyException(Sender:   TObject;   E:   Exception);
begin
  Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyException;
end;