anchor.diff:    sh := TVariantObject.Create(aValue);
     FGarbage.Add(sh);
     FComboBox.AddItem(aLabel, sh);
  +  if (FDefaultItemIndex >= 0) and (FCombobox.Items.Count > FDefaultItemIndex) then
  +    FCombobox.ItemIndex:= FDefaultItemIndex;
   end;
   
   procedure TmComboFilterConditionPanel.ClearItems;
  
positive.code: 
      procedure Clear; override;
      function IsEmpty : boolean; override;
    end;
  
    { TmExecuteFilterPanel }
  
negative.code: 
  { TmComboFilterConditionPanel }
  
  procedure TmComboFilterConditionPanel.SetDefaultItemIndex(AValue: integer);
  begin
    if FDefaultItemIndex=AValue then Exit;
    FDefaultItemIndex:=AValue;
    if (FDefaultItemIndex >= 0) and (FCombobox.Items.Count > FDefaultItemIndex) then
      FCombobox.ItemIndex:= FDefaultItemIndex;
  end;
  
  constructor TmComboFilterConditionPanel.Create(TheOwner: TComponent);
  begin
    inherited Create(TheOwner);
  