[[duilioisola]]

Supongo que con la instrucción FetchAll podrías saber cuantos registros hay. Luego puedes hacer una aproximación, multiplicando este dato por el tamaño de los campos. Obviamente, los Blobs pueden tener cualquier tamaño, por lo que no creo que tenga una solución fácil para este dato.

Código Delphi [-]
with QMostrar do
begin
   ExecQuery;
   FetchAll;
   CantidadRegistros := Count;
   while not EOF do
   begin
      [...]
   end;
end;

Otra interpretación de tu pregunta sería:

Dentro del bucle principal puedes ir acumulando el tamaño de los campos

Código Delphi [-]
with QMostrar do
begin
   ExecQuery;
   CantidadBytes := 0;
   while not EOF do
   begin
       for i:=0 to lselcampos.Count-1 do
       begin 
         CantidadBytes := CantidadBytes + CalculaTamano(lselcampos[i]));
         [...]
   end;
end;

PD: no olvides poner en código entre
[ Delphi ]
...
[ /Delphi ]