anchor.diff:        FDateTime := ComposeDateTime(FMinDate, FDateTime);
     end;
   
  -  if not InRecursiveCall then begin // we'll skip the next part in
  +  if not FChangeInRecursiveCall then begin // we'll skip the next part in
            // recursive calls which could be made through Change or UndoChanges
  -    InRecursiveCall := True;
  +    FChangeInRecursiveCall := True;
       try
         if FUserChanging > 0 then begin // this means that the change is caused by user interaction
           try
  
positive.code:     FConfirmedDateTime: TDateTime;
      FNoEditingDone: Integer;
      FAllowDroppingCalendar: Boolean;
  
      function AreSeparatorsStored: Boolean;
      function GetChecked: Boolean;
  
negative.code: end;
  
  procedure TCustomZVDateTimePicker.UpdateDate;
  var
    W: Array[1..3] of Word;
    WT: Array[TTimeTextPart] of Word;
  