[friz]

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule1.ZTable1.Filter:= [foCaseInsensitive];
DataModule1.ZTable1.Filter:='FAM = '''+'*' + edit1.Text + '*'+'''';
DataModule1.ZTable1.Filtered:=true;
end;