begin

  try
    RaiseException('Ошибка');
  except
    showMessage(ExceptMessage);

    ShowMessage(ExceptObject.Classname);

    if ExceptObject is Exception  then showMessage('is Exception');

    ShowMessage(ExceptObject.Message);
  end;

end.