شمارش ركوردهاي باقيمانده بعد از عمل فيلتر dbgrid

[hentjanson]

سلام به همه اساتيد و روز بخير

براي من يك سوال پيش اومده كه نتونستم حلش كنم .
من براي جستجو در بانك از اين كد استفاده مي كنم

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

  if Form1.ComboBox2.ItemIndex=0 then

    Accept:=(AnsiPos(Trim(Form1.MaskEdit11.Text),Trim(  DataSet['namketab']))>0)

     else if Form1.ComboBox2.ItemIndex=1 then

     Accept:=(AnsiPos(Trim(Form1.MaskEdit11.Text),Trim(  DataSet['nammoalef']))>0)

      else if Form1.ComboBox2.ItemIndex=2 then

   Accept:=(AnsiPos(Trim(Form1.MaskEdit11.Text),Trim(  DataSet['nammotrajem']))>0)

حالا سوال من اينه وقتي سرچ در برنامه انجام گرفت و نتايج در dbgrid نشان داده شد چطور اين نتايج رو شمارش كنم و بگم مثلا 3 عدد .

اين كد رو امتحان كردم جواب نداد تعداد كل رو ميده

Label2.Caption:=IntToStr(ADOTable1.RecordCount);

برنامه رو ضميمه مي كنم يك جستجوگر
ميشه برنامه منو اساتيد ببينيد و نقص كار رو بگيد