1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

type
TPasswordMode = set of (pmUpper, pmNumbers);


function GeneratePassword(ALength: Integer; Mode: TPasswordMode):string;
const
  cUpper   = 'BCDEFGHIJKLMNOPQRSTUVWXY';
  cNumbers = '123456789';
  
var
  i : Integer;
  S : string;
  iM: BYTE;
begin

  if Mode = [] then Exit;

  i := 0;
  Randomize;
  
  while (i < ALength)  do
  begin
    iM := RANDOM(4);
    case iM of
      // Grossbuchstaben
     1: if (pmUpper in Mode) then begin
           S := S + cUpper[1+RANDOM(Length(cUpper))];
          Inc(i);
         end;        
      // Nummern
      2: if (pmNumbers in Mode) then begin
           S := S + cNumbers[1+RANDOM(Length(cNumbers))];
           Inc(i);
          end;
    end;
  end;
  Result := S;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

type
  TPasswordMode = set of (pmUpper, pmNumbers);

function GeneratePassword(ALength: Integer; Mode: TPasswordMode):string;
const
  cUpper   : String = 'ABCDEFGHIJKLMNPQRSTUVWXYZ';
  cNumbers : String = '123456789';
var
  i, iM: Integer;
  cSelect, S : string;
begin
  if Mode = [] then
    begin
      Result:='ungültige Auswahl';
      Exit;
    end;
  Randomize;
  cSelect:='';
  if (pmUpper in Mode) then
    cSelect:=cSelect+cUpper;
  if (pmNumbers in Mode) then
    cSelect:=cSelect+cNumbers;
  s:='';
  for i:=1 to ALength do
    begin
      iM := Random(Length(cSelect))+1;
      s:=s+cSelect[iM];
      if ((i mod 5)=0) and (i<ALength) then s:=s+'-';
    end;
  Result:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GeneratePassword(10, []));
  ShowMessage(GeneratePassword(10, [pmUpper]));
  ShowMessage(GeneratePassword(15, [pmNumbers]));
  ShowMessage(GeneratePassword(20, [pmUpper, pmNumbers]));
end;