diff --git a/X2Log.Details.Default.pas b/X2Log.Details.Default.pas index 8b084f0..65b8c4d 100644 --- a/X2Log.Details.Default.pas +++ b/X2Log.Details.Default.pas @@ -682,10 +682,11 @@ begin end; if Assigned(valueClass) then - values.Add(key, valueClass.Create(valueType, AStream)); + values.Add(key, valueClass.Create(valueType, AStream, payloadSize)); end; Result := TX2LogDictionaryDetails.CreateOwned(values); + values := nil; finally FreeAndNil(values); end;