anchor.diff:      FSelStart: integer;
       FSelOffset: integer;
       FCursorPos: integer;
  +    FSpecialChar: integer;
       procedure   DoDropDown; override;
       function    GetText: string; virtual;
       function    HasText: boolean; virtual;
  
positive.code:   i: integer;
  begin
    prevval   := FText;
    s         := AText;
    consumed  := False;
    if FText = '' then
  
negative.code:   i: integer;
  begin
    hasChanged := False;
  
    if (keycode= 58536) or (keycode= 58462) then
      FSpecialChar:= keycode;
  
    if not Enabled then
      consumed := False
  