procedure TForm1.Edit1Change(Sender: TObject); begin With Table1 Do Begin Filtered := False; FilterOptions := [foCaseInsensitive]; Filter := '[Name]=''' + Edit1.Text + '*'''; Filtered := True; End; end;