Para resolver tu problema se necesitan del uso de dos funciones:
Copy y
Pos. Mira este ejemplo:
Código Delphi
[-]segunda_palabra := Trim(Copy(TextoCompleto, Pos(' ', TextoCompleto), Length(TextoCompleto)));
Uso la función
Trim para quitar cualquier espacio que pueda existir de más.
Por último, no me queda claro a que te refieres con el
Arreglo de Strings.
Saludos,
Chris