anchor.diff:            else
               Finished := True;
             end;
  +          ForceChange := True;
   
           end else if Key in ['0'..'9'] then begin
  +
             TTP := ttpAMPM;
             DTP := GetCurrentDateTextPart;
   
  
positive.code: 
            FUserChangedText := True;
  
            Invalidate;
          end;
  
        end;
  
negative.code: 
        if (not FReadOnly) then begin
          Finished := False;
          ForceChange := False;
  
          if FSelectedTextPart = 8 then begin
            case upCase(Key) of
  