Como executar esta alteração de string dinamicamente, para este problema?

O método GetResult() esta retornando a string : "[ {"segredo":"sucessso"} ]" Coloquei este retorno na variável sStrn0

Necessito alterar esta string para '{ "Data": [ {"segredo":"sucessso"} ] }' para passar pelo médoto FromJSON() da classe JsonObject()

Apliquei as instruções abaixo, dentre outras opções, mas todas falharam : sStrn1 := "'"+'{"Data":"'+sStrn0+"'}'" sStrn1 := '{"Data":"'+sStrn0+'}'

O retorno sem é "{ "Data": [ {"segredo":"sucessso"} ] }" , com aspas duplas

Ao passar a string pelo metódo FromJSON() é retornado erro "Json Error: >>..."

Como executar esta alteração de string dinamicamente, para este problema?

Muito Obrigado e Sucesso