MemoryLeak for bits

[nrodear]

Code review request - Delphi static analysis finding

Finding

Field	Value
File	D:\git-demos\delphi\sca-test\TCodeReader-main\src\CodeReader.ZXing.Datamatrix.Internal.Decoder.pas
Line	87
Method	TDataMatrixDecoder.decode
Severity	Error
Type	Bug
Rule	MemoryLeak
Detail	bits

Rule description

Object created but never freed (memory leak)

Code (>>> marks the line that triggered the rule)

      82    i, j: Integer;
      83    dimension: Integer;
      84    bits: TBitMatrix;
      85  begin
      86    dimension := Length(image);
>>>   87    bits := TBitMatrix.Create(dimension);
      88    for i := 0 to Pred(dimension) do
      89    begin
      90      for j := 0 to Pred(dimension) do
      91      begin
      92        if (image[i][j]) then