[Kipow]

No es lo mas facil dejarlos en el AdoQuery y procesarlos 1 a 1 me imagino que vas a generar los codigos de barras de cada uno? porque no los generas al vuelo?

sugerencia

Código Delphi [-]
begin
try
AdoQuery1.Active := true;  
while (not AdoQuery1.EOF) do begin
    Memo1.Lines.Add(Trim(AdoQuery1['Nombre']));
    AdoQuery1.Next;
  end;

  finally
    AdoQuery1.Active:=False;
    AdoQuery1.Active:=True;
end;