anchor.diff:    end;
   
   begin
  -  writeln('DEBUG:  TfpgBaseTextEdit.KeyboardCaretNav >>');
     case AKeyCode of
       keyLeft:
           begin
  
positive.code:           end;
          end;
  
      keyPrior, keyNext:
          begin
          end;
    end;
    writeln('DEBUG:  TfpgBaseTextEdit.KeyboardCaretNav <<');
  end;
  
  procedure TfpgBaseTextEdit.InitMemoObjects;
  
negative.code: { This procedure is used to set caret position on keyboard navigation and
    to set selection if Shift key is pressed. }
  procedure TfpgBaseTextEdit.KeyboardCaretNav(const ShiftState: TShiftState; const AKeyCode: Word);
  var
    SaveXCaret: Integer;
  
    procedure CtrlKeyLeftKey;
    var
  