Crear InspectorBar TMS por código

[Deiv]

Sigo intentando y mejorando mi código, pero ahora me encuentro con el problema de la creación de los Items:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
   i: integer;
   MiBar:TInspectorBar;
const
   MisPanels : array [0..2] of String = ('Automóviles','Repuestos','Otros');
   MisItems : array [0..2] of String = ('Toyota','Nissan','Suzuki');

begin
   MiBar := TInspectorBar.Create(Self);
   MiBar.Parent := Self;
   MiBar.Align:= alRight;
   for i:= 0 to 2 do
     begin
       MiBar.Panels.Add;
       MiBar.Panels[i].Caption :=MisPanels[i]
     end;

   for i:= 0 to 2 do
     begin
       MiBar.Panels[0].CreateItems;// Aquí me lanza error!!
       MiBar.Panels[0].Items[i].Caption:=MisItems[i];
     end;
end;

end.