procedure Passwortgenerieren; var aPasswort: String; begin aPasswort := RandomPassword(10); //generiert ein zufälliges Passwort mit der Länge 10 end;