Очень надо !!! Поиск вхождений строк в массиве

[aquatell]

Всем привет!
Есть поле Memo с неким текстом.
И сеть такая функция которая поместить в массив из поля Memo слова, вот она

type
  TArrWords = array of String;
 
//Возвращает массив всех слов, наёднных в строке aStr.
function ExtractWords(const aStr : String) : TArrWords;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Величина приращения длины динамического массива.
  Capacity = 10;
var
  i, j, Pos1, Len : Integer;
begin
  Len := Length(aStr);
  Pos1 := 0;
  j := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if aStr[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (aStr[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (aStr[i + 1] in D) then begin
      //Если требуется, увеличиваем длину динамического массива.
      if j = Length(Result) then SetLength(Result, j + Capacity);
      //Добавляем слово в массив.
      Result[j] := Copy(aStr, Pos1, i - Pos1 + 1);
      //Индекс следующего элемента массива.
      j := j + 1;
    end;
  end;
  //Корректируем длину массива, в соответствие с количеством
  //добавленных в него элементов.
  if j < Length(Result) then SetLength(Result, j);
end;
 
//Проверка работы функции ExtractWords().
procedure TForm1.Button1Click(Sender: TObject);
var
  Arr : TArrWords;
  i : Integer;
begin
  Memo2.Clear;
  Arr := ExtractWords(Memo1.Text);
  for i := 0 to High(Arr) do begin
    Memo2.Lines.Add(Arr[i]);
  end;
  //Удаляем динамический массив из памяти.
  Finalize(Arr);
end;

А теперь вопрос - как в этом массиве выполнить поиск вхождений каждого уникального слова в этом массиве и потом выгрузить эту ифнормацию например в StringGrid - в виде "Слово" и сколько раз встретилось в массиве?

Есть кое какая идея но не получается реализовать и заключается она в следующем - надо в цикле пройтись по этому массиву берем слово и ищем его дальше по всему массиву, если оно уникально и встретилось 1 раз и передаем в заранее заготовленную процедуру которая будет добавлять в StringGrid это слово и сколько раз оно встретилось в массиве.
А если оно не уникально встретилось 2 и более раз, тогда текущую позицию где она больше первой, т.к. в первой это будет наше искомое слово мы должны сместить например так:

  a[i - 1] := a[i]; // здесь мы сдвигаем найденную позицию, только в том случае если слово найдено больше одного раза
SetLength(a, Length(a) - 1);// а здесь мы меняем размер массива на минус 1 так как мы же сместили на 1 вниз, таким образом убираются все неуникальные позиции.

Сколько раз встретилось неуникальное слово мы должны подсчитывать
и потом передавать в процедуру добавления в StringGrid этого слова и сколько раз мы его встретили.

Очень нужно Срочно. Прошу откликнуться всех у кого есть идеи по этому поводу и кто может помочь реализовать это. Заранее ОГРОМНОЕ СПАСИБО!

[mss]

Массив тут нафих не нужен - со всеми условиями задачи успешно справится класс TStringList/
Но перед его боевым использованием следует исключить из обрабатываемого текста символы-разделители слов - для этого вполне подойдет циклический вызов StringReplace.

[aquatell]

mss
а код написать можно?