The question QR Codes encoded by DelphiZXingQRCode not decodable with ErrorCorrectionLevel > Low 1 is solved. I have exactly the same problem, but I cannot implement the solution, because there are missing sections: The method GenerateQRCode is not described. It is not clear to me, where the function TErrorCorrectionLevel.GetBits has to be used. The declaration of the variable fOrdinal is not clear.
I tried several times to guess the missing sections of the solution.