JSONarray -> stringarray проблемы после компиляции на XE4

[prakalejas]

Сервер генерирует JSON:

while not Dataset.EOF do
begin
recordObj := TJSONObject.Create; cellsArray := TJSONArray.Create;
for j := 0 to Dataset.FieldCount - 1 do cellsArray.Add(Dataset.Fields[j].AsString);
recordObj.AddPair(IntToStr(i), cellsArray);
Result.AddElement(recordObj);
Dataset.Next;
end;

Клиент читает JSON и присваивает значения массива строк:

procedure TForm2.SelectClick(Sender: TObject);
var aServer: TServerMethodsClient;
arr : TJSONArray; cells : TJSONObject; cells_ar : TJSONPair;
begin
aServer := TServerMethodsClient.Create(DATASNA PConnection.DBXConnection);
arr := aServer.SelectJSON;
SetLength(string_array, arr.Size); // получает правильное arr.Size
for i := 0 to arr.Size - 1 do
begin
cells := TJSONObject(arr.Get(i));
cells_ar := TJSONPair(cells.Get(0));
string_array[i][0] := TJSONObject(cells_ar.JsonValue).Get (0).value; /// <---- тут проблема:.. дебуг показывает "TJSONObject(cells_ar.JsonValue).Ge t(0).value" правильное значение, но конечный результат string_array [I][0] ='' не string_array[I][0] = 'SomeString значение'
string_array[i][1] := TJSONObject(cells_ar.JsonValue).Get (1).value; /// <----- та же проблема здесь, так или иначе правильное значение не присваивается слева и остается нулевым.
end;
end;

Проблема появилась только на XE3 XE4 и, прежде он метод работал просто отлично.