Código Delphi [-]cadena:='01159144559423'; cadena :='00'+Copy(cadena,4,length(cadena)); edit2.text:=cadena;
cadena:='01159144559423'; cadena :='00'+Copy(cadena,4,length(cadena)); edit2.text:=cadena;