procedure TForm1.FormCreate(Sender: TObject);
var
  sl: TStringList;
  i: integer;
begin
  AdvSearchEdit1.SearchButton.Visible := false;
  AdvSearchEdit1.CategoryButton.Visible := false;
  AdvSearchEdit1.DropDownHeader.Visible := false;

  // loading the dictionary file in the TAdvSearchEdit
  sl := TStringList.Create;
  try
    sl.LoadFromFile(''e:\tms\temp\dictionary.txt'');
    AdvSearchEdit1.LoadStrings(sl);
  finally
    sl.Free;
  end;

  // linking up the TAdvSearchEdit as inplace editor
  FormControlInspectorEditLink1.Control := AdvSearchEdit1;
  // inplace editor control will still hanbdle return key
  FormControlInspectorEditLink1.WantKeyReturn := true;

  InspectorBar1.Panels[0].ItemHeight := 26;
  InspectorBar1.Panels[0].Style := psProperties;

  for i := 0 to InspectorBar1.Panels[0].Items.Count - 1 do
  begin
    InspectorBar1.Panels[0].Items[i].EditLink := FormControlInspectorEditLink1;
    InspectorBar1.Panels[0].Items[i].PropertyType := ptCustom;
  end;
end;

procedure TForm1.FormControlInspectorEditLink1GetEditorValue(Sender: TObject;
  Item: TInspectorItem; var AValue: string);
begin
  AValue := AdvSearchEdit1.Text;
end;

procedure TForm1.FormControlInspectorEditLink1SetEditorValue(Sender: TObject;
  Item: TInspectorItem; AValue: string);
begin
  AdvSearchEdit1.Text := AValue;
end;

var
  pnl: TInspectorPanel;
  inspi: TInspectorItem;
begin
  pnl := inspectorbar1.Panels.Add;
  pnl.Style := psProperties;
  inspi := pnl.Items.Add;
  inspi.PropertyType := ptText;
  inspi.Caption := 'Edit';
end;

begin
  inspectorbar1.SetFocus;
  inspectorbar1.StartEdit(inspectorbar1.Panels[0].Items[0]);
end;

begin
  InspectorBar1.Panels.Add;
  InspectorBar1.PanelCaption.SideDisplay := true;
  InspectorBar1.PanelCaption.SideWidth := 20;
  InspectorBar1.PanelCaption.OpenCloseGraphic := ocgCross;
  InspectorBar1.Mode := imMultiPanelActive;
  InspectorBar1.Panels[0].Caption := 'A panel';
  InspectorBar1.Panels[0].ItemHeight := 23;
  InspectorBar1.Panels[0].Items.Add;
  InspectorBar1.Panels[0].Items.Add;
  InspectorBar1.Panels[0].Items.Add;
  InspectorBar1.Panels[0].Items.Add;
  InspectorBar1.Panels[0].Style := psProperties;
  InspectorBar1.Panels[0].Items[0].Level := 0;
  InspectorBar1.Panels[0].Items[0].Caption := 'Root 0';
  InspectorBar1.Panels[0].Items[1].Level := 1;
  InspectorBar1.Panels[0].Items[1].Caption := 'Item';
  InspectorBar1.Panels[0].Items[2].Level := 2;
  InspectorBar1.Panels[0].Items[2].Caption := 'SubItem';
  InspectorBar1.Panels[0].Items[3].Level := 0;
  InspectorBar1.Panels[0].Items[3].Caption := 'Root 1';
end;