anchor.diff:    if not Consumed then
     begin
       // checking for movement keys:
  -    consumed := True;
  -
       case keycode of
         keyLeft:
           if FCursorPos > 0 then
           begin
  +          consumed := True;
             Dec(FCursorPos);
   
             if (ssCtrl in shiftstate) then
  
positive.code: procedure TfpgCustomEdit.HandleKeyPress(var keycode: word;
    var shiftstate: TShiftState; var consumed: boolean);
  var
    lpos: integer;
    hasChanged: boolean;
  
    procedure StopSelection;
  
negative.code: begin
  //  writeln(Classname, '.Keypress');
    Consumed := False;
  //   lpos := FCursorPos;
    hasChanged := False;
  
    Consumed := True;
  