anchor.diff:                  CtrlKeyLeftKey
                 else
                   FSelEndOffs := CaretPos.X;
  -            end else
  +            end
  +            else
               begin
                 FSelEndNo := CaretPos.Y;
                 if ssCtrl in ShiftState then
  
positive.code:                   FSelEndOffs := Length(FLines[FSelEndNo]) - 1;
                    CaretPos.X := FSelEndOffs;
                  end;
                end else
                begin
                  FSelEndOffs := 0;
                  CaretPos.X := 0;
  
negative.code:         begin
          end;
    end;
    writeln('DEBUG:  TfpgBaseTextEdit.KeyboardCaretNav <<');
  end;
  
  procedure TfpgBaseTextEdit.InitMemoObjects;
  