[ixMike]

Podrías hacer algo así:

Código Delphi [-]
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;

Salu2.