TMS Eventos por código

[Deiv]

Hola,
El hilo lo puse aquí por la forma gráfica de crear la barra.
Para que se me entienda mi pregunta he creado un código pequeño que trabaja con una BD hecha en Acces muy pequeña y que ambos han de trabajar con el componente de TMS (Barra: OutLookBar)

Código Delphi [-]
implementation
uses Formulario2;

type
  UnArray = array[0..10] of string;
var
  x:integer;
  A:UnArray;
  NuevoBar:TInspectorBar;
const
  sqlSubGrupo1 = ' select DISTINCT SubGrupo from Elementos where Tipo = "Metal"';
  sqlSubGrupo2 = ' select DISTINCT SubGrupo from Elementos where Tipo = "No Metal"';
{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j:  integer;
begin
  x:=0;
  ADOQuery1.Active:= False;
  ADOQuery1.Sql.text:= sqlSubGrupo1;
  ADOQuery1.Active:= True;

  with ADOQuery1 do
   begin
     first;
     while not eof do
       begin
          A[x]:= FieldByName('SubGrupo').Value;
          inc(x);
          next;
       end;
   end;

  NuevoBar := TInspectorBar.Create(Form2);
  NuevoBar.Parent := Form2;
  NuevoBar.Align:= alLeft;

  for i:= 0 to x-1 do
    begin
      with NuevoBar.Panels.Add do
        begin
          NuevoBar.Panels[i].Caption:=A[i];
          ItemHeight:= 20;
          Style:= psSmallIcon;
          Alignment:= taLeftJustify;
          HoverCaption:= True;

          ADOQuery1.Active:= False;
          ADOQuery1.Sql.text := ' select Nombre from Elementos where SubGrupo = "'+ A[i]+'"';
          ADOQuery1.Active:= True;
          ADOQuery1.First;
          for j := 0 to ADOQuery1.RecordCount - 1 do
            begin
               with Items.Add do
                  NuevoBar.Panels[i].Items[j].Caption:=ADOQuery1.Fields[0].Value;
               ADOQuery1.Next;
            end;
        end;
      NuevoBar.TopPanel:= NuevoBar.Panels.Count;
    end;
    NuevoBar.Style:= esOffice2003Blue;
    Form2.Show;
    NuevoBar.OnItemClick:=MiProc1;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  i,j:  integer;
begin
  Form2.Show;
  x:=0;
  ADOQuery1.Active:= False;
  ADOQuery1.Sql.text:= sqlSubGrupo2;
  ADOQuery1.Active:= True;

  with ADOQuery1 do
   begin
     first;
     while not eof do
       begin
          A[x]:= FieldByName('SubGrupo').Value;
          inc(x);
          next;
       end;
   end;

  NuevoBar := TInspectorBar.Create(Form2);
  NuevoBar.Parent := Form2;
  NuevoBar.Align:= alLeft;

  for i:= 0 to x-1 do
    begin
      with NuevoBar.Panels.Add do
        begin
          NuevoBar.Panels[i].Caption:=A[i];
          ItemHeight:= 20;
          Style:= psSmallIcon;
          Alignment:= taLeftJustify;
          HoverCaption:= True;

    ADOQuery1.Active:= False;
          ADOQuery1.Sql.text := ' select Nombre from Elementos where SubGrupo = "'+ A[i]+'"';
          ADOQuery1.Active:= True;
          ADOQuery1.First;
          for j := 0 to ADOQuery1.RecordCount - 1 do
            begin
               with Items.Add do
                  NuevoBar.Panels[i].Items[j].Caption:=ADOQuery1.Fields[0].Value;
               ADOQuery1.Next;
            end;
        end;
      NuevoBar.TopPanel:= NuevoBar.Panels.Count;
    end;
    NuevoBar.Style:= esOffice2003Blue;
    Form2.Show;
    NuevoBar.OnItemClick:=MiProc2;
end;

procedure TForm1.MiProc1(Sender: TObject; AInspectorPanel: TInspectorPanel; AInspectorItem: TInspectorItem);
begin
  if AInspectorPanel.Index = 0 then
    begin
      case AInspectorItem.Index of
        0: ShowMessage(NuevoBar.Panels[0].Items[0].Caption);
        1: ShowMessage(NuevoBar.Panels[0].Items[1].Caption);
        2: ShowMessage(NuevoBar.Panels[0].Items[2].Caption);
      end;
    end;
end;
end.

La pregunta está en el procedure:

Código Delphi [-]
procedure TForm1.MiProc1

Al menos mi persona no conoce otra forma del TMS de crearle el Evento como se ve ahí, bueno lo que está escrito dentro funciona, pero la pregunta se basa en mi código que tiene 2 botones donde cada uno crea el Objeto TMS (Barra OutLook) en tiempo de ejecución con distintos Items (también podía haber sido con distintos Paneles, lo simplifiqué) que capturan de mi BD hecha en Access con 2 consultas diferentes para cada botón, la situación es que como se ve esta Procedure:

El código por dentro es Fijo en CASE, es decir, si supiera la cantidad exacta de los Items, no habría problema en colocarle el NÚMERO de CASOS, pero lo cierto es que si se dan cuenta y prueban el código, se crean DIFERENTES ÍTEMS según se clicke el botón de 'Metales' o 'No Metales'.

¿Cómo encarar esta parte de los Eventos (Case) de la Barra OutLook de TMS para cualquier x-cantidad de Ítemes?
¿Alguna otra sugerencia?

Mas tarde intentaré adjuntarles el archivo con código

[Deiv]

Aquí
Adjunto la aplicación de ejemplo pero solo funcionará si tienen instalado el Componente TMS.
Solo pedirles si no hay posibilidades de realizar esto, comentarme please?

[Deiv]

Al parecer, no tengo respuesta sobre mi caso .

Hablando del Software TMS me preguntaba lo siguiente (y esto va para los que utilizan este Componente):
Ingresando a su Página principal, encuentras una serie de componentes variados verdad?, que si eliges uno de ellos te muestra para descargar en diferentes versiones de Delphi, Yo por intentar así lo hice con uno de ellos, y lo instalé en mi Delphi, de funcionar, funciona!.

La pregunta es, si bien estos componentes son Shareware, ¿Cómo es que me doy cuenta de ello?, es decir no me sale ningún mensaje de error, ni advertencia, ni nada por el estilo, ¿Cómo es que me doy cuenta que es de prueba?. Alguien utilizando estos componentes de TMS (de prueba) pudo observar algún tiempo limitado? o un posterior truncamiento. Pues en algunos componentes Share (OTROS) cuando los instalas existe una propiedad que dice: "Version" y ahí te muestra que es "Trial", pero en TMS no sé como detectar eso y que hace si es de prueba, deja de funcionar luego?
Saludos