Перехват падения программы

program Project1;

uses Windows;

type
  P_EXCEPTION_POINTERS = ^ EXCEPTION_POINTERS;

//Это мой обработчик
function MySEH(EP: P_EXCEPTION_POINTERS): integer; stdcall;
begin
  Result := 1;
  MessageBox(0, 'Буага!', 0, MB_ICONERROR or MB_SYSTEMMODAL);
  ExitProcess(0);
end;

begin
  asm
    //Следующие 3 строчки устанавливаю MySEH
    push offset MySEH;
    push -1;
    mov fs:[eax], esp;
    //Эти 2 - вызывают исключение
    xor eax, eax;
    mov [eax], 0;
  end;
end.