impressão de etiquetas de um mesmo produto

procedure TEtiqueta_produto.btnVisualizarClick(Sender: TObject);
var
  etiquetasRave : TEtiquetaRave;
begin

    Tbl_Produtos.SelectSQL.Clear;
    Tbl_Produtos.SelectSQL.Add(´Select * From PRODUTO Where Nome Like:Consulta Order By Nome ´);
    Tbl_Produtos.Params[0].AsString;
    Tbl_Produtos.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit_produto.Text+´¬´;
    Tbl_Produtos.Close;
    Tbl_Produtos.Open;

    


  etiquetasRave := TEtiquetaRave.Create;
  with etiquetasRave do
  begin
    origemDosDados := cdsCustomer;
    camposDaEtiqueta.Assign(lbCamposEtiqueta.Items);
    fonteEtiqueta := lblNomeFonte.Caption;
    tamanhoFonteEtiqueta := StrToInt(lblTamanhoFonte.Caption);
    alturaEtiqueta := etiquetasRave.CmParaPolegada(StrToFloat(edtAltEtiq.Text));
    numEtiquetasPagina := StrToInt(edtNumEtiq.Text);
    numColunasPagina := StrToInt(edtNumCol.Text);
    larguraEntreColunas := etiquetasRave.CmParaPolegada(StrToFloat(edtLargCol.Text));
    margemSuperior := etiquetasRave.CmParaPolegada(StrToFloat(edtSuperior.Text));
    margemInferior := etiquetasRave.CmParaPolegada(StrToFloat(edtInferior.Text));
    margemDireita := etiquetasRave.CmParaPolegada(StrToFloat(edtDireita.Text));
    margemEsquerda := etiquetasRave.CmParaPolegada(StrToFloat(edtEsquerda.Text));
    tamanhoPapel := cbTamanhoPagina.Text;
    case rgOrientacao.ItemIndex of
      0: orientacaoPapel := ´RETRATO´;
      1: orientacaoPapel := ´PAISAGEM´;
    end;
    if edtAltPag.Text <> ´´ then
      alturaPagina := CmParaPolegada(StrToFloat(edtAltPag.Text))
    else
      alturaPagina := 0;
    if edtLargPag.Text <> ´´ then
      larguraPagina := CmParaPolegada(StrToFloat(edtLargPag.Text))
    else
      larguraPagina := 0;
    case rgOrdemImpressao.ItemIndex of
      0: ordemDeImpressao := ´LC´;
      1: ordemDeImpressao := ´CL´;
    end;
    Visualizar;
    Free;
  end;
end;