ya lo resolvi, creo que era por el tipo de grafica en el codigo de barra.
mi codigo quedo asi, para el k le sirva, y doy por terminado el hilo.
gracias a los k siguieron este hilo.
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.OnChange := Self.Barcode1Change;
Barcode1.Typ := TBarcodeType(22);
Barcode1.ShowTextPosition := TShowTextPosition(5);
Barcode1.ShowText := TBarcodeOption(1);
Barcode1.Text := LCODBARRA.Caption;