anchor.diff:      procedure MultiSearchCheckComboBoxChange(Sender: TObject; AIndex: Integer);
       procedure DelayedBoundsChange(Sender: TObject);
       procedure FetchDataThreadProgress(Sender: TObject);
  +    procedure SearchButtonClick(Sender: TObject);
     private
       FFetchDataInThread: boolean;
       FOnPreparePopupMenu: TPreparePopupMenuEvent;
  
positive.code:         Width := 121;
          TextHint := 'Search expression';
          PopupMenu:=FSearchKindPopupMenu;
        end;
  
        FSearchColumnComboBox := TComboBox.Create(Self);
        FSearchColumnComboBox.Parent := FTopPanelRight;
        with FSearchColumnComboBox do
        begin
          AnchorSideTop.Control := FTopPanelRight;
          AnchorSideRight.Control := FSearchEdit;
          AnchorSideRight.Side := asrLeft;
          AnchorSideBottom.Control := FTopPanelRight;
          AnchorSideBottom.Side := asrBottom;
          Anchors := [akTop, akRight, akBottom];
          BorderSpacing.Top := 6;
          BorderSpacing.Right := 2;
          BorderSpacing.Bottom := 6;
          Width := 90;
          PopupMenu:=FSearchKindPopupMenu;
          Text:='Name';
        end;
      end;
    end;
  
negative.code:         BorderSpacing.Bottom := 6;
          Width := 23;
          PopupMenu:=FSearchKindPopupMenu;
          OnClick:=SearchButtonClick;
        end;
  
        FSearchEdit := TEdit.Create(Self);
  