Фильтрация с использованием ComboBox и CheckBox.

  if  CheckBox.Checked then  твое условие
  
  if  ComboBox.Text= 'твое значение' then твое условие
 
        или
 
   case ComboBox.ItemIndex of
   0: действие1
   1: действие 2
 
  end;

procedure TForm4.ComboBox1Change(Sender: TObject);
begin
if  ComboBox1.Text= 'Статус' then ADOTable1
end;
 
procedure TForm4.CheckBox1Click(Sender: TObject);
begin
if  CheckBox1.Checked then  ADOTable1
end;
 
end.

procedure TForm4.ComboBox1Change(Sender: TObject);
begin
  if CheckBox1.Checked AND (ComboBox1.Text<> '') then begin
    ADOTable1.Filter := '';//что здесь писать непонятно, т.к. 
    //TC скрывает связь между содержимым ComboBox1 и таблицей в ADOTable1;
    ADOTable1.Filtered := true;
  end
  else
    ADOTable1.Filtered := false;  
end;
 
procedure TForm4.CheckBox1Click(Sender: TObject);
begin
  ComboBox1Change(nil);
end;

procedure TForm4.CheckBox1Click(Sender: TObject);
begin
  DBLookupComboBox1Click(nil);
end;
 
procedure TForm4.DBLookupComboBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked AND not VarIsNull(DBLookupComboBox1.KeyValue) then begin
    ADOTable1.Filter := 'СтатусID = ' + IntToStr(DBLookupComboBox1.KeyValue);
    ADOTable1.Filtered := true;
  end
  else
    ADOTable1.Filtered := false;
end;

procedure TForm6.Button2Click(Sender: TObject);
var
  q: TADOQuery;
begin
  q := TADOQuery.Create(nil);
  try
    q.Connection := Form3.ADOConnection1;
    q.SQL.Add('EXECUTE ВставитьПосещаемостьНаДату :[OnDate]');
    q.ParamCheck := true;
    q.Parameters[0].Value := DateTimePicker1.Date;
    q.ExecSQL;
    ADOTable1.Requery();
  finally
    q.Free;
  end;
end;