الفلتري بلغة الدالفي

الفلتري بلغة الدالفي
procedure TForm29.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
   datamodule2.reglement_credit.Filter := ' N_reg_credit like '+QuotedStr(Edit1.Text+'');
   datamodule2.reglement_credit.Filtered := true;

end
else
begin
   datamodule2.reglement_credit.Filtered := false;

end;