yo he tomado la siguiente solucion.
utilizo la funcion
Código Delphi
[-]
function RecordCountInQuery(FQuery: TFIBQuery): integer;
que es la que trae el componente fibplus por defecto.
esta no funciona bien cuando la sentencia SQL incluye las opciones de
GROUP BY, DISTINCT y UNION
para cuando tengo una sentencia sql que incluye esas opciones cree una funcion
Código Delphi
[-]
function RecordCountinQuery_feched(qr: TpFIBQuery):Integer;
var
i:Integer;
begin
i:=0;
while qr.Eof=False do
begin
Inc(i);
qr.Next;
end;
result:=i;
end;