RosettaCodeData/Task/Exceptions/DWScript/exceptions-2.dw

procedure Test2;
begin
   try
     test;
   except
      on E: Exception do begin  // Filter by exception class
         PrintLn(E.Message);    // Showing exception message
         raise;                 // Rethrowing
      end;
  end;
end;