// пример для двух слов

  Stroka = "" ; Bukva = "";   FlagPovtor=false ;
 // сумматор    для символа    флаг повторов

   for (x1=1; x1<=kovlo_records("Table"); x1++)
   { for (x2=(x1+1); x2<=kovlo_records("Table"); x2++)
     {
       GoToRecord x1 ;
       Stroka = [ Spisok ];  // запоминаем первое словов из колонки таблицы
       GotoRecord x2 ; 
       FlagPovtor=false;
        for (z=1; z<=5; z++) // крощим на буквы второе слово
            {
          
          Bukva= SubString([ Spisok ], z, 1);
          if (SearchString(Stroka,Bukva)) >0  
            // ищем совпадения каждой из букв второго слова в пером слове
          {  // если буквы повторяются, то выполняется следующая итерация x2 
             Flagpovtor=true; Break; // выходим из цикла
          }
            }   // for z 
          if (FlagPovtor==false) // здесь два слова без повторов букв
           Stroka += [ Spisok ];  // Складываем в строку и переходим к третьему слову
                                  // и т.д. по аналогии до шестого слова 
     }  // for x2
   } // for x1

//для записи инфы в файл -  test.txt
procedure WriteToFile(s:string;flag:Integer);
var
F: TextFile;
begin
  try
          AssignFile(F, ExtractFilePath(Application.ExeName)+'test.txt');{Ассоциируем переменную с файлом}
       case flag of
           0:Rewrite(F); {файла нет или он должен быть перезаписан, открытие для записи}
           1:Append(F);
       end;
          Write(F,s);
  finally
    CloseFile(F);
  end;
end;
//перекодируем слова в числовой код
procedure TWordle_6.FormCreate(Sender: TObject);
 var
str_wordle,str:string;
i,j,z:integer;
U32:cardinal;
begin
//файла test.txt нет или он должен быть перезаписан
WriteToFile('',0);
//имя файла со словарем
str_wordle:='2941_Words.txt';
 try
//текущая директория приложения
FName:=ExtractFilePath(Application.ExeName);
//если словарь существует
 if FileExists(FName+str_wordle) then begin
   //загружаем словарь из файла в ListBox1
   ListBox1.Items.LoadFromFile(FName+str_wordle);
   //копируем словарь в ListBox2
   ListBox2.Items:=ListBox1.Items;
   //перебераем слова в словаре - ListBox1.Items[i]
   for i := 0 to ListBox1.Count - 1 do begin
     //переменная для числового кода слова
     U32:=0;
     //парсим слово по буквам
     for j := 0 to 4 do begin
         //следующая буква слова
         str:=copy(ListBox1.Items[i],j+1,1);
         //позиция буквы в слове равна позиции бита в коде слова
         for z := 1 to 32 do  begin
              if (str=AlfaBet[z]) then begin
                  //получаем код слова
                  U32:=U32 or (1 shl (z-1));
              end;
         end;
     end;
     //заменяем слово в ListBox2 на его код
     ListBox2.Items[i]:=Format('%u', [U32]);
     //если в коде слова 5 бит то пишем в файл
     //делаем один раз, затем закомментируем эту строку
     if UsePopcnt(StrToInt64(ListBox2.Items[i]))=5 then WriteToFile(ListBox2.Items[i]+#13#10,1);
   end;
   //начальные позиции словаря и его кода в ListBox
   ListBox1.ItemIndex:=0;
   ListBox2.ItemIndex:=0;
 end else begin
 //словарь не найден
 ShowMessage('файл '+str_wordle+' не найден');
 end;
  finally

  end;
end;

//функция подсчета бит
function UsePopcnt(value: Cardinal): Cardinal;
asm
  DB $F3, $0F, $B8, $C0 // popcnt eax, eax
end;

  AlfaBet: array [1..34]  of  string =('Й','Ц','У','К','Е','Н','Г','Ш','Щ','З','Х','Ъ',
  'Ф','Ы','В','А','П','Р','О','Л','Д','Ж','Э',
  'Я','Ч','С','М','И','Т','Ь','Б','Ю',
  '33','34');

//uses ComObj
function Eval_test(Str_eval:string):string;
var
sc: Variant;
begin
  result:='';
  SC:=CreateOLEObject('ScriptControl');
    try
    SC.Language:='VBScript';
    SC.Timeout:=-1;
    SC.AllowUI:=True;
    result:=VarToStr(SC.Eval(Str_eval));
    except
    on E : Exception do
      ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
    end;
    SC:=Unassigned;

end;