ну и в чем проблема?
Код:
if checkbox1.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу можно вынести в процедуру Прос1 и передать значения в ее параметры}
if checkbox2.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу либо вызов прос1}
if checkbox3.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу либо вызов прос1}
if checkbox4.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу либо вызов прос1}
либо:
В цикле перебираем компоненты если это компонент класса TCheckbox
то берем найденный компонент и проверяем checked и записываем.