[lmikle]

Ну так и счтай.
тебе надо "нарезать" текст на слова, деля его по пробелам. Нужны функции Pos и Copy.

Код:

function GetWordCount(AText : String; ALen : Integer) : Integer;
var
  Buf : String;
begin
  Result := 0;
  While Pos(' ',AText) > 0 Do
    Begin
       Buf := Copy(AText,1,Pos(' ',AText)-1);
       AText := Copy(AText,Pos(' ',AText)+1,Length(AText)-Pos(' ',AText)+1);
       If Length(Buf) = ALen Then Inc(Result); 
    End;
  If Length(Buf) = ALen Then Inc(Result); 
end;