все должно работать... один вариант что ты не присвоил переменной s никакого значения.
попробуй так:
Код:
var s:string; //(введенная строка)
i:integer;
k:integer; //(количество пробелов )
....................
k:=0;
s:='я стану супер мега программером :)';
for i:=1 to length(s) do
begin
if s[i]=' ' then inc(k);
end;
label1.caption:='Всего '+inttostr(k)+' пробелов';