procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.open;
  Table1.OnFilterRecord:=Table1FilterRecord;
  Table1.Filtered:=true;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  table1.refresh;
end;

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  accept:= DoSomeCheck(DataSet,Edit1.text);
end;