Добавить слова предложения в массив

[jirtreck]

Нужно считать слова из Edit ( В нем предложение с пробелами, запятыми, точками) и переправить каждое в свой элемент массива.
Как это можно сделать?

Понимаю, что нужен массив типа стринг, но как прочитать слова по отдельности не знаю.

[jirtreck]

Можно и без точек и запятых, это не важно

[jirtreck]

Если в эдит никак, можно и с мемо.

Прошу простить за такое количество сообщений.

[dmitriegorovih]

Сообщение от jirtreck

Если в эдит никак, можно и с мемо.

Прошу простить за такое количество сообщений.

Все очень просто проходите по строке пока не встретите символ пробел, встретили, скопировали слово и пошли дальше вот и все.

var
s:string;
  I,f: Integer;
 mas:array of string;
begin
  s:=edit1.Text+' '; //Необходимо чтобы учитывал последнее слово
  f:=1;
  for I := 1 to length(s) do
  begin
    if s[i]=' ' then
    begin
      setlength(mas,length(mas)+1);
      mas[high(mas)]:=copy(s,f,i-f);
      f:=i+1;
    end;
  end;

[min@y™]

ну есть жэж SplitString(), TStringList ещё.

[jirtreck]

Благодарю!
Не знал об этих функциях, поиск ничего не дал