Привет всем. Не получается подставлять имя поля в процедуре поиска. Чтобы была возможность искать по разным полям.

var FieldName: string;
begin
case ComboBox1.ItemIndex of
0: FieldName := ADOQuery1.Fields[1].FieldName;
1: FieldName := ADOQuery1.Fields[2].FieldName;
2: FieldName := ADOQuery1.Fields[3].FieldName;
3: FieldName := ADOQuery1.Fields[4].FieldName;
4: FieldName := ADOQuery1.Fields[5].FieldName;
end;
with ADOQuery1 do
  begin
    Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT *FROM tablename');
    ADOQuery1.SQL.Add('WHERE(FieldName LIKE "%' + Edit1.Text + '%")');
    ADOQuery1.Open;
end;
end;

Сообщение: "FieldName не является параметром по умолчанию"

Подскажите что не так пожалуйста, и вообще что и как работать с параметрами, задавать по умолчанию.

Спасибо Данкинг