Правильно построить запрос, и убрать ненужные параметры

[Dozent]

Здраствуйте, помогите пожайлуста с реализацией, суть такая, есть насколько параметров для поиска данных, параметры получаем из элементов на форме (Edit, ComboBOx и т.п.) так вот, если CheckBox.Checked
то параметр должен участвовать в запросе а если нет, то нет...

procedure TForm1.Button13Click(Sender: TObject);
begin
  with SMSF do
    begin
      Close;
      SQL.Text:='Select * from CLIENTS where (EMAIL like :mail) AND (D_ROZH = :d_rozh)';
      If CheckBox1.Checked then ParamByName('mail').AsString:='';
      If CheckBox6.Checked then ParamByName('d_rozh').AsDate:=Date1.Date;
      Open;
    end;
end;

Проблема в том что, если указать только один параметр, то унжные данные не находятся, а вот если указат ьвсе параметры (выделить чекбоксы и указать данные), то всё находится, подскажите как реализовать запрос таким образом что если чекбокс не чекед тогда параметр не участвует в запросе....

Заранее благодарю!

[Dozent]

мб кому пригодится

procedure TForm1.Button13Click(Sender: TObject);
var
  LWhere: string;
begin
  LWhere := '';
  If CheckBox1.Checked then LWhere := LWhere + ' (EMAIL like :mail)';
  If CheckBox6.Checked then begin
    if LWhere <> '' then
      LWhere := LWhere + ' AND ';
    LWhere := LWhere + ' (D_ROZH = :d_rozh)';
  end;
  if LWhere <> '' then
    LWhere := ' WHERE ' + LWhere;
  with SMSF do
    begin
      Close;
      SQL.Text:='Select * from CLIENTS' + LWhere;
      If CheckBox1.Checked then ParamByName('mail').AsString:='';
      If CheckBox6.Checked then ParamByName('d_rozh').AsDate:=Date1.Date;
      Open;
    end;
end;