Ещё правки VCL (22)

procedure TCustomMaskEdit.CMEnter(var Message: TCMEnter);
begin
  if IsMasked and not (csDesigning in ComponentState) then
  begin
    if not (msReEnter in FMaskState) then
    begin
      FOldValue := EditText;
      inherited;
    end;
    Exclude(FMaskState, msReEnter);
    // во избежание проблем с позиционированием курсора при
    // получении фокуса
    // CheckCursor; {V}
  end
  else
    inherited;
end;