Delphi help!

[Loqwer78rus]

Программа при вводе символов разделенных пробелами должна высчитывать количество слов.
Программа нуждается в доработке. У меня все нормально считает. Но если пробел в начале, то считает как ещё одно слово. Как сделать так чтобы и спереди можно было лепить большое количество пробелов ?

var
s:string;
n,k,i:integer;

begin
s:=Edit1.Text;
k:=0;
n:=length(s);
for i:=1 to n do
if (s[i]=' ') and (s[i+1]<>' ') then
k:=k+1;
Label3.Caption:=' '+ IntToStr(k+1);

end;

[ATL]

 s:= Trim(Edit1.Text);

[Loqwer78rus]

О. Спс огромное

[Serge_Bliznykov]

и ещё у Вас ошибка выхода за пределы строки.
сравните:

  s:=Trim(Edit1.Text);
  k:=0;
  for i:=1 to length(s)-1 do
     if (s[i]=' ') and (s[i+1]<>' ') then
           k:=k+1;

да и я бы вообще так написал (считаем по последнему символу слова):

  s := Trim(Edit1.Text) + ' ';
  k := 0;
  for i:=1 to length(s)-1 do
     if (s[i]<>' ') and (s[i+1]=' ') then Inc(k);
  Label3.Caption:=' '+ IntToStr(k);