Código Delphi [-] Delete(cadena, 1, 3); cadena:= '00' + cadena;
Delete(cadena, 1, 3); cadena:= '00' + cadena;