anchor.diff:      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);
  
positive.code:       begin
          aNewStringValue:= aOldStringValue;
          TmToast.ShowText(SErrorYearTooFaraway);;
        end
        else
          aActualValue := tmp;
  
negative.code: type
  
    TmEditorLineKind = (ekSimple, ekLookup, ekDialog, ekCalendar, ekWizard);
    TmEditorLineDataType = (dtInteger, dtFloat, dtDate, dtTime, dtText, dtUppercaseText, dtContainerNumber, dtMRNNumber, dtCurrentYearOrInThePast, dtCurrentYearOrInTheFuture, dtYear, dtMonth);
    TmEditorLineReadOnlyMode = (roAllowEditing, roReadOnly, roAllowOnlySetValue);
  
    TmEditingPanel = class;
  