while len<str.Length do                                              //до конца строки
                begin
                inc(pos);                                                          //берем следующий символ
                if str[pos] in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я', '0'..'9']  //если это буквоцифра
                  then
                    begin
                    inc(len);                                                      //увеличиваем счетчик длины слова
                    isitword:=true;                                                //включаем флаг проверки на слово
                    end
                  else                                                             //если не буквоцифра
                    begin
                    if (isitword=true) and (len<SpinEditWLength.Value)             //если до этого было слово
                      then
                        begin
                        Delete(str,pos-len,len);                                   //удаляем слово, если оно короткое
                        pos:=pos-len+1;                                            //меняем позицию в строке в соответствии с изменением ее длины
                        end;
                    len:=0;
                    isitword:=false;
                    end;
                end;