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: 
  uses
    Classes, SysUtils, StdCtrls, ExtCtrls, Controls, Grids, Types, Graphics,
    UCommon, Generics.Collections, Menus, ComboEx, Buttons;
  
  
  
  