In nonVCL Fehler / Exceptions abfangen ?

[turboPASCAL]

Hi,

ich schon wieder.

da ich einem undefinierbarem Fehler auf der Spur bin, habe ich mir gedacht
man könne ja Quelltextteile mit try & except erst ein mal eingrenzen.
Leider ist dem anscheint nicht so, except wird ignoriert.

Testapp:

Delphi-Quellcode:

program Blah;

type
  DWORD = Cardinal;

function msgb(hWnd: DWORD; lpText, lpCaption: PChar; uType: DWORD): Integer;
  stdcall; external 'user32.dll' name 'MessageBoxA';

var
  n, i: integer;

BEGIN
  SetLastError(0);

  i := 1;
  dec(i);

  try
    n := 50 div i;
  except
    n := -1;
  end;


  if n <> 0 then msgb(0, 'Huch.', '!', 0);
END.