сунуть текст в стринглист, заменить внём все пробелы на перенос строк и далее:

list:=tstringlist.create;
for i:=0 to list.count-1 do
begin
if (length(list[i])>5) and (length(list[i])<8) the
showmessage('нашли слово: '+list[i] );
end;