对于一组动态生成的控件怎么获得当前活动控件的名字

对于一组动态生成的控件如何获得当前活动控件的名字
unit   Unit1;

interface

uses
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
    Dialogs,   StdCtrls,   ExtCtrls;

type
    TForm1   =   class(TForm)
        Button1:   TButton;
        Panel1:   TPanel;      
        procedure   Button1Click(Sender:   TObject);        
    private
        procedure   myclick(sender:Tobject);
        {   Private   declarations   }
    public
        {   Public   declarations   }
    end;

var
    Form1:   TForm1;

implementation

{$R   *.dfm}

procedure   Tform1.myclick(sender:Tobject);

begin
   
    Panel1.Caption:=ActiveControl.Name;        

end;

procedure   TForm1.Button1Click(Sender:   TObject);
var
    comboBox1:   TComboBox;
begin
    comboBox1:=TcomboBox.Create(self);
    combobox1.Parent:=form1;
    comboBox1.Top:=10;
    with   comboBox1   do
    begin
        comboBox1.OnChange:=myclick;
    end;
end;

为什么在panel1的caption属性不能够显示出   动态创建的comboBox1控件的名字呢？

急急急   ！~~~~~~~~~~~~


[解决办法]
因为你创建ComboBox的时候没有指定Name，加一行：

comboBox1.Name := 'WaKaKa ';