TSQLite3Statement获得记录总数的方法

j:integer;
begin
   DM.DataModule5.aSQLite3Statement := 
     dm.DataModule5.aSqlLite3.Prepare(
      'select id,info from atb ' );
j:=0;
While DM.DataModule5.aSQLite3Statement.Step = 100 Do Begin

Inc(j);
End;
ShowMessage(IntToStr(j));