anchor.diff:    FEdit.ButtonCaption:='...';
     FEdit.OnButtonClick:= Self.OnShowValuesList;
     FLabel := Self.CreateStandardLabel;
  -  FValueType:= efString;
     CreateStandardFilterMenu(FLabel, true);
     FGarbage := TObjectList.Create(true);
     FValues := TStringList.Create;
  +  FValueType:= cfString;
     CreateStandardFilterMenu(FLabel, false);
   end;
   
  
positive.code:     FCombobox: TComboBox;
      FGarbage : TObjectList;
      FDefaultItemIndex : integer;
      procedure SetDefaultItemIndex(AValue: integer);
    public
      constructor Create(TheOwner: TComponent); override;
  
negative.code: 
      procedure Clear; override;
      function IsEmpty : boolean; override;
      property ValueType : TmComboCheckLookupFilterValueType read FValueType write FValueType;
    end;
  
  
  