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