anchor.diff:      FCaptionLabel: TLabel;
       FSearchLabel: TLabel;
       FSearchEdit: TEdit;
  -    FSearchButton: TButton;
  +    FSearchButton: TSpeedButton;
       FMultiSearchCheckComboBox: TCheckComboBox;
       FTopPanel: TPanel;
       FTopPanelMultiSearch: TPanel;
  
positive.code:       PopupMenu:=FSearchKindPopupMenu;
      end;
  
      FSearchButton := TButton.Create(Self);
      FSearchButton.Parent := FTopPanel;
      with FSearchButton do
      begin
        AnchorSideLeft.Control := FSearchEdit;
  
negative.code:       BorderSpacing.Left := 2;
        Left := 173;
        Top := 6;
        Width := 23;
        Height := 23;
        PopupMenu:=FSearchKindPopupMenu;
      end;
  
  