Los primeros número significan algo:
http://es.wikipedia.org/wiki/GS1-128...plicaci%C3%B3n
Quizás podrías saber cuando empieza un nuevo código. Por ejemplo, cuando el prefijo sea 01.
Código Delphi
[-]
while (Memo.Lines.Count > 0) do
begin
Finalizar := False;
Lectura := '';
while ((not Finalizar) and (Memo.Lines.Count > 0)) do
begin
Lectura := Lectura + Memo.Lines[0];
if (copy(Memo.Lines[0], 1, 2) = '01') then
Finalizar := True;
else
Memo.Lines.Delete(0);
end;
Procesar(Lectura);
end;