Creating a Ribbon in Delphi

How do you create a Ribbon in Delphi 7?

I imported the ActiveX using Delphi Wizard.
A sample sketch of my code is the following:

procedure TForm1.FormCreate(Sender: TObject);
var
  CommandBarsFrame: TCommandBarsFrame;
  Ribbon: IRibbonBar;
begin
  CommandBarsFrame :=   TCommandBarsFrame.CreateParented(Self.Handle);
  CommandBarsFrame.EnableOffice2007Frame(True);
  CommandBarsFrame.VisualTheme := xtpThemeRibbon;
  Ribbon := CommandBarsFrame.AddRibbonBar(Widestring('Sample'));
  Assert(Ribbon <> nil); //the Ribbon is always nil
end;

What i´m missing?

Thanks in advance

Do You really need Frame object...

the following code works perfectly

  FCommandBars := TCommandBars.CreateParented(FFormOwner.Handle);
  FRibbon := FCommandBars.AddRibbonBar(FFormOwner.Name)

regards