for n:=0 to Form1.ControlCount-1 do
begin
If Form1.Controls[n].ClassName='TCheckBox' then
begin
ParamByName('BOTON').asstring := (Form1.Controls[n] as TCheckBox).caption;
ParamByName('checked').asinteger := ifThen((Form1.Controls[n] as TCheckBox).checked,0,1)
end;
end;