потому что 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.