[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

[maffio]

private
{ Private declarations }
ToolBar: TToolBar;
ToolButton: TToolButton;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
// creai toolbar
ToolBar := TToolBar.Create(Nil);
TabSheet1.InsertControl(ToolBar);

// crei un pulsante dentro la toolbar
ToolButton := TToolButton.Create(ToolBar);
ToolButton.Parent := ToolBar;
end;

[123delphi321]

grazie