Leerzeichen in einem String zählen

[mkinzler]

Ich hatte eher so

Delphi-Quellcode:

var
  i, zaehler: integer;
  s: string;
begin
    s := Edit1.Text;
    zaehler := 0;

     for i := 1 to length(s) do
           if s[i] = ' ' then
               zaehler := zaehler + 1;
     showmessage( IntToStr(zaehler));
end;

gedacht