Aktif Kodlama İle Belirli Bir Sınıfa Ait Nesne İsimleri Nasıl Alınır ?

uses System;

var

    Ind    : Integer;

    StName : String; 

begin                         

    StName:='';   

    for Ind:=0 to PnlStokKartiBilgi.ControlCount-1 do

    begin                                             

       if PnlStokKartiBilgi.Controls[Ind].ClassNameIs('TBtEdit') then

           StName:= StName+PnlStokKartiBilgi.Controls[Ind].name+',';  

    end;                                                               

    Showmessage(StName); 

end;