Error al imprimir codigo de barra
 

Estoy tratando de imprimir en una impresora zebra LP 2824 y tengo un problema en el codigo de barra que no sale completo o sea al final cuando va saliendo la numeracion no sale completo.. Aqui le dejo el codigo que tengo.

var strHora, strFecha,cadena : string;
txt: TextFile;
L,Q1,Q2,A,A1,B,C,D,E:String ;
X : Integer;
Begin
L:=chr(13)+Chr(10);
Q1:='q500'+L;
Q2:='A460,5,0,1,1,1,N,'+'"'+' EMPRESA'+'"'+L ;
A1:='A460,5,1,1,N,'+'"'+ 'ARTICULO'+'"'+L ;
B:='B500,20,0,E30,2,10,100,B,'+'"'+'B03{'+'0008'+'}'+'"' ;
AssignFile(Txt, 'LPT1');
Rewrite(Txt);
for X:= 1 TO 1 DO
Writeln(Txt, L+'N'+L+'O'+L+'S2'+L+'D7'+L+'ZT'+L+'Q250,10'+Q1+Q2+A+A1+B+L+C+D+E+'P1');
CloseFile(Txt);
End ;