anchor.diff:          AWidth := (AWidth Div Value) * Value + Delta +
             (Width-ClientWidth);
         end;
  -    {End;
  +    End;
   
     If FBorderEdges * [beTop,beBottom] = [] Then
  -    Begin}
  +    Begin
         Value := GetMonthHeight;
         If Value > 0 Then
         begin
  
positive.code: Begin
    Result := R;
    InflateRect(Result,-2,-2);
    {With Result Do
      Begin
        If FBorderEdges * [beLeft,beRight] <> [] Then
          Begin
  
negative.code:           Top := Top + delta2;
            Bottom := Bottom - (delta - delta2);
          End;
      End;
  End;
  
  {------------------------------------------------------------------------------}
  