El componente que buscas se llamaba AsBarCode, en concreto el que usabas en el Quickreport era el Tqrasbarcode y se sacaba de la pagina de torry.net, he ido a mirar y parece que ya no está en la web. Yo aún lo tengo por aquí y en su momento era un componente gratuito pero no sé si las normas del foro me permiten ponerlo en el ftp.
¿Algún admin me dice si puedo ponerselo al compañero?
Por cierto, si lo que buscas es solo la función para calcular el dígito de control de un EAN13 (12+1), tengo una función propia para hacerlo.
Código Delphi
[-]
function DigitControl(EAN : String) : Integer;
var
Sum1 : integer;
Sum2 : integer;
PrimerDecimal : integer;
A : String;
B : BOOLEAN;
begin
if Length(EAN) <> 12 then
begin
Result := -1;
exit;
end;
SUM1 := STRTOINT(COPY(EAN, 2, 1)) +STRTOINT(COPY(EAN, 4, 1))+STRTOINT(COPY(EAN, 6, 1))+STRTOINT(COPY(EAN, 8, 1))+STRTOINT(COPY(EAN, 10, 1))+STRTOINT(COPY(EAN, 12, 1));
SUM1 := SUM1 * 3;
SUM2 := STRTOINT(COPY(EAN, 1, 1)) +STRTOINT(COPY(EAN, 3, 1))+STRTOINT(COPY(EAN, 5, 1))+STRTOINT(COPY(EAN, 7, 1))+STRTOINT(COPY(EAN, 9, 1))+STRTOINT(COPY(EAN, 11, 1));
SUM1 := SUM1 + SUM2;
PRIMERDECIMAL := SUM1;
B := FALSE;
REPEAT
A := INTTOSTR(PRIMERDECIMAL);
A := COPY(A, LENGTH(A) , 1);
IF A = '0' THEN
BEGIN
B := TRUE;
END
ELSE
BEGIN
B := FALSE;
END;
IF B = FALSE THEN
PRIMERDECIMAL := PRIMERDECIMAL +1;
UNTIL B = TRUE;
RESULT := PRIMERDECIMAL - SUM1;
end;