Problemas con Dbcheckbox

[[ElDioni]]

Mira a ver si es esto lo que buscas

Código Delphi [-]
procedure TFrmImagen.DBCheckBox1Click(Sender: TObject);
begin
if dbcheckbox1.Checked then
  begin
    adoquery1.fieldbyname('dbchecbox1.caption').asstring:=edit1.text;
  end;
end;