Adotable1.Filtered:=False;
    Adotable1.Filter:='right(出生日期,5)='''+Trim(Edit3.Text)+'''';
    Adotable1.Filtered:=True;
我运行时出错,大家帮忙看看