anchor.diff:    FReadOnly   := False;
     FUpdateCount := 0;
     FBorderStyle := ebsDefault;
  +  FSpecialChar := -1;
   
     FLines      := TfpgMemoStrings.Create(self);
     FFirstLine  := 0;
  
positive.code:     function    GetSelectionText: TfpgString;
      procedure   SetSelectionText(const AText: TfpgString);
    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;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
  
negative.code:   fpgApplication.HideHint;
    Consumed := True;
    hasChanged := False;
  
    if (keycode= 58536) or (keycode= 58462) then
      FSpecialChar:= keycode;
  
    case CheckClipBoardKey(keycode, shiftstate) of
      ckCopy:
          begin
  