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);