Delphi - Separar palabras de una frase

Buenas tengo un problemilla que no consigo caer en la forma de hacerlo. Yo tengo varias frases de dos palabras tal que asi: 111 cocina por ejemplo, primero numeros y luego letras. Y lo que necesito es coger la parte de numeros, que no es algo fijo unas veces es 111 cocina y otras es 4365 mesa por poner un ejemplo. Que ha veces son 3 caracteres otras 4 otras 2 puede ser numeros cualquiera.

supongo que sera metiendo la frase en un array o algo asi, si alguien sabe de algun procedimiento que haga esto le estaria muy agradecida en que me lo contase.

Gracias por adelantado.Xao

Hay muchas maneras de hacerlo.
Si las fraces son siempre como tú indicas, o sea, un número más un espacio más una palabra sería:

numero:=trim(copy(frase,1,pos(' ',frase)));

Donde numero es de tipo string y frase es de tipo string y contiene la frase en cuestión.

Muchisimas gracias, lo he usado tal como me dices y funciona de maravilla. No te imaginas la alegria que me ha dado de ver que iba. Nada pues usado y funcionando. Xaoo

Me gustaría poder ver las actividades sobre la separación de las palabras de una frase. ¿Cómo lo puedo hacer?

Gracias.