// Edit 'in OnChange değerine alttaki kodu yazın.
 
procedure TForm2.Edit1Change(Sender: TObject);
begin
 if edit1.Text='' then form1.table1.Filter:='' else
      form1.table1.Filter:='[Adi]='+#39+edit1.text+'*'+#39;    // Burdaki [Adi] sizin tablonuzda filtrelenecek alandır.
end;
 
// Edit 'in OnEnter bölümüne de aşağıdaki kodu ekleyin.
 
procedure TForm2.Edit2Enter(Sender: TObject);
begin
 Form1.Table1.Filtered:=TRUE;
end;
 
// Umarım yardımcı olur.