Compatibility with Dephi 10.4.3 Sydney

Author: wlandgraf

Source/Core/AWS.Auth.S3Signer.pas

@@ -53,7 +53,7 @@ class function TS3Signer.BuildCanonicalizedHeaders(AHeaders: TDictionary<string,
   var sb := TStringBuilder.Create(256);
   try
     // Steps 1 and Steps 2 requires all headers to be in lowercase and lexicographically sorted by header name.
-    var Keys := TList<string>.Create(AHeaders.Keys.ToArray);
+    var Keys := TList<string>.Create(AHeaders.Keys);
     try
       Keys.Sort(TComparer<string>.Construct(
         function(const S1, S2: string): Integer

Source/Core/AWS.Internal.RegionEndpointV3.pas

@@ -423,7 +423,7 @@ function TRegionEndpointProviderV3.GetNonStandardRegionEndpoint(const ARegionNam
       if Endpoint.RegionName = ARegionName then
         Exit(Endpoint);
 
-    PartitionData := (FRoot.Values['partitions'] as TJSONArray)[0] as TJSONObject;
+    PartitionData := (FRoot.Values['partitions'] as TJSONArray).Items[0] as TJSONObject;
     RegionDescription := GetUnknownRegionDescription(ARegionName);
     ServicesData := nil;
     FoundContainingPartition := False;

Source/Core/AWS.Json.Utils.pas

@@ -28,7 +28,7 @@ function JsonDeserialize_ListString(const Value: string): TList<string>;
 var
   JArray: TJSONArray;
 begin
-  JArray := TJSONValue.ParseJSONValue(Value) as TJSONArray;
+  JArray := TJSONObject.ParseJSONValue(Value) as TJSONArray;
   try
     Result := TList<string>.Create;
     try