поиск по таблице

[sid1868]

чего то не идет может кто сказать в чём проблема
procedure TForm3.Edit1Change(Sender: TObject);
begin
if (Edit1.Text) <> 0
then
form3.ADOTable1.filtered:=true
else
form3.ADOTable1.filtered:=false
form3.ADOTable1.filter:='наименовва ние ОС' ''+ Edit1.Text + '''';
end;

end.

[Сергей089]

Может нужно было так:

procedure TForm3.Edit1Change(Sender: TObject);
begin
if length(Edit1.Text) <> 0
then
begin
form3.ADOTable1.filtered:=true;
form3.ADOTable1.filter:='наименование ОС='''+Edit1.Text+'''';
end
else
form3.ADOTable1.filtered:=false;
end;