Stream read error cuando asigno un valor a TTetheringAppProfile.Resources

[breadagast]

Tengo este 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:

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

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