anchor.diff:          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;
  
positive.code:         BorderSpacing.Bottom := 6;
          Width := 23;
          PopupMenu:=FSearchKindPopupMenu;
        end;
  
        FSearchEdit := TEdit.Create(Self);
  
negative.code:     FCaptionLabel: TLabel;
      FSearchLabel: TLabel;
      FSearchEdit: TEdit;
      FSearchButton: TSpeedButton;
      FMultiSearchCheckComboBox: TCheckComboBox;
      FTopPanel: TPanel;
  