delphi 统计文本空格数量

function col_words(s:string):integer;
var
   i:integer;
begin
        result:=0;
        for i:=1 to length(s)-1 do
        begin
        if (s[i] <> ' ') and (s[i+1]=' ') then
        inc(result);
        end;
        inc(result);
end;