anchor.diff:  begin
     if Assigned(FMonthsPopupMenu) then
       FMonthsPopupMenu.Free;
  +  if Assigned(FYearPopupWindow) then
  +    FYearPopupWindow.Free;
     FntBold.Free;
     FntNorm.Free;
     inherited Destroy;
  
positive.code:     FMonthsPopupMenu.Close;
      FreeAndNil(FMonthsPopupMenu);
    end;
  end;
  
  function TfpgPopupCalendar.GetDateElement(Index: integer): Word;
  
negative.code:   end;
  
  
  {@VFD_NEWFORM_DECL}
  
  
  implementation
  
  