[Asinkrit]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;