anchor.diff:    if (Shift = [ssCtrl]) and (Key <> VK_CONTROL) then
       case Key of
         Ord('A'): SetSelections(0, GetMaxCursorPos);
  -      Ord('C'): if HasSelection then
  -                  Clipboard.AsText := GetSelectedText;
  +      Ord('C'),
         Ord('X'): if HasSelection then
                     Clipboard.AsText := GetSelectedText;
       end;
  
positive.code: end;
  
  
  procedure TKMMemo.MouseWheel(Sender: TObject; WheelDelta: Integer);
  begin
    inherited;
  
negative.code: 
      function GetVisibleRows: Integer;
      function KeyDown(Key: Word; Shift: TShiftState): Boolean; override;
      function KeyUp(Key: Word; Shift: TShiftState): Boolean; override;
      procedure MouseWheel(Sender: TObject; WheelDelta: Integer); override;
      procedure MouseDown(X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
      procedure MouseMove(X,Y: Integer; Shift: TShiftState); override;
  