anchor.diff:    if AValue > 0 then
     begin
       DecodeDate(FDate, lY, lM, lD);
  -    case Index of
  +    case AIndex of
         1:  lD := AValue;
         2:  begin
               lM := AValue;
  
positive.code:       FThisMonthDays[ACol,ARow] := True;
  end;
  
  procedure TfpgPopupCalendar.SetDateElement(Index: integer; const AValue: Word);
  var
    lD, lM, lY: Word;
    lDate: TDateTime;
  
negative.code:     procedure   PopulateDays;
      procedure   CalculateMonthOffset;
      function    CalculateCellDay(const ACol, ARow: Integer): Integer;
      procedure   SetDateElement(AIndex: integer; const AValue: Word);
      procedure   SetDateValue(const AValue: TDateTime);
      procedure   SetMaxDate(const AValue: TDateTime);
      procedure   SetMinDate(const AValue: TDateTime);
  