Унаследовать класс MaskEdit и переопределить его процедуру

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask;
 
type
  TMaskEdit = class(Vcl.Mask.TMaskEdit)
  protected
    procedure ValidateError; override;
  end;
....
procedure TMaskEdit.ValidateError;
begin
  try
    inherited; // если строку убрать то ошибка не покажется
  except
    ShowMessage('Неправильный ввод');
  end;
end;

type
  TMaskEdit = class(MaskEdit.TMaskEdit)
  public
    procedure ValidateEdit; override;
  end;
---
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TCustomMaskEdit.ValidateEdit;
// ...
begin
    //// ...
    if not TextIsValid(S) then
    begin
    //  // ...
      Raise EDBEditError.Create(SMaskEditNoMatch); // <-- Вместо ValidateError
    end;
    //// ...
end;