[Janom]

Сообщение от U.B.M.

Вариант 1.
Сразу перейти в раздел "Работа".

Вариант 2.
1. Морально подготовиться к тому чтобы напрячь мозги.
2. Разбить строку на массив слов (например заменить все пробелы на #13#10) и запихать этот массив в мемо.
3. Посчитать кол-во строк в мемо с необходимой длиной.

Заморочено как-то))
Можно так:

Код:

//Функция
function OprKolSlov(Stroka:String; Const N_Bukv:Cardinal):Cardinal;
var
  i,CurrCount:Cardinal;
begin
if Stroka='' then exit;
Stroka:=Stroka+' ';
CurrCount:=0;
Result:=0;
for i:=1 to Length(Stroka) do
  begin
    if Stroka[i]<>' ' then Inc(CurrCount)
      else begin
        if CurrCount=N_Bukv then Inc(Result);
        CurrCount:=0;
      end;
  end;
end;
//Использование функции
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption:=IntToStr(OprKolSlov(Edit1.Text,4));
end;