Extraer caracteres de una cadena

[RoyTan]

Saludos, tengo una base de datos, de la cual extraigo un campo, el campo tiene 10 caracteres y necesito extraer los caracteres quinto,sexto y septimo y no se como hacerlo.
Ejemplo

1234 >567< 890

567 tengo que extraerlo y asignarlo a una valiable.

Gracias.

[newtron]

Hola.



Cadena:='1234567890';
Subcadena:=Copy(Cadena,5,3);



Saludos

[RoyTan]

Gracias Newtron.