exceptions.pas

PROGRAM exceptions;
{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}
BEGIN
    TRY
        // do something
    EXCEPT
        // do something
    END;
END.