parse JSON

const
    dataJSON =
        '{'+
        '   "customer": "aa",'+
        '   "messages": "Orderan Baru",'+
        '   "data": ['+
        '       {'+
        '           "id": "2",'+
        '           "jumlah": "1",'+
        '           "brand": "Blackkelly Sale",'+
        '           "nama_produk": "Sandal Pria LZA 892",'+
        '           "kode": "LZA 892",'+
        '           "ukuran": "33",'+
        '           "stok": "1",'+
        '           "harga": "80000",'+
        '           "berat_timbang": "0.7",'+
        '           "berat_volume": "0.8",'+
        '           "spesifikasi": "Bahan :  PU-PVC\nUkuran : 32-37\nWarna : COKLAT",'+
        '           "gambar_1": "https://blangkon.net/JSON/images/5137.1.jpg"'+
        '       },'+
        '       {'+
        '           "id": "1",'+
        '           "jumlah": "1",'+
        '           "brand": "Blackkelly Sale",'+
        '           "nama_produk": "Tas Wanita LRB 442",'+
        '           "kode": "LRB 442",'+
        '           "ukuran": "ALL SIZE",'+
        '           "stok": "2",'+
        '           "harga": "125700",'+
        '           "berat_timbang": "0.7",'+
        '           "berat_volume": "0.8",'+
        '           "spesifikasi": "Bahan :  SAFIANO\nUkuran : 22X18X11\nWarna : Coklat",'+
        '           "gambar_1": "https://blangkon.net/JSON/images/4791.1.jpg"'+
        '       }'+
        '   ]'+
        '}';


.......
begin
    if not FDMemtable.FillDataFromString(dataJSON) then begin //parse field customer, messages, data - > data berupa string json harus di parse lagi
        ShowMessage(FDMemtable.FieldByName('messages').AsString);
        Exit;
    end;

    if not FDMemtable.FillDataFromString(FDMemtable.FieldByName('data').AsString) then begin //parse JSON di field data
        ShowMessage(FDMemtable.FieldByName('messages').AsString);
        Exit;
    end;
end;