file: ZXing.ReadResult line: 339, 340 current: ``` Move(oldPoints[0], newPoints[0], Length(oldPoints)); Move(newPoints[0], newPoints[Length(oldPoints)], Length(newPoints)); ``` should be: ``` Move(oldPoints[0], allPoints[0], Length(oldPoints) * sizeof(allPoints[0])); Move(newPoints[0], allPoints[Length(oldPoints)], Length(newPoints) * sizeof(allPoints[0])); ``` or better: ``` TArray.Copy<IResultPoint>(oldPoints, allPoints, 0, 0, Length(oldPoints)); TArray.Copy<IResultPoint>(newPoints, allPoints, 0, Length(oldPoints), Length(newPoints)); ``` or all function code can be minimized to: ` FResultPoints := TArray.Concat<IResultPoint>([FResultPoints, newPoints]);`