RosettaCodeData/Task/Exceptions/PascalABC.NET/exceptions-3.pas

try
  ...
except
  on e: MyException do
    statement
end;