function WordRandom(Len: integer; Ru, RuUp, En, EnUp, Num: boolean; Sym: TSysCharSet): string;
var s: array of AnsiChar;
    n, Count: integer;
    c: AnsiChar;
begin
   Result:='';
   Count:=0;
   SetLength(s, Count);
   if Ru then
   begin
      Count:=Count+33;
      SetLength(s, Count);
      for c:='а' to 'я' do
         s[Count-33+Ord(c)-Ord('а')]:=c;
      s[Count-1]:='ё';
   end;
   if RuUp then
   begin
      Count:=Count+33;
      SetLength(s, Count);
      for c:='А' to 'Я' do
         s[Count-33+Ord(c)-Ord('А')]:=c;
      s[Count-1]:='Ё';
   end;
   if En then
   begin
      Count:=Count+26;
      SetLength(s, Count);
      for c:='a' to 'z' do
         s[Count-26+Ord(c)-Ord('a')]:=c;
   end;
   if EnUp then
   begin
      Count:=Count+26;
      SetLength(s, Count);
      for c:='A' to 'Z' do
         s[Count-26+Ord(c)-Ord('A')]:=c;
   end;
   if Num then
   begin
      Count:=Count+10;
      SetLength(s, Count);
      for c:='0' to '9' do
         s[Count-10+Ord(c)-Ord('0')]:=c;
   end;
   for c:=Low(AnsiChar) to High(AnsiChar) do
      if (c in Sym) and not (Ru and ((c>='а') and (c<='я') or (c='ё')) or
         RuUp and ((c>='А') and (c<='Я') or (c='Ё')) or
         En and (c>='a') and (c<='z') or EnUp and (c>='A') and (c<='Z') or
         Num and (c>='0') and (c<='9')) then
      begin
         Inc(Count);
         SetLength(s, Count);
         s[Count-1]:=c;
      end;
   if Count=0 then
      Exit;
   while Len>0 do
   begin
      Dec(Len);
      n:=Random(Count);
      Result:=Result+String(s[n]);
   end;
end;