[Klassenas]

Использую такой код:

Код:

  if sEdit1.Text = '' then exit;
  if sCheckBox1.Checked = True then a := ''
    else a := '%';
  if sComboBox1.ItemIndex=0 then 
    Exit;
  pole := sComboBox1.Text;
  SQL.Text := 'SELECT * FROM [Таблица] WHERE '+ pole + ' Like ''' + a + sEdit1.Text + '%''';

Примерно так.