SQL Запрос на основе Combobox

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
const
  params = 2;
  ss: array [1 .. params] of string = ('Mark', 'Naimenovanie');
var
  i: integer;
  d: string;
  s: array [1 .. params] of string;
  cb: TCheckBox;
begin
  for i := 1 to params do
    s[i] := '';
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TCheckBox then
    begin
      cb := Components[i] as TCheckBox;
      if (cb.Tag < 1) or (cb.Tag > length(ss)) or (not cb.Checked) then
        continue;
      if s[cb.Tag] <> '' then
        s[cb.Tag] := s[cb.Tag] + ' OR ';
      s[cb.Tag] := s[cb.Tag] + ' (' + ss[cb.Tag] + '=' + cb.Caption + ')';
    end;
  for i := 1 to params do
    s[i] := trim(s[i]);
  d := '';
  for i := 1 to params do
    if s[i] <> '' then
    begin
      if d <> '' then
        d := d + ' AND ';
      d := d + '(' + s[i] + ')';
    end;
  d := trim(d);
  showmessage(d);
end;

Пример для 2 параметров (Mark и Naimenovanie). Не учтено, что нужно добавить #39. У нужных чекбоксов выставлен tag в соответствующее значение (1 или 2).