想统计memo组件里面的某个单词的数量，请高手赐教，谢谢。
想统计memo组件里面的某个单词的数量，例如，memo里面有多少个word这样的词语，
本人瞎写了一段，但没法实现。谢谢


var
Tem1,Tem2:string;
Tem_int,i,j:integer;

begin
j:=0;
tem1:=memo1.text;
Tem2:=edit1.text;
for i:=0 to memo1.MaxLength do
begin
Tem_int:=pos(Tem2,Tem1);
j:=j+1;
end;
label1.caption:=inttostr(j);


[解决办法]
有一个比较简单的方法，CSDN上原来有人用过，就是
i:=Length(memo1.text)
Memo1.Text:=StringReplace(Memo1.Text,Edit1.Text,[rfReplaceAll, rfIgnoreCase]);
label1.caption:=(i-Length(Memo1.Text))/Length(Edit1.Text);
[解决办法]
const
V = 'word ';
var
I : integer;
S : string;
begin
{ 如果分布在两行上的单词也计算，就加这句，否则，就是：S := Memo1.Text }
S := StringReplace(Memo1.Text,#13#10, ' ',[rfReplaceAll]);
I := Length(S);
S := StringReplace(S,V, ' ',[rfReplaceAll,rfIgnoreCase]);
Showmessage(FloatToStr((I-Length(S)) / Length(V)));
end;