[firebase-br] Execute block com parâmetro de entrada e saída

[Kristiano]

Alguém conhece algum componente do Delphi 7 onde eu possa usar EXECUTE BLOCK com
parâmetro de entrada e saída? Pretendo usar como uma TQuery.
Exemplo:

EXECUTE BLOCK (COD INTEGER = :COD)
RETURNS (SAIDA INTEGER)
AS
BEGIN
   SELECT FIRST 1 ULTIMOCODIGO FROM CODIGO WHERE ULTIMOCODIGO = :COD
   INTO SAIDA;
   SUSPEND;
END

Estou tentando usa MDO, mas pesquisando na lista já vi que não funciona.