[Asinkrit]

Подсчет кол-ва слов, подсчетом кол-ва пробелов.
На самом деле не самый удачный способ считать пробелы, так как, если пробелы будут вподряд стоять, то кол-во слов подсчитает неправильно.

Код:

function GetWordsCount(const aMemo:TMemo):Integer;
var
  i:integer;
begin
  Result:=0;
  with aMemo do
    if Length(Text)>0 then
      begin
      for i:=1 to Length(Text) do
        if (Text[i]  in [' ', #13]) then
          Inc(Result);
      if not (Text[i] in [' ', #13]) then inc(Result);
      end;
end;