procedure TForm1.SButtonClick(Sender: TObject); begin Showmessage((Sender as TSoundButton).Caption); end;