Делфи строки

[Asira]

Подскажите пожалуйста каким образом можно посчитать количество предложений, состоящих из двух слов?

[zmey31313]

Ну если я понял правильно, посчитайте количество знаков на которые может заканчиваться предложение или, если предложения из двух слов то посчитайте количество слов и поделите на 2.

var
  txt : string;
  summ, simv, n, k : integer;
begin
  summ := 0;
  txt := 'Ваш текст';
  n := Length(txt);
  for simv := 1 to n do
    If copy(txt, simv, 1) = ' ' then summ := summ + 1;
    summ := summ + 1;
  k := summ mod 2;
  If k = 0 then
    Label1.Caption := IntToStr(round(Summ / 2))
   else
    Label1.Caption := IntToStr(Trunc(Summ / 2 + 1))