Prueba con esto...
Código Delphi
[-]
with dmStoreProcedure.spUltimaFamiliaAgregada do
begin
ParamByName('PARAM1').AsInteger :=Param1;
ExecQuery;
codF := FieldByName('COD_FAMILIA').Value;
NomF := FieldByName('NOM_FAM').Value;
DescF := FieldByName('DESCRI').Value;
Close;
end;
No indicas que componentes estas usando para acceso a la base de datos, ExecQuery y ExecProc suponiendo que usas FIBPlus. No se si para IBX son las mismas sentencias...
Saludos cordiales