Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- i:integer;
- const
- str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ@!#$%&*';
- max=14;
- begin
- Edit1.Text:='';
- for i:=1 to max do
- begin
- Edit1.Text:=Edit1.Text+str[random(length(str))+1];
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement