checkbox

[Lupita]

ok mira tengo muchos checkbox y quiero hacer esto

insert into PERM (P_CONSECUTIVO,MODULO,BOTON,checked)
values(:P_CONSECUTIVO,:MODULO,:BOTON,:checked)
ParamByName('P_CONSECUTIVO').asinteger := inc(i);
ParamByName('MODULO').asstring := menu ;
ParamByName('BOTON').asstring := checkbox1.caption;
ParamByName('checked').asinteger := ifThen(checkbox1.checked,0,1)

para cada uno y son como 23
como le podira hacer para no estar repitiendo eso las 23 veces
no se algo asi como checkbox[1].checked
la verdad no sep