[[coso]]

Hola, deberas crearte, por ejemplo, unas funciones para ir recorriendo la 'frase':

Código Delphi [-]
function PrimeraPalabra(o : string) : string;
begin
        if Pos(' ',o) = 0 then  result := o
        else                         result := Copy(o,0,Pos(' ',o)-1);
end;
 
function Restofrase(o : string) : string;
begin
        if Pos(' ',o) = 0 then 
        result := ''
        else
        result := Copy(o,Pos(' ',o)+1,1000);
end;

y luego ir recorriendo las 'palabras' en el texto

Código Delphi [-]
var
     s,p : string;
begin
s := stringreplace(Memo1.Text,#13,'',[rfReplaceAll]);
s := stringreplace(s,#10,'',[rfReplaceAll]);
while s <> '' do
begin
           p := PrimeraPalabra(Trim(s));
           s := RestoFrase(Trim(s));
 
           if p = '' then ...
end;
      
end;

estas funciones por eso estan incompletas. No estoy seguro si identificara la ultima palabra , ademas de tener que tratarse los caracteres especiales #13, #10, etc...saludos

PD: edito, y incluyo el stringreplace, y trim para eliminar espacios finales e iniciales.