[NIch]

Еще вариант...

Код:

//*********************************************************
//Разбить строку на слова
Procedure TParser.pDevideStrOnWords(Str : String);
var
 CurPos, LengthStr  : byte;
 Ch : WideString;
 ListWords : TStringList;
begin
 ListWords := TStringList.Create;
//Преобразование всех разделительных знаков в пробелы
 Str:=StringReplace(Str,'.',' ',[rfReplaceAll]);
 Str:=StringReplace(Str,',',' ',[rfReplaceAll]);
 Str:=StringReplace(Str,'!',' ',[rfReplaceAll]);
 Str:=StringReplace(Str,'?',' ',[rfReplaceAll]);
//Удаление лишних пробелов
 CurPos := 0;
 LengthStr := Length(Str);
 repeat
  inc(CurPos);
  Ch := Copy(Str, CurPos ,1);
  if Ch = ' ' then 
  begin
   while Copy(Str, CurPos+1, 1) = ' ' do 
   begin
    Str := Copy(Str, 1, CurPos)+Copy(Str, CurPos+2, LengthStr-CurPos+1);
    Dec(LengthStr);
  end;
 end;
 until
  CurPos=Length(Str);
 //Форматировние пробелов в конец строк
 Str:=StringReplace(Str,' ',#13#10,[rfReplaceAll]);
 ListWords.text := Str;
end;
//*********************************************************