unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Commctrl, StdCtrls, ExtCtrls;

type
  TForm11 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;
  var
aBANDINFO: tagREBARBANDINFO; // сруктура прописана в CommCtrl
  hwndRB  : HWND;

implementation

{$R *.dfm}


procedure TForm11.Button1Click(Sender: TObject);
begin
hwndRB := CreateWindowEx(
    WS_EX_TOOLWINDOW, // extended window style
    'ReBarWindow32',
    'MyFirstReBar',
    WS_VISIBLE or WS_BORDER or WS_CHILD or WS_CLIPCHILDREN or
    WS_CLIPSIBLINGS or RBS_VARHEIGHT or RBS_BANDBORDERS or
    CCS_NODIVIDER or CCS_VERT {хочу вертикальный!},
    0, 0, 200, 100,
    Self.Handle, // handle to parent or owner window
    0, hInstance, nil);
    //создали ReBar, теперь пытаемся RB_INSERTBAND
    with aBANDINFO do
    begin
      cbSize :=  SizeOf(tagREBARBANDINFOA);
      cxMinChild:=300;
      cyMinChild:=300;
      fMask := RBBIM_COLORS or RBBIM_STYLE or RBBIM_CHILD or RBBIM_CHILDSIZE {or RBBIM_SIZE};
      fStyle := RBBS_CHILDEDGE or RBS_VARHEIGHT or RBS_AUTOSIZE or RBS_BANDBORDERS or RBBS_GRIPPERALWAYS;
      hwndChild :=  Panel1.Handle; //добавлять пробовал всё :)
      end;
SendMessage(hwndRB, RB_INSERTBAND, -1, Integer(@aBANDINFO));
//        ... всё прочее в любых вариантах
end;

end.