anchor.diff:            end;
             consumed := True;
           end;
  -  end;
  +  end;  // case keycode
  +  end; // if not consumed
   
     if CaretScroll then
     begin
  
positive.code: 
    SLine := FLines[CaretPos.Y];
  
    case keycode of
      keyBackspace:
          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;
  
  