delphi密码生成器

利用文本随机生成密码ifDayOfWeek(now)=1then Week_Count:=1 elseifDayOfWeek(now)=2then Week_Count:=2 ElseifDayOfWeek(now)=3then Week_Count:=-1 ElseifDayOfWeek(now)=4then Week_Count:=-2 ElseifDayOfWeek(now)=5then Week_Count:=0 ElseifDayOfWeek(now)=6then Week