file: ZXing.DefaultGridSampler

line: 120
code:
max := Length(points);
should be:
max := Length(points) - 1;

line 177:
code:
while ((offset < Length(points)) and nudged) do
should be:
while ((offset < (Length(points)-1)) and nudged) do