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

Código Delphi [-]
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??