1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.BuCreateClick(Sender: TObject);
  const
    cLower   = 'abcdefghijklmnpqrstuvwxyz';
    cUpper   = 'ABCDEFGHIJKLMNPQRSTUVWXYZ';
    cNumbers = '0123456789';

begin

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:

function GivePassword(APassLength: integer): string;
const
    cLower   = 'abcdefghijklmnpqrstuvwxyz';
    cUpper   = 'ABCDEFGHIJKLMNPQRSTUVWXYZ';
    cNumbers = '0123456789';
var
  l, CharIndex: integer;
  PasswordChar: char;
  PasswordChars: string;

begin
  PasswordChars := cLower+cUpper+cNumbers;
  result := ''; // zielstring initialisieren
  for l := 1 to APassLength do // schleife
  begin
    // Length liefert die länge eines Strings zurück,
    // hier wird das die mögliche Anzahl der verschiedenen Positionen in PasswordChars
    CharIndex := Random(Length(PasswordChars)); // eine Position per Zufall bestimmen
    // in einem String steht das erste Zeichen immer an Index 1. daher die Position +1
    PasswordChar := PasswordChars[CharIndex+1]; // Zeichen aus der Gruppe der möglichen Zeichen "raussuchen"
    Result := Result + PasswordChar; // Zeichen an das Ende deines Zielstrings anhängen um so das Passwort aufzubauen.

    // die drei Zeilen kann man aber auch als eine schreiben, schön kompakt
    //Result := Result + PasswordChars[Random(Length(PasswordChars))+1]; // Zufallszahl ermitteln und als zeichen interpretieren
  end;
  // Result ist die Standartvariable einer Funktion, sie gibt das Ergebnis beim verlassen automatisch zurück.
end;

procedure TForm1.BuCreateClick(Sender: TObject);
var
  meinPasswort: string;
begin
  // beim arbeiten mit Random, Randomize nicht vergessen,
  // sonst nimmt der Zufallsgenerator immer wieder die gleiche Zahlenkette
  // am besten Randomize einmal beim starten des Programmes (im OnFormCreate) aufrufen, das reicht völlig aus
  meinPasswort := GivePassword(20); // ein Passwort das 20 zeichen lang ist
end;					

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;					

1:
2:
3:
4:

procedure TForm1.BuCreateClick(Sender: TObject);
begin
  EdPassword.Text := GivePassword(20);
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:

function GivePassword(ALowers, AUppers, ANumbers: integer): string;
const
    cLower   = 'abcdefghijklmnpqrstuvwxyz';
    cUpper   = 'ABCDEFGHIJKLMNPQRSTUVWXYZ';
    cNumbers = '0123456789';
var
  CharIndex: integer;
  PasswordChar: char;

begin
  Result := ''; // zielstring initialisieren
  while ALowers + ... + ... > 0 do // die neue Schleife (solange Summe der Zeichenanzahlen größer als Null)
  begin
    case Random(3) of // wähle per Zufall aus, aus welcher der drei Gruppen das nächste Zeichen kommen soll
      0 : if ALowers > 0 then // sind aus der Gruppe noch Zeichen möglich?
          begin // kleinbuchstaben
            CharIndex := Random(Length(cLower))+1; // via Zufall Zeichen aus der Gruppe ermitteln
            Result := Result + cLower[CharIndex];  // und an Ergebnis anhängen
            //Result := Result + cLower[Random(Length(cLower))+1]; // die Kurzfassung der beiden Zeilen oben drüber
            Dec(ALowers); // Anzahl der noch möglichen Zeichen aus der Gruppe um eins verringern
          end;
      1 : // großbuchstaben
          // .... machs mal selber!
      2 : // zahlen
          // hier auch
    end;
  end;
  // Result ist die Standartvariable einer Funktion, sie gibt das Ergebnis beim verlassen automatisch zurück.
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:
40:
41:
42:
43:
44:
45:
46:

function GivePassword(ALowers, AUppers, ANumbers : integer): string;
const
    cLower   = 'abcdefghijklmnpqrstuvwxyz';
    cUpper   = 'ABCDEFGHIJKLMNPQRSTUVWXYZ';
    cNumbers = '0123456789';
var
  CharIndex: integer;

begin
  Result := '';
  while ALowers + AUppers + ANumbers > 0 do
  begin
    case Random(3) of
      0 : if ALowers > 0 then
          begin
            CharIndex := Random(Length(cLower))+1;
            Result := Result + cLower[CharIndex];
            Dec(ALowers);
          end;
      1 : if AUppers > 0 then
          begin
            CharIndex := Random(Length(cLower))+1;
            Result := Result + cUpper[CharIndex];
            Dec(AUppers);
          end;
      2 : if ANumbers > 0 then
          begin
            CharIndex := Random(Length(cNumbers))+1;
            Result := Result + cNumbers[CharIndex];
            Dec(AUppers);
          end;
  end;
end;
end;

procedure TForm1.BuCreateClick(Sender: TObject);
var
  ALowers, AUppers, ANumbers : Integer;
begin
  ALowers  := UpDoLower.Position;
  AUppers  := UpDoUpper.Position;
  ANumbers := UpDoNumbers.Position;
  EdPassword.Text := GivePassword(ALowers, AUppers, ANumbers);
end;

end.