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.