[Страдалецъ]

В принципе так-же как и находите, только мне кажется, что это вообще неправильный подход делать стопку кнопок.

Код:

For i:=0 to Form1.ControlCount-1 do
  if Form1.Controls[i].ClassType = TSoundButton then
  begin    
    ListBox1.Items.Add( SButton2.caption);
    TSoundButton(Form1.Controls[i]).Free;
  end;