Ein Zufallspasswort kannst du z.B. so erzeugen:
function RandomString(const len: Integer; const CharSet: string): string;
var
i: Integer;
pResult : PChar;
begin
SetLength(Result,len); // Speicher im Result-String reservieren
pResult := PChar(Result);
for i := 1 to len do
begin
pResult^ := CharSet[1+Random(Length(CharSet))];
Inc(pResult);
end;
end;
...
neuesPasswort := RandomString(6, ['0'..'9', 'A'..'Z']);
Achso hier eingeben was man brauch! Danke!!!!!!!