RosettaCodeData/Task/Exceptions/Delphi/exceptions-2.pas

procedure test2;
begin
  try
    test;
  except
    ShowMessage(Exception(ExceptObject).Message); // Showing exception message
    raise; // Rethrowing
  end;
end;