delphi 翻译cb ；关于同一方法多控件调用的方法！用sender判断！

C/C++ code

for (int i = 0;i< 10;i++){TButton *newbtn=new TButton(Panel1);  newbtn->Parent =Panel1;  newbtn->OnClick = clickllll();}

我连续创建10个按钮！使用同一方法！

方法代码！

C/C++ code

void clickllll(TObject *sender){  //代码(看下面的delphi代码进行翻译一下!谢谢大神们!)}

delphi 代码

Delphi(Pascal) code

procedure clickllll(sender: Tobject)begin  (sender as Tbutton).font.size := 10;end;

请问c++b里面想delphi的方法怎么做到？

[解决办法]

C/C++ code

void __fastcall clickllll(TObject *sender){    ((TButton *)Sender)->Font->Size = 10;}