Проблема c tMaskEdit

[Altera]

Привет всем!
Вот такая вещь:
Допустим у меня есть me: tMaskEdit; и smplBtn: tButton;
Маска для me "__.__.__". Ну если ввасти всё нормально ("26.12.92") и нажать на smplBtn, то всё ОК. Но если ввести в me не все цифры ("26.12.9_" или "26.1_.__"), то при нажатии на smplBtn, а точнее, при потере фокуса компонентом me, то вылетает !ошибка!, жирная такая.

Хочу, что бы было так: Если не ввели все цыфры, то при потере фокуса компонентом me, пустые места заполнялись нулями ("26.1_.__" => "26.10.00").

Ну, опять я тут расписался. Но зато, все ясно, надеюсь....

[_Dmitry]

Маска для me "__.__.__"

Это не маска, это шаблон для ввода, а маска, наверно: 00.00.00;1;_
замените на: 99.99.99;1;_
и на событие OnExit повесьте такой обработчик

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
  i: integer;
  s: string;
begin
  s:=MaskEdit1.EditText;
  for i:=1 to length(s) do
    if s[i] = '_' then s[i]:='0';
  MaskEdit1.EditText:=s;
end;

[Altera]

Thank's _Dmitry...