Mit einer kurzen Prozdur einen Schlüssel erzeugen

[kurtm1]

Hallo!
Es geht drum einen Schlüssel aus allen 26 Buchstaben des Alphabets zu erstellen, der aber keinen Buchstaben doppelt beinhaltet.

Gibt es da eine Funktion, oder eine kurze Prozedur?

Dies ist meine Lösung:

Code:

strSchluessel[1]:=chr(random(26)+65);
   for i:=2 to 26 do
   Begin
      j:=1;
      strBuchstabe:=chr(random(26)+65);
         repeat
           if strSchluessel[j]=strBuchstabe[1] then
           Begin
               strBuchstabe:=chr(random(26)+65);
               j:=0;
           end;
           j:=j+1;
         until j>i;
      strSchluessel[i]:=strBuchstabe[1];
   end;