anchor.diff:  
     SLine := FLines[CaretPos.Y];
   
  +  if not consumed then
  +  begin
     case keycode of
       keyBackspace:
           begin
  
positive.code:           end;
            consumed := True;
          end;
    end;
  
    if CaretScroll then
    begin
  
negative.code:     ckCopy:
        begin
          CopyToClipboard;
          consumed := True;
        end;
  
      ckPaste:
        begin
  //        if not ReadOnly then
            PasteFromClipboard;
            consumed := True;
        end;
  
      ckCut:
        begin
          CutToClipboard;
          consumed := True;
        end;
    end;
  
  