Consulta->SQL->Clear(); Consulta->SQL->Add("SELECT Campo FROM Tabla WHERE Campobooleano="+ Consulta->Params->Items[0]->AsBoolean==true); Consulta->ExecSQL();