Bist Du mal mit F7 durchgesteppt und hast die fehlerhafte Zeile lokalisiert?
EDIT:
in der procedure TBarcode.OneBarProps(code:char; var aWidth:integer; var lt:TBarLineType);
geht er ein paarmal durch bis er im else-zweig
raise
Exception.CreateFmt('%s: internal Error', [self.ClassName]);
rausfliegt
