[firebase-br] Tempo decorrido em Firebird

[Felipe]

Senhores,

Estou tentando medir o tempo de execução de alguns selects dentro de uma 
stored procedure com a seguinte
estrutura

TINI = CURRENT_TIME

while (i<100000) do
begin
  SELECT....
  i=i+1;
end;

TFIM = CURRENT_TIME

O que acontece é que TFIM é sempre igual a TINI.

Onde errei ?