anchor.diff:    FDrawOffset       := 0;
     FSelectedItem     := -1;       // to allow typing if list is empty
     FNewItem          := False;
  +  FSpecialChar      := -1;
   
     CalculateInternalButtonRect;
   end;
  
positive.code:   i: integer;
  begin
    hasChanged := False;
  
    if not Enabled then
      consumed := False
  
negative.code:     FSelStart: integer;
      FSelOffset: integer;
      FCursorPos: integer;
      FSpecialChar: integer;
      procedure   DoDropDown; override;
      function    GetText: string; virtual;
      function    HasText: boolean; virtual;
  