[[newtron]]

Bueno... la verdad es que si le vas a dar esa solución no tiene mucho sentido escribir tanto código. Podrías simplificar con esto....

Código Delphi [-]
if length(ecodi1.Text)=12 then 
  ecodi1.Text:='0'+ecodi1.Text;