Randomize

Kode 

function RandomString(PWLen: integer; PWChars: string): string;
var
  N, K, X, Y: integer;
begin
  Randomize;
  if (PWlen > Length(PWChars)) then K := Length(PWChars)-1
    else K := PWLen;
  SetLength(result, K);
  Y := Length(PWChars);
  N := 0;

  while N < K do begin
    X := Random(Y) + 1;
    if (pos(PWChars[X], result) = 0) then begin
      inc(N);
      Result[N] := PWChars[X];
    end;
  end;
end;

Kode 

ShowMessage(RandomString(10, 'abcdefghijklmnopqrstuvwxyz1234567890'))

Kode 

// Funktion: RandomChar
// Beskrivelse: Finder et tilfældigt bogstav/tal, og returnere en char-version af denne
function RandomChar(): Char;
var
  R: Integer;
begin
  R := Random(36);
  if R < 10 then // Hvis R er under 10 har vi fundet et tal
    Result := Char(R + Ord('0'))
  else // Hvis R er over 10 har vi fundet et bogstav
    Result := Char((R-10) + Ord('a')) // Vi trækker 10 fra, for fjerne de første 10 muligheder, som er tal
end;

// Funktion: RandomString
// Beskrivelse: Skaber en streng bestående af tilfældige bogstaver
function RandomString(Len: Integer): string;
  // Funktion: MyDec
  // Beskrivelse: Simpel immitering af C++'s -- operator
  function MyDec(var X: Integer; Y: Integer = 1): Integer;
  begin
    Result := X;
    X := X - Y;
  end;
begin
  Result := '';
  while(MyDec(Len) > 0) do // Mens Len er over 0, tilføj tilfældigt bogstav
    Result := Result + RandomChar();
end;

Kode 

// Funktionen tager længden af outputtet som parameter og giver en String tilbage
function RandomString(Length: Integer): String;
const
  // Alle tegnene holdes her! Der kan frit tilføjes, MEN delen der viser
  // hvor mange forskellige tegn der er ( 0..37 ) skal opdateres!
  Tegn: array [0..37] of Char = ('A', 'B', 'C', 'D', 'E', 'F', 'G',
                                 'H', 'I', 'J', 'K', 'L', 'M', 'O', 'P', 'Q',
                                 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
                                 'Æ','Ø', 'Å', '0', '1', '2', '3', '4',
                                 '5', '6', '7', '8', '9');
var
  I: Integer; // Bare en simpel lokal Integer variabel til et for loop
begin
  Randomize; // Sørg for at initialisere random number generatoren
  for I := 1 to Length do // Kør et loop fra første tegn op til Length
    Result := Result + Tegn[Random(High(Tegn))]; // Tilføj et random tegn til result
end;