(SOLVED) TToolButton question

[xinyiman]

Hello guys, I create a TToolBar at run time by creating some TToolButton and run-time check all the steps @ MyProcedure
How do I know in

procedure TForm1.MyProcedure(Sender: TObject);

TCoolButton which I hold?

[ludob]

(Sender as TControl).name

Edit: a more structured way of doing this is to assign a value to TControl.Tag when creating the control and then check (Sender as TControl).Tag. This avoids testing strings.
 

[xinyiman]

Thank you. is perfect