Pour ne pas générer le même texte chiffré

S:= 'ttttt';
s := Format('%s%s%0.4d',[RandomText , S,Length(RandomText));
Crypt(S[1], Length(s) * SizeOf(Char), 456);
.....
Crypt(S[1],...