Отбор в RichEdit

[photozaz]

Помогите, надо отсоротировать предложения, в которых имеется не менне 5-ти слов..
я пробывал отобрать предложения, но при запуске тупит ::

s := RichEdit1.Text;
d:=Length(RichEdit1.Text);
 repeat
    endpos := pos('.', s);
    if pt <> 0 then
      begin
        findpos := pos(' ', s);
        if pz <> 0 then
          i:= i+1;
      end;
  until ((endpos = d) or (findpos = d));

Отредактируйте пожалуйста..

[eoln]

Конечно "тупит" - цикл ведь бесконечен
Переносит из RichEdit1 в RichEdit2 те предложения, где более пяти слов.

procedure TForm1.Button1Click(Sender: TObject);
var
  s, st, s0:tcaption;
  endpos, ProbelPos, ProbelCount: integer;
begin
s := RichEdit1.Text;
 repeat
    endpos := pos('.', s); //ищем конец предлож
    st := trim(copy(s, 1, endpos)); //вытаскиваем его
    s0 := st;
    delete(s, 1, endpos); //и удаляем
    ProbelCount := 0;
    repeat //в вытащенном предложении считаем пробелы
      ProbelPos := system.Pos(' ', s0); 
      if ProbelPos<>0 then inc(ProbelCount);
      delete(s0, 1, ProbelPos);
    until (ProbelCount>=4)or(ProbelPos=0);
    if ProbelCount >= 4 then richedit2.Lines.Add(st);
  until endpos = 0;
end;

[photozaz]

спасибо большое!!! Еще один вопрос:: мне интересна сама технология, как сделать так, чтобы концовкой предложения считалась не только точка, но и "!" и "?" ??

[eoln]

pos('.', s) pos('!', s) pos('?', s);
выбираем из них минимальное

[BOBAH13]

Посмотрите в сторону AnsiPos, LastDelimiter