lector no lee codigos de barras generados por componete Barcode

[[ElKurgan]]

Empezado por ingabraham

este es el codigo que estoy utilizando para generar el codigo

Código Delphi [-]
Barcode1 := TAsBarcode.Create(self);    
Barcode1.Top := 5 ;    
Barcode1.Left := 10;    
Barcode1.Typ := bcCodePostNet;  <<-------    
Barcode1.Modul := 2  ;    
Barcode1.Ratio := 2.0;   
 Barcode1.Height :=  45 ;      
Barcode1.Typ := TBarcodeType(2);  <<-------   
Barcode1.ShowTextPosition := TShowTextPosition(5);    
Barcode1.ShowText := TBarcodeOption(0);     
Barcode1.Text := LCODBARRA.Caption;       
Image1.Picture := nil;   Barcode1.DrawBarcode(Image1.Canvas);

¿¿ ?? ¿Tiene sentido esa duplicidad?
No entiendo