Фильтрация по нескольким значениям из нескольких CheckListBox

SELECT * FROM ZAYAVKA;

procedure TForm1.BitBtn1Click(Sender: TObject);
var n, s: string;
  i : integer;
  begin
  inherited;
  s := ' ';
  if CheckBox2.Checked then
  begin
    n := '';
    for i := 0 to CheckListBox1.Items.Count - 1 do
      if CheckListBox1.Checked[i] then n := n + ',' + inttostr(integer(CheckListBox1.items.objects[i]));
    if Length(n) > 1 then
    begin
      n[1] := ' ';
      if s <> '' then s := s + ' and ';
      s := s + ' IZAYAVKASTATUSID in (' + n + ')'
    end;
  end;
 
  if CheckBox3.Checked then
  begin
    n := '';
    for i := 0 to CheckListBox2.Items.Count - 1 do
      if CheckListBox2.Checked[i] then n := n + ',' + inttostr(integer(CheckListBox2.items.objects[i]));
    if Length(n) > 1 then
    begin
      n[1] := ' ';
      if s <> '' then s := s + ' and ';
      s := s + ' ISTAFFID IN (' + n + ')'
    end;
  end;
fDM.ADOQ_GET_Z.Close;
  fDM.ADOQ_GET_Z.Open;
  if s <> '' then
     fDM.ADOQ_GET_Z.SQL.Add('WHERE' + s);

memo1.lines.add(s);

for i := 0 to CheckListBox1.Items.Count - 1 do
      if CheckListBox1.Checked[i] then CheckListBox1.........

procedure TForm1.Btn1Click(Sender: TObject);
var i: Integer;
begin
    For i:=0 to checklistbox1.Items.Count-1 do
      begin
        If checklistbox1.Checked[i] then checklistbox1.Checked[i]:=False;
      end;
end;

 if CheckBox1.Checked then
  begin
    if s <> '' then s := s + ' and ';
    s := s + '(' + ' DTCREATE >''' + DateToStr(DateTimePicker1.Date) + ''''
      + 'and' + ' DTCREATE <''' + DateToStr(DateTimePicker2.Date) + ''')';
      end;

( DTCREATE >'03.02.2012'and DTCREATE <'10.02.2012')

  begin
    if s <> '' then s := s + ' and ';
       s := s + 'INT ([DTCREATE])BETWEEN :date1 and :date2';
   end;
 
 ...
 
     fDM.ADOQ_GET_Z.Parameters.ParamByName('date1').DataType := ftDateTime;
     fDM.ADOQ_GET_Z.Parameters.ParamByName('date2').DataType := ftDateTime;
     fDM.ADOQ_GET_Z.Parameters.ParamByName('date1').Value:=trunc(DateTimePicker1.Date);
     fDM.ADOQ_GET_Z.Parameters.ParamByName('date2').Value:=trunc(DateTimePicker2.Date);