[Appolon]

Код:

Table1.Filter:='DAT='+#39+Edit1.Text+#39;
Table1.Filtered:=true;