procedure TForm1.Button1Click(Sender: TObject);
var
  QRCode: TDelphiZXingQRCode;
  Row, Column: Integer;
  Brush: TStrokeBrush;
begin
  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := edtText.Text;
    QRCode.Encoding := TQRCodeEncoding(cmbEncoding.ItemIndex);
    QRCode.QuietZone := StrToIntDef(edtQuietZone.Text, 4);
    QRCodeBitmap.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
           drawPixel(QRCodeBitmap, Column, Row, TAlphaColors.Black);
        end else
        begin
        drawPixel(QRCodeBitmap, Column, Row, TAlphaColors.White);
        end;
      end;
    end;
  finally
    QRCode.Free;
  end;
  PaintBox1.Repaint;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var
  Scale: Double;
  h, w: integer;
begin
  PaintBox1.Canvas.Fill.Color := TAlphaColorRec.White;
  PaintBox1.Canvas.FillRect(RectF(0, 0, PaintBox1.Width, PaintBox1.Height), 0, 0, AllCorners, 1);
  if ((QRCodeBitmap.Width > 0) and (QRCodeBitmap.Height > 0)) then
  begin
    if (PaintBox1.Width < PaintBox1.Height) then
    begin
      Scale := PaintBox1.Width / QRCodeBitmap.Width;
    end else
    begin
      Scale := PaintBox1.Height / QRCodeBitmap.Height;
    end;
    h:=Trunc(QRCodeBitmap.Height* Scale);
    w:=Trunc(QRCodeBitmap.Width * Scale);
  with Canvas do
  begin
    BeginScene();
    PaintBox1.Canvas.DrawBitmap(QRCodeBitmap, Rect(0, 0, w, h), Rect(0, 0, w, h), 1, true);
    EndScene;
  end;
  end;
end;

procedure TForm1.drawPixel(bitmap : TBitmap; x, y : integer; color : TAlphaColor);
var vBitMapData  : TBitmapData;
begin
  if bitmap.Map(TMapAccess.maWrite, vBitMapData) then
    begin
    try
       vBitmapData.SetPixel(x, y, color);
    finally
       bitmap.Unmap(vBitMapData);
    end;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  E: OleVariant;
  VClipboard: IFMXClipboardService;
begin
  E:=CreateOleObject('Excel.Application');
  E.WorkBooks.Add;
  E.Visible:=true;
  E.ActiveWorkbook.Sheets.Item['Лист1'].Select;
  E.ActiveWorkbook.ActiveSheet.Cells[1,1].select;
  if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, VClipboard) then begin
    VClipboard.SetClipboard(QRCodeBitmap);
  end;
  E.ActiveSheet.Paste;
end;

 FElements := GenerateQRCode(FData, Ord(FEncoding));
 FRows := Length(FElements) + FQuietZone * 2;