Valores de un checkbox

[alt126]

Bueno, yo sigo insistiendote en lo de los parametros:

Consulta->SQL->Clear();
Consulta->SQL->Add("SELECT Campo FROM Tabla WHERE Campobooleano=:a");
if(Checkbox->Checked == true)
Consulta->Params->Items[0]->AsBoolean = true;
else
Consulta->Params->Items[0]->AsBoolean = false;
Consulta->ExecSQL();