Одинарные кавычки Delphi

[Hard_core]

Всем привет!
Возникла проблема (я так понял с одинарными кавычками и их количеством) при вставке кода содержимого ComboBox.

procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(Edit1.text)>0 then
datamodule5.ADOTable2.Filtered:=true
else
datamodule5.ADOTable2.Filtered:=false;
datamodule5.ADOTable2.Filter:=' Фамилия ='' +Edit1.text+''';
end;

То что нужно вставить вместо "Фамилия": Combobox1.items.strings[combobox1.itemindex]

Поясню. Хочу сделать фильтрацию в таблице. Через ComboBox выбирается поле, по которому будет производиться фильтр, в Edit вводится значения для отсеивания.
Т.е. Выбрал фильтрацию по Фамилии, ввел в поле - Сидоров, в таблице остались одни сидоровы.

[Swarog]

datamodule5.ADOTable2.Filter:=' Фамилия =''' +Edit1.text+'''';

если нужны ковычки то ставишь двойные которые принимаются за один символ ковычки в тексте а не конец тестовой константы

[Hard_core]

ОК.

datamodule5.ADOTable2.Filter:=' Фамилия =''' +Edit1.text+'''';

Исправил, но combobox так и не работает. Более того при вводе с клавиатуры в поле Edit вылетает ошибка: "Аргументы имеют неверный тип... ... или вступают в конфликт друг с другом".

[Азамат Казанчев]

если это типа поиска мспользуй функцию locate

[CIIayHeHoK]

Сталкивался с такой проблемой, Посмотри вот тут детально описано как че сделать:
http://delphibd.sk6.ru/index.php?action=filter