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.-