anchor.diff:      procedure   Clear;
       procedure   BeginUpdate;
       procedure   EndUpdate;
  +    property    CursorPos: integer read FCursorPos write SetCursorPos;
       property    CursorLine: integer read FCursorLine write SetCursorLine;
       property    Font: TfpgFont read FFont;
       property    LineHeight: integer read FLineHeight;
  
positive.code:   FSelStartLine   := FCursorLine;
    FSelEndLine     := FCursorLine;
    FMouseDragging  := False;
  end;
  
  constructor TfpgMemo.Create(AOwner: TComponent);
  
negative.code:     procedure   ShowDefaultPopupMenu(const x, y: integer; const shiftstate: TShiftState); virtual;
      procedure   SetReadOnly(const AValue: Boolean);
      procedure   ResetSelectionVariables;
      procedure   SetCursorPos(const AValue: integer);
    protected
      procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  