Usar Quick Report sem Query e Table

Pessoal,

tenho um programa que gera código de barras, e quero exibi-los no Quick Report.
Porém não há nada em Banco de Dados, simplemente uma procedure que gera os números.
No Quick Report coloquei somente um QuickRep e um QRBand1(rbDetail), no evento BeforePrint do QRBand1 inserir o seguinte códgio:
for i := 1 to 5 do
begin
FmtStr(s, ´¬.5d´, [i]);
QRBarCode.Texto := s;
PrintBand := true;
end;
mas só aparece somente um código de barras era pra aparecer 5.
Alguém pode me ajudar???????



[color=red:d3c430e568]Título alterado por oTTo. Removido ´urgente´[/color:d3c430e568]