1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

type TMyMaskEdit = class(TMaskedit)
     public
       procedure ValidateEdit;override;
end;

......
var myMaskEdit : TMyMaskEdit;


.......

procedure TMyMaskEdit.ValidateEdit;
var pos : Integer;
begin
   if (IsMasked) then
     if not Validate(Text, pos) then
       Showmessage('Falscheingabe !'); // Dies kannst Du auch weglassen, wenn Du keine 
                                       //Fehlermeldung willst 
                                       
  // inherited hier einfach weglassen, damit die Fehlermeldung nicht kommt ;
  //musst dann allerdings das EditFeld selber leeren
end;

//und der Aufruf :
MyMaskEdit := TMyMaskEdit.Create(self);
  MyMaskEdit.Parent := self;
  MyMaskEdit.EditMask := '!90:00;1;_'; //hier deine Maske eintragen					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

unit MyMaskEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask;

type
  TMyMaskEdit = class(TMaskEdit)
  public
    procedure ValidateError;override;
  end;

procedure Register;

implementation


procedure TMyMaskEdit.ValidateError;
begin
  //hier eintragen, was passieren soll bei Falscheingabe
end;

procedure Register;
begin
  RegisterComponents('Additional', [TMyMaskEdit]);
end;

end.