[lifeplayer]

Подскажите пожалуйста, что не так. Делаю фильтр по lookup полю, но реагирует только на первую вводимую букву и все. В чем ошибка?

Код:

procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var s:string;
begin
Accept:=false;
s:=adoquery1.FieldByName('Nomenkl').Value;
if copy(s,1,Length(Form1.Edit1.Text))=Form1.Edit1.Text then
Accept:=true;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
adoquery1.Filtered:=true
else
 adoquery1.Filtered:=false;
  end;