Código Delphi [-] Cadena:='1234567890'; Subcadena:=Copy(Cadena,5,3);
Cadena:='1234567890'; Subcadena:=Copy(Cadena,5,3);