anchor.diff:        (curLine.Configuration.DataType = dtCurrentYearOrInTheFuture) then
       begin
         CheckYear(OldValue, curLine.Configuration.DataType, curLine.Configuration.TimeMaxDistanceInMonths, NewValue, curLine.ActualValue);
  +    end
  +    else if (curLine.Configuration.DataType = dtMonth) then
  +    begin
  +      CheckMonth(OldValue, curLine.Configuration.DataType, NewValue, curLine.ActualValue);
       end;
     end
     else
  
positive.code:       begin
          aNewStringValue:= aOldStringValue;
          TmToast.ShowText(SErrorYearTooFaraway);;
        end
        else
          aActualValue := tmp;
  
negative.code:     procedure CheckTime (const aOldStringValue : string; var aNewStringValue : string; var aActualValue : variant);
      procedure CheckInteger (const aOldStringValue : string; var aNewStringValue : string; var aActualValue : variant);
      procedure CheckYear(const aOldStringValue : string; const aDataType: TmEditorLineDataType; const aDistanceInMonths : integer; var aNewStringValue : string; var aActualValue : variant);
      procedure CheckMonth(const aOldStringValue : string; const aDataType: TmEditorLineDataType; var aNewStringValue : string; var aActualValue : variant);
      procedure CheckFloat (const aOldStringValue : string; var aNewStringValue : string; var aActualValue : variant; const aLineConfiguration : TmEditorLineConfiguration);
    private
      procedure SetMultiEditMode(AValue: boolean);
  