В каждой строке Memo посчитать количество слов

while not (eof(f)) do
begin
readln(f,s);
memo1.Lines.Add(s);
memo2.Show;
button2.Enabled:=true;
button1.Enabled:=false;
stringgrid1.Show;
stringgrid2.Show;
end;
end;

  var
  k,str,g,i,m,j,h: integer;
procedure TForm1.Button2Click(Sender: TObject);
begin
g:=memo1.lines.count;
h:=length(memo1.Lines[i]);
m:=stringgrid1.RowCount;
str:=0;
begin
S:=s+' ';
str:=str+1;
for i:=0 to g-1 do
for j:=1 to h do
begin
if s[i] in [' ','.'] then k:=k+1;
memo2.Lines.Add(s);
end;
StringGrid1.Cells[m+1,0]:=inttostr(str);
stringgrid1.cells[m+1,1]:=inttostr(k);
m:=m+1;
g:=g+1;
end;
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
const rz=[',','.','?','!'];//разделители слов, добавить исходя из текста
var i,j,k:Integer;
    s:string;
begin
Memo1.Lines.LoadFromFile('text.txt');//файл в папке с программой
for i:=0 to Memo1.Lines.Count-1 do
 begin
   s:=Memo1.Lines[i];
   for j:=1 to Length(s) do //заменим все разделители на пробелы
   if s[j] in rz then s[j]:=' ';
   while Pos('  ',s)>0 do //удалим лишние пробелы
   Delete(s,Pos('  ',s),1);//в апострофах по 2 пробела
   s:=Trim(s); //обрежем пробелы в начале и в конце
   if s=''then k:=0
   else
    begin
     k:=1;//1 слово точно есть
     for j:=1 to Length(s) do
     if s[j]=' ' then k:=k+1;//прибавим количество пробелов
    end;
   //выведем результат по каждой строке файла в Мемо2  
   Memo2.Lines.Add('Количество слов в строке '+inttostr(i+1)+'='+inttostr(k));
 end;
end;