[NumLock]

потому что ExceptObjProc не определена:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses Windows;

var
  x, y, z: Integer;

function GetExceptionObject(P: PExceptionRecord): TObject;
begin
  Result:=TObject.Create;
end;

begin
  ExceptObjProc:=@GetExceptionObject;
  y:=0;
  z:=0;
  try
    x:=y div z;
    Writeln(x);
  except
    Writeln('div by 0');
  end;
  Readln;
end.