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