Hola
Ahora lo entiendo, hice una prueba y funciona perfectamente, el problema lo tenia en el concepto, sobre todo en cuanto a no estar chequeado.
Lo ponia asi:
Código Delphi
[-]
if CheckBox1.Checked = False then
Begin
ADOQuery2.Close;
ADOQuery3.Close;
Ahora asi:
Código Delphi
[-]
if not CheckBox1.Checked then
Begin
ADOQuery2.Close;
ADOQuery3.Close;
Casi lo mismo, verdad
Saludos