Exception в Form1.FormCreate

[krab]

В Form1.FormCreate возникает exception. Например:

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
begin
  raise Exception.Create('Hello');
end;                           


В Project1.lpr основная часть:

Код: Выделить всё

begin
  {$I project1.lrs}
  try
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
      Application.Run;
  except
      on E: Exception do
        ShowMessage('Перехвачено');
  end;
end.


Почему exception не перехватывается (вместо моего сообщения отображается "...Press OK to ignore and risk data corruption ...")?

[Brainenjii]

Я бы предположил, что Application само обрабатывает исключения, и до твоего Try они просто не доходят. Попробуй назначить обработчик к Application.OnException