код для поиска по ДБФ через TQuery ... для ADOTable должно быть аналогичным:
Код:
procedure TfForm.Ed1Change(Sender: TObject);
begin
if Length(Ed1.Text)>0 then
begin
Ed2.Enabled:=False;
Q1.Filter:='TIN = '''+Ed1.Text+'*''';
Q1.Filtered:=True;
end
else
begin
Ed2.Enabled:=True;
Q1.Filtered:=False;
end;
end;