подсчет слов в тексте memo

[brownb]

Подскажите как подсчитать количество одинаковых слов в мемо
или как подсчитать количество одинаковых процессов?
firefox.exe
bds.exe
firefox.exe
firefox.exe
firefox.exe
firefox.exe
firefox.exe
Project1.exe

[Kronos913]

Можно конкретнее поставить задачу
1. Нужно количество сколько раз повторяется какое-то конкретное слово? Или может наоборот, надо число "уникальных" слов?
2. Слово = 1 строчка? Или в строчке могут быть несколько слов?

[Kronos913]

Если слово 1 строчка и надо конкретное слово

var i, a: longint;

i:=0;
a:=0;
While i<Memo1.Lines.Count do begin
 If Memo1.Lines[i]=Edit1.Text then inc(a);
 inc(i);
end;

[Kronos913]

Если количество уникальных слов то тогда как-то так

var i, j, a:longint
b:boolean

 a:=0;
 i:=0;
 while i<memo1.lines.count do begin
  b:=true;
  j:=0;
  while (j<i) and b do begin
   If memo1.Lines[i]=memo1.Lines[j] then b:=false else inc(j);
  end;
  if b then inc(a); 
  inc(i);
 end;