[~ SaM ~]

Код:

procedure TForm14.EditKeyPress(Sender: TObject; var Key: Char);
begin
    If not (Key in [#8, #22, '0'..'9']) Then Key := #0;
end;

Использование:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
..............
MaskEdit1.OnKeyPress:=EditKeyPress;
..............
end;