Recuperar el valor de Returning

[santiago14]

Buenas, tengo lo siguiente:

Código Delphi [-]
procedure insert_con_returning(query:TMDOQuery);
begin
  with query do
  begin
    Close;
    sql.Clear;
    SQL.Add('Insert into familias (cod_familia, fecha_ingreso_familia, estado_familia) ');
    sql.Add('Select gen_id(Select ibe$log, 1), current_timestamp, ');
    sql.Add('''A'' From rdb$database ');
    sql.Add('returning cod_familia ');
    try
      ExecSQL;
    except
      raise;
    end;
  end;
end;

Hasta aquí todo bien, resulta que quiero recuperar el valor que viene en Returning y no se como hacerlo. ¿Alguna sugerencia?
Uso Delphi 7, Firebird 2.1, MDO version 0.8.8.

Gracias.

[santiago14]

Esto dice en la página 49 de Firebird 2.1 Release Notes

Rules for Using a RETURNING Clause

...

2 - The presence of the RETURNING clause causes an INSERT statement to be described by the API as
isc_info_sql_stmt_exec_procedure rather than isc_info_sql_stmt_insert. Existing connectivity
drivers should already be capable of supporting this feature without special alterations.

Creo entender que los componentes que estamos usando deberían de alguna manera capturar el dato que viene en Returning sin demasiado problema... la pregunta es como.
Bueno, espero que aporte algo esto.

Santiago.

[Combat-F2D]

procedure insert_con_returning(query:TMDOQuery);

var tVardelTipodelField: tipo;

begin
with query do
begin
Close;
sql.Clear;
SQL.Add('Insert into familias (cod_familia, fecha_ingreso_familia, estado_familia) ');
sql.Add('Select gen_id(Select ibe$log, 1), current_timestamp, ');
sql.Add('''A'' From rdb$database ');
sql.Add('returning cod_familia ');
try
ExecSQL;

      tVardelTipodelField := FieldbyName('cod_familia').as....;

except
raise;
end;
end;
end;

[santiago14]

Hola Combat
Al hacer lo que sugieres me sale el siguiente error:

query: Field 'cod_familia' not found

[luisgutierrezb]

bueno y si en lugar de execsql se usa open?

[santiago14]

Usando Open me dice lo mismo: query: Field 'cod_familia' not found.