فلترة التاريخ ارجو المساعدة

procedure TForm3.Button3Click(Sender: TObject);
var
     D:TDATE;
begin
 ado.Active:= true;
  D:=TIM1.Date;
  ado.Filtered:=false;
    ado.Filter:='day='+dateTOSTR(D);
      ado.Filtered:= true;
      panel1.Caption:='عدد السجلات المظهرة هــي'+ '   ' +datetostr(tim1.DateTime);
end;

السلام عليكم

حيث Tim1..هي TDateTimePicker..وكم تلاحظ أسناد ...الVar..D...للتاريخ ومن ثم

البحث عبر البيانات ..............

اخوكم

مشكور MAX MAX BUT

ليس المشكلة في الفلترة باليوم بل بالسنة والشهر

وشكرا