Random Nameli Loader ?

function ShuffleString(Range: integer):string;
var
 i: integer ;
 Chars: string;
begin
 Chars:= 'ABCDEFGHIJKLMNOPRSTUVYZabcdefghijklmnoprstuvyz0123456789';
 setlength(result, Range);
 for i:= 1 to length(result) do
   result[i] := Chars[Random(length(Chars))];
end;

   string ShuffleString(int len)
        {
            string str = "";
            char[] karakter = new char[11] {'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K'};
            Random rnd = new Random();
            for (int i = 0; i < len; i++)
            {
                str += karakter[rnd.Next(0, len)];
            }
            return str;
        }

   Public Function ShuffleString(len As Integer) As String
        Dim s As String = ""
        Dim chr() As Char = New Char() {"a", "b", "c", "d", "f", "e", "g", "h", "ı", "j", "k", "l", "m", "n", "o"}
        Dim rand As New Random()

        For x As Integer = 0 To len
            s += chr(rand.Next(0, len))
        Next


        Return CType(s, String)
    End Function