anchor.diff:    YMD: TYMD;
     HMSMs: THMSMs;
     D, T: TDateTime;
  -  Finished: Boolean;
  +  Finished, ForceChange: Boolean;
   
   begin
     if FTextEnabled then begin
  
positive.code: 
            FUserChangedText := True;
  
            Invalidate;
          end;
  
        end;
  
negative.code:           else
              Finished := True;
            end;
            ForceChange := True;
  
          end else if Key in ['0'..'9'] then begin
  
            TTP := ttpAMPM;
            DTP := GetCurrentDateTextPart;
  
  