MaskEdit

[AGAG4]

type
TMaskEdit = class(Mask.TMaskEdit)
protected
procedure ValidateError; override;
end;

TForm1 = class(TForm)
{ métodos y propiedades }
end;

implementation

procedure TMaskEdit.ValidateError;
begin
MessageBeep(0);
raise EDBEditError.Create('Formato incorrecto');
end;
end.

**No me funciona en esta, lo que pasa es que me marca error en "procedure ValidateError; override;"