Simplificacion de la libreria DelphiZXingQRCodeEx

[Neftali [Germán.Estévez]]

Difícil adivinar lo que necesitas sólo con determinadas partes del código que has encontrado por Internet.
Revisando un poco y haciendo alguna prueba se ve que el primero, no corresponde a ese componente o al menos a la misma versión.

De todas formas trasteando un poco con uno de los códigos que has puesto sí se puede conseguir que pinte un código con algo.

Crea un proyecto con un Formulario y dentro un TImage con nombre: QRCodeBitmap
A continuación, en el OnCreate del formulario escribe lo siguiente:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  QRCode: TDelphiZXingQRCode;
  Row, Column: Integer;
begin
  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := '39217493741947298471293741t4352234v54325f43v25435v324c543523425c982' +
                   '39217493741947298471293741t4352234v54325f43v25435v324c543523425c982' +
                   '39217493741947298471293741t4352234v54325f43v25435v324c543523425c982';
    QRCode.Encoding := qrAuto;
    QRCode.QuietZone := 400;
    QRCodeBitmap.Picture.Bitmap.SetSize(QRCode.Rows, QRCode.Columns);
    for Row := 0 to QRCode.Rows - 1 do
    begin
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if (QRCode.IsBlack[Row, Column]) then
        begin
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack;
        end else
        begin
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
        end;
      end;
    end;
  finally
    QRCode.Free;
  end;
end;

Con eso debería bastar para dibujar un QR.