В заданный непустой текст входят цифры и буквы

//Если число aNum простое, функция возвращает True. Иначе - False.
function IsSimple(const aNum : Integer) : Boolean;
var
  i, Num : Integer;
begin
  Num := Abs(aNum);
  if Num <= 1 then begin
    Result := False;
    Exit;
  end;
  Result := True;
  for i := 2 to Num div 2 do begin
    if Num mod i = 0 then begin
      Result := False;
      Break;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
  S, sW : String;
  i, j, Pos1, Len : Integer;
begin
  Memo2.Clear;
  //Исходный текст.
  S := Memo1.Text;
 
  Memo2.Lines.Add('Перечень слов, порядковые номера которых являются простыми числами.');
  Memo2.Lines.Add('Выбираются только те слова, которые идут до слова "0".');
  Memo2.Lines.Add('Если слово "0" отсутствует - выбираются все слова.');
 
  Len := Length(S);
  Pos1 := 0;
  j := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      //Порядковый номер текущего слова.
      Inc(j);
      //Выделяем слово.
      sW := Copy(S, Pos1, i - Pos1 + 1);
      //Если словом является '0', то выходим из цикла.
      if sW = '0' then Break;
      //Если порядковый номер слова является простым числом,
      //то записываем это слово в Мемо2.
      if IsSimple(j) then Memo2.Lines.Add(sW);
    end;
  end;
end;