如何判断WORD里某字符串（换行符）出现的次数？

给一个自用的函数，删除换行和每行的空格。如果最后一行需要换行：
S:=DeleteTextSpace(S)#13#10;
函数代码：
function DeleteTextSpace(S:string):string;     // 删除字符串空格换行
var S1:string;
    i:integer;
    MyList:TStringList;
begin
  Result := '';
  S1:='';
  MyList:=TStringList.Create;
  MyList.Text:=S;
  for i:=MyList.Count-1 downto 0 do
    S1:=S1+Trim(MyList.Strings[i]);
  Result := Trim(S1);
  MyList.Free;
end;