[Страдалецъ]

Вместо вот этого:

Код:

//Преобразование всех разделительных знаков в пробелы
Str:=StringReplace(Str,'.',' ',[rfReplaceAll]);
Str:=StringReplace(Str,',',' ',[rfReplaceAll]);
Str:=StringReplace(Str,'!',' ',[rfReplaceAll]);
Str:=StringReplace(Str,'?',' ',[rfReplaceAll]);

Можно использовать несколько компактнее вариант:

Код:

Str:=WrapText(Str,#32,['.', ',', '!', '?'],1);