anchor.diff:      FConfirmedDateTime: TDateTime;
       FNoEditingDone: Integer;
       FAllowDroppingCalendar: Boolean;
  +    FChangeInRecursiveCall: Boolean;
   
       function AreSeparatorsStored: Boolean;
       function GetChecked: Boolean;
  
positive.code: end;
  
  procedure TCustomZVDateTimePicker.UpdateDate;
  const
    InRecursiveCall: Boolean = False;
  
  var
    W: Array[1..3] of Word;
    WT: Array[TTimeTextPart] of Word;
  
negative.code:       end else
          FConfirmedDateTime := FDateTime;
      finally
        FChangeInRecursiveCall := False;
      end;
    end;
  
  