anchor.diff:                else if FCursorPos < UTF8Length(FText) then
                   UTF8Delete(FText, FCursorPos + 1, 1);
                 hasChanged := True;
  +              Consumed := True;
               end;
  -        else
  -          Consumed := False;
  -      end;
  +      end;  { case }
       end;
   
       if Consumed then
  
positive.code: 
    if not Consumed then
    begin
      consumed := True;
  
     if not ReadOnly then
     begin
        case keycode of
  
negative.code:                 Dec(FCursorPos);
                  hasChanged := True;
                end;// backspace
                Consumed := True;
              end;
  
          keyDelete:
              begin
  