capturar valores de cada registro.

[jose.ignacio.ve]

Hola.
tengo un sistema que genera codigos de barras. Yo muestro en un dbGrid una lista de registros.. yo necesito que que al seleccionar varios productos me genere el codigo de barra.
Por ejemplo si seleccionada 10 productos que me genere 10 codigos de barras cada uno con su id. Logre crear los 10 codigos de Barras pero todos tiene el mismo id, que es del ultimo registro selccionado..
Tengo este codigo


procedure AgregaCodeBar(cant: integer);
var
frxPagina: TfrxReportPage;
frxBarra: TfrxBarCodeView;
i:integer;
begin
frxPagina:=creaUnaPagReport();
for i:=0 to cant-1 do
begin
//CODIGO de BARRA
frxBarra:= TfrxBarCodeView.Create(frxPagina);
frxBarra.CreateUniqueName;
frxBarra.Left:= 220*i+20;
frxBarra.Top:=30;
frxBarra.Width:=500;
frxBarra.Height:=40;
frxBarra.Text:= fmodulo.zqlistado_Socios['dni'];
frxBarra.Visible:=true;
fmodulo.zqlistado_Socios.Next;
end;
//Mostrar Reporte
flistado_alumnos.frxR_codeBar.ShowReport;
end;


Pero no hace lo que necesito

[jose.ignacio.ve]

Alguna ayuda??