Как в статус баре сделать подсчет слов и символов?

x := Length(Memo1.Text);

procedure TForm1.FormCreate(Sender: TObject);
     var
  i, CntA: integer;
  S: string;
begin
  S := Memo1.Text;
  CntA := 0;
  for i := 1 to UTF8Length(s) do
    begin
    case UTF8Copy(s, i, 1) of
      #13:CntA+=-1
      else
        Inc(CntA);
    end;
    end;
 
  for i := 1 to UTF8Length(s) do
    begin
    case UTF8Copy(s, i, 1) of
      #32:CntA+=-1;
    end;
    end;
 
     StatusBar1.Panels[0].Text:='Число символов: ' + FloatToStr(CntA);
     StatusBar1.Panels[1].Text:='Число слов: ' +  (Format('%d', [WordCount(Memo1.Text, [' ', '.', ',', '!', '?', #10, #13])]));
end;
 
 
 
procedure TForm1.Memo1Change(Sender: TObject);
     var
  i, CntA: integer;
  S: string;
begin
  S := Memo1.Text;
  CntA := 0;
  for i := 1 to UTF8Length(s) do
    case UTF8Copy(s, i, 1) of
      #13:CntA+=-1
      else
        Inc(CntA);
    end;
    for i := 1 to UTF8Length(s) do
 
    case UTF8Copy(s, i, 1) of
      #32:CntA+=-1
    end;
     StatusBar1.Panels[0].Text:='Число символов: ' + FloatToStr(CntA);
     StatusBar1.Panels[1].Text:='Число слов: ' + (Format('%d', [WordCount(Memo1.Text, [' ', '.', ',', '!', '?', #10, #13])]));