Fórum JSON erro ao gerar conjunto de pares #470896

Estou com dúvida para fazer um exemplo JSON como abaixo
EU criei essa função para me retornar uma lista de 3 descrições de produtos diferentes.
Fiz a função abaixo, porém ele me cria um array vazio no JSON.

function TSM.Banco: TJsonArray;
var
jo:TJsonObject;
begin
Result:=TJsonArray.Create;

jo:=TJSONObject.Create;
jo.AddPair('DESCRICAO','TESTE 1');
result.AddElement(jo);

jo:=TJSONObject.Create;
jo.AddPair('DESCRICAO','TESTE 2');
result.AddElement(jo);

jo:=TJSONObject.Create;
jo.AddPair('DESCRICAO','TESTE 3');
result.AddElement(jo);
end;

Retorno obtido:
{"result":[[{"DESCRICAO":"TESTE 1"},{"DESCRICAO":"TESTE 2"},{"DESCRICAO":"TESTE 3"}]]}

Veja que ele criou dois colchetes deveria somente haver um o resultado correto deveria ser:

{"result":[{"DESCRICAO":"TESTE 1"},{"DESCRICAO":"TESTE 2"},{"DESCRICAO":"TESTE 3"}]}

O que está errado com a minha função?

Grato
Roberto