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

uses System;

var

    Ind    : Integer;

    StName : String; 

begin                         

    StName:='';   

    for Ind:=0 toPnlStokKartiBilgi.ControlCount-1 do

   begin                                             

       ifPnlStokKartiBilgi.Controls[Ind].ClassNameIs('TBtEdit') then

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

    end;                                                               

    Showmessage(StName); 

end;