procedure TForm1.btnDelSelectPnlClick(Sender: TObject);
var
i,j: Integer;
begin
for i:= ScrollBox1.ControlCount - 1 downto 0 do
if ScrollBox1.Controls[i] is TPanel then
for j:= 0 to TPanel(ScrollBox1.Controls[i]).ControlCount-1 do
if (TPanel(ScrollBox1.Controls[i]).Controls[j] is TCheckBox) and
(TCheckBox(TPanel(ScrollBox1.Controls[i]).Controls[j]).Checked) then
ScrollBox1.Controls[i].Free;
end;