#8 Recuperar el valor de Returning

[Santiago Russo]

Tengo lo siguiente en 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;

Quiero recuperar cod_familia en una variable o algo. ¿Cómo hago?
Uso Delphi 7, Firebird 2.1, MDO 0.8.8

Santiago.