anchor.diff:                  else begin
                     Delete(fText, CursorPos, 1);
                     CursorPos := CursorPos-1;
  +                  Changed;
                   end;
       VK_DELETE:  if HasSelection then
                     DeleteSelectedText
                   else
  +                begin
                     Delete(fText, CursorPos+1, 1);
  +                  Changed;
  +                end;
     end;
   
     if (Shift = [ssShift]) and (Key <> VK_SHIFT) then
  
positive.code: unit KM_Controls;
  {$I KaM_Remake.inc}
  interface
  uses
  
negative.code:     Tag2: Integer; //Some tag which can be used for various needs
  
      constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aPaintLayer: Integer = 0);
      destructor Destroy; override;
      function HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False; aIncludeNotHitable: Boolean = False): Boolean; virtual;
  
      property Parent: TKMPanel read fParent;
  