#pas
procedure BuildRebar(const hwndParent: HWND; var hRebar: HWND);
begin
 hwndRebar := CreateWindowEx(WS_EX_TOOLWINDOW, REBARCLASSNAME, nil,
  WS_VISIBLE or WS_BORDER or WS_CHILD or WS_CLIPCHILDREN or WS_MAXIMIZE or
  WS_CLIPSIBLINGS or RBS_VARHEIGHT or RBS_BANDBORDERS or
  RBS_DBLCLKTOGGLE, 0, 0, 0, 0, hwndParent, ID_REBAR, hInstance,nil);
   if(hwndRebar <> 0) then begin
    hRebar  := hwndRebar;
   end;
end;