Impressão de Fichas

Pessoal, bom dia!

Estou montando um sistema para impressão de fichas para festa...

Esse sistema é para eu utilizar nas minhas festas, no caixa

Tem o painel aonde cadastro as fichas, os valores e a quantidade de fichas. segue a tela

/applications/core/interface/imageproxy/imageproxy.php?img=http://www.wm8.com.br/delphi/01.png&key=811cde0aeb1183f14960c432f8c95e2cf80df5ff8dbff82158bdf58beb49a7bd" alt="01.png" />

No campo FICHAS mostra a quantidade de impressão que terá a ficha escolhida...

Então na tela de venda, eu posso POR EXEMPLO, vender pra uma pessoa 1 PROMO. CERVEJA + 2 REFIGERANTES.

Nesse caso, quando eu clicar em imprimir, deverá imprimir na impressora (aquelas impressora termicas) 3 fichas escrito cerveja (pois reparem que quando seleciona a opção promo cerveja, ela possui 3 fichas) e imprimir + 2 fichas de refrigerante...

Então, essa compra, deverá imprimir no total 5 fichas SEPARADAS (pois a pessoa pode consumir 1 por vez)

Eu fiz no botão IMPRIMIR, o seguinte:

var i, copias : integer;
begin

 dm.q_config.Active := false;
 dm.q_config.Active := true;
 copias := 0;
 for i := 1 to dm.q_config.RecordCount - 1 do // quantidade de registros na query
 begin
 for copias := 1 to dm.q_configquantidade.value do // controle das copias - qtde de fichas
 begin
 qr_fichas.QRLabel3.caption := dm.q_configimpresso.Value; // nome do impresso
 qr_fichas.QuickRep1.print;
 end;
 end;
end;

Mas não deu certo, pois independente do que eu selecione na venda, ao clicar no botão imprimir que tem esse código acima, ele sempre manda imprimir 4 fichas... não respeita a quantidade selecionada...

/applications/core/interface/imageproxy/imageproxy.php?img=http://www.wm8.com.br/delphi/venda.png&key=d4bd9cbb06789918d692904a141a2b4fb870964e37dcdf6b19d912d28a233834" alt="venda.png" />

Alguém pode me ajudar a resolver isso?

Obrigado.