uses DBXJSON, DBXJSONReflect;

function TUtil.DataSetToJSON(loDS: TDataSet): TJSONArray;
var
objRegistro: TJSONObject;
tmpField: TField;
begin
Result := TJSONArray.Create;
loDS.First;
while not loDS.Eof do
begin
objRegistro := TJSONObject.Create;
for tmpField in loDS.Fields do
objRegistro.AddPair(tmpField.FieldName,TJSONString.Create(tmpField.AsString));
Result.AddElement(objRegistro);
loDS.Next;
end;
end;

Abraços
João Henrique de Souza

na implementação do button1click o objeto criado nao está sendo destruído, isso nao vai dar memory leak?

seu exemplo é interessante, porém vc já experimentou dar um Free no objeto JsonEngine do click do botao?
Está levantando uma exceção, ao depurar o objeto está com problemas na destruição da lista dos objetos da biblioteca sugerida por vc. E sem o JsonEngine.Free pode dar um leak de memória.