Foros Club Delphi - Stream read error cuando asigno un valor a TTetheringAppProfile.Resources

Tengo este código:

Código:

procedure TService1.AssignResource(var strlist: TStringList; Resource: string);

var stream: TStringStream;

begin

  stream := TStringStream.Create;

  strlist.SaveToStream(stream);

  TetheringAppProfile2.Resources.FindByName(Resource).Value := stream;

end;

Este código funciona perfectamente en Delphi XE8, pero al migrar la aplicación a Delphi X Seatle me lanza el error:

Stream read error

cuando se ejecuta la linea:

Código:

TetheringAppProfile2.Resources.FindByName(Resource).Value := stream;

Por si tiene algo que ver, el código se ejecuta en un servicio de Windows.
Alguna idea??