[delphi] creare toolbar con relativi pulsanti a runtime

[123delphi321]

Ciao a tutti.

ho inserito un componente PageControl nel mio programma e in fase di runtime creo in questo componente n sheet (a secondo del risultato di una query).

adesso, sempre a runtime, in ogni di questa sheet avrei bisogno di inserire una toolbar e nella toolbar n pulsanti.

non sono riuscito a capire come fare....

le sheet le creo cosi:

   DM.IBQueryTMP.First;
   while not DM.IBQueryTMP.Eof do
     with TcxTabSheet.Create(Self) do
     begin
      PageControl := cxPageControl1;
      Caption := DM.IBQueryTMP.FieldByName('item').AsString;
      DM.IBQueryTMP.Next;
     end;

mi date un aiuto?

grazie