Problemas con codigo de barras

[jfrancho]

como no he podido configurar el lector de códigos de barras para que lea ceros, lo he resuelto al problema de la siguiente forma:
le digo al edit que si los caracteres ingresados son iguales a 12, me agregue un carácter más, en mi caso un cero.
y este es el código:

Código Delphi [-]
var
    cant  : integer;
    cadena : string;
if (length(ecodi1.Text)=12) then
     begin
          Cadena:=' ';
          cant:=13-length(inttostr(strtoint(ecodi1.text)));
          for  x:=1 to  cant do
           cadena:=cadena+ '0';
           cadena:=cadena+inttostr(strtoint(ecodi1.text));
     end

funciona bien, si alguien tiene una solución mejor bienvenida sea, saludos y gracias por las respuestas.-