[pborges36]

Hola, podrias utilizar la funcion function Pos(Substr: string; S: string): Integer; te devuelve la posicion de una cadena dentro de otra, para tu caso el espacio dentro del memo. De esta forma sabes donde empieza y termina cada palabra.
Saludos