количество пробелов

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  s:string;
  i,k:integer;
begin
k:=0;
s:=Form1.Memo1.Text;
for i:=1 to length(s) do
if s[i]= ' ' then
inc(k);
if k>0 then
ShowMessage('Кол-во пробелов'+IntToStr(k))
else
ShowMessage('В строке пробелов нет');
end;