With TdxBarButton.Create(Form1) do
                        begin
                                Caption := 'TEST!!!';
                                Name := 'BarButton1';
                        end;

var
  ABarManager : TdxBarManager;
  ABar : TdxBar;
  AEdit : TdxBarEdit;
  AForm : TForm;  // for Delphi  4 ™ you should use TCustomForm
  AItemLink : TdxBarItemLink;

begin
  ABarManager := GetbarManagerByForm(form1);
  AForm := ABarManager.MainForm;

  ABar := ABarManager.MainMenuBar;
  if ABar <> nil then
  begin
    AEdit := TdxBarEdit.Create(AForm);
    AItemLink := ABar.ItemLinks.Add;
    AItemLink.Item := AEdit;
    ABar.Control.RepaintBar;
  end;