[Alegun]

Для примера

Код:

procedure TForm1.MaskEdit1Change(Sender: TObject);
var
s: string;
begin
s:= MaskEdit1.Text;
if s[1] = ' ' then s[1]:= '0';
if s[1] = '9' then s[2]:= '0';
 ...

MaskEdit1.Text:= s;
end;

остальные символы отслеживаются аналогично