anchor.diff:  
       keyRight:
           begin
  -          writeln('DEBUG:  TfpgBaseTextEdit.KeyboardCaretNav >>>  keyRight');
             CaretPos.X := CaretPos.X + 1;
             if CaretPos.X > FMaxScrollH then
             begin
  
positive.code:               FSelEndNo := CaretPos.X;
                FSelEndOffs := CaretPos.X;
                FSelected := True;
              end else
              begin
                FSelEndNo := CaretPos.Y;
                FSelEndOffs := CaretPos.X;
  
negative.code: 
      keyUp:
          begin
            if CaretPos.Y = 0 then
              Exit;
            if not (ssShift in ShiftState) and not (ssCtrl in ShiftState) then
            begin
              CaretPos.Y := CaretPos.Y - 1;
  