[Loviedo]

¡ ya lo conseguí !. No se si es muy ortodoxo pero...

Código Delphi [-]
   if not FDM.FamiliaT.IsEmpty then
     begin
       FDM.FamiliaT.First;
       while not FDM.FamiliaT.Eof do
         begin
           FDM.PFamilia.StoredProcName:='P_ALTAFAMILIA';
           FDM.PFamilia.ParamByName('mCod').value := codigoficha;
           FDM.PFamilia.ParamByName('mCodf').value:= FDM.CodigosFAMILIA.AsInteger;
           FDM.PFamilia.ParamByName('mNom').value:= FDM.FamiliaTNombre.text;
           FDM.PFamilia.ParamByName('mApell').value := FDM.FamiliaTApellidos.text;
           FDM.PFamilia.ParamByName('mEdad').value := FDM.FamiliaEDAD.asinteger;
           FDM.PFamilia.ParamByName('mDoc').value := FDM.FamiliaTDocumentos.asinteger;
           FDM.PFamilia.ParamByName('mSit').value := FDM.FamiliaTSituacion.asinteger;
           FDM.PFamilia.ParamByName('mParent').value := FDM.FamiliaTParentesco.Text;
           FDM.PFamilia.ExecProc;
           FDM.Incrementa.StoredProcName:='P_INCFAMILIA';
           FDM.Incrementa.ExecProc;
           FDM.codigos.Close;
           FDM.codigos.Open;
           FDM.FamiliaT.Next;
         end;
     end;

Gracias por todo.