JSON Serializing floating point properties. about delphimvcframework HOT 8 CLOSED

uses
  JsonDataObjects;

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);
begin
  var s :=  '{' +
            '    "error": false,' +
            '    "message": "",' +
            '    "data": [{' +
            '            "id": 101,' +
            '            "personId": 4,' +
            '            "date": "2023-10-15T00:00:00Z",' +
            '            "allowanceCatalogId": 77,' +
            '            "allowanceSurchargeNo": "63",' +
            '            "heavy": 5,' +
            '            "workingHours": 2.5,' +
            '            "createdAt": "2023-10-16T11:30:11Z",' +
            '            "updatedAt": "2023-10-16T11:30:11Z"' +
            '        }, {' +
            '            "id": 102,' +
            '            "personId": 4,' +
            '            "date": "2023-10-15T00:00:00Z",' +
            '            "allowanceCatalogId": 47,' +
            '            "allowanceSurchargeNo": "39",' +
            '            "heavy": 6,' +
            '            "workingHours": 2.5,' +
            '            "createdAt": "2023-10-16T11:32:12Z",' +
            '            "updatedAt": "2023-10-16T11:32:12Z"' +
            '        }, {' +
            '            "id": 105,' +
            '            "personId": 4,' +
            '            "date": "2023-10-15T00:00:00Z",' +
            '            "allowanceCatalogId": 10,' +
            '            "allowanceSurchargeNo": "10",' +
            '            "dirt": 9,' +
            '            "workingHours": 2.25,' +
            '            "createdAt": "2023-10-16T15:00:55Z",' +
            '            "updatedAt": "2023-10-16T15:00:55Z"' +
            '        }' +
            '    ]' +
            '}';

  var lObj := TJsonBaseObject.Parse(s) AS TJsonObject;
  try
    var workingHours := lObj['data'].Items[0].F['workingHours'];
    ShowMessage(FloatToStr(workingHours)); // shows 2.5
  finally
    lObj.Free;
  end;
end;