anchor.diff:  Begin
     Result := R;
     InflateRect(Result,-2,-2);
  -  {With Result Do
  +  With Result Do
       Begin
         If FBorderEdges * [beLeft,beRight] <> [] Then
           Begin
  
positive.code:         AWidth := (AWidth Div Value) * Value + Delta +
            (Width-ClientWidth);
        end;
      {End;
  
    If FBorderEdges * [beTop,beBottom] = [] Then
      Begin}
        Value := GetMonthHeight;
        If Value > 0 Then
        begin
  
negative.code:     Property StartDate;
      Property Flat;
      Property BorderStyle;
      Property BorderEdges;
      Property MaxSelDates;
      Property WeekCursor;
      Property SelectKind;
  