Create RibbonBar at run-time

Is it able to create a ribbonbar at run-time ?
I use Delphi and try the following code :

constructor TRibbonBar.Create (AOwner: TForm);
begin
  CommandBars1 := TCommandBars.CreateParented(AOwner.Handle);

  CommandBars1.OnCustomization := CommandBars1Customization;
  CommandBars1.OnUpdate := CommandBars1Update;
  CommandBars1.OnExecute := CommandBars1Execute;
  .../...
end;

When i click on the Customization menuitem, it crashes. (ie if i click on About menu)
It seams that some initialization is missing

Thanks for Help