Leerzeichen in einem String zählen

[loki91]

Delphi-Quellcode:

var
i,zaehler:integer;
s:string;
begin
s := Edit1.Text;
 i := 0;   // war nur ein versuch..
 zaehler := 0;
for i := 1 to length(s) do
     begin
  if s[i] = ' ' then
    zaehler := zaehler + 1;
    Label1.Caption := IntToStr(zaehler);

     end;

end;