[Delphi 7] Criando um gerador de senha (Random)

E ai galera, este é meu primeiro tópico nesse fórum, então se tiver algum erro,me avisem.
Eu procurei outro tópico com este mesmo conteudo e não achei então resolvi postar.
Pois bem, vamos começar!

Vamos precisar de:
1 Button
1 Edit

Vá na aba "Standart" e Coloque o "Buton" e a "Edit" na Form (Como mostra as imagens)

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

No "Button" vá em [Properties / Caption] Renomei ele para "Gerar Senha" ou "Gerar Codigo" (Como mostra a imagem)

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Na "Edit" vá em [Properties / Text] apague o nome "Edit.1" (Como mostra a imagem)

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Agora vamos ao código:

Dê dois cliques no "Button" e cole o seguinte código.

Citação :: var
num,max,i:integer;
Key:Char;
begin
randomize;
max:=5;//quantidade de caracteres na senha
Edit1.Text:='';
for i:=0 to max do
begin
num := Round(random(36)); //Máximo do numero aleatório
case Num of
0: Key := '0';
1: Key := 'A';
2: Key := 'B';
3: Key := 'C';
4: Key := 'D';
5: Key := 'E';
6: Key := 'F';
7: Key := 'G';
8: Key := 'H';
9: Key := 'I';
10: Key := 'J';
11: Key := 'K';
12: Key := 'L';
13: Key := 'M';
14: Key := 'N';
15: Key := 'O';
16: Key := 'P';
17: Key := 'Q';
18: Key := 'R';
19: Key := 'S';
20: Key := 'T';
21: Key := 'U';
22: Key := 'V';
23: Key := 'W';
24: Key := 'X';
25: Key := 'Y';
26: Key := 'Z';
27: Key := '1';
28: Key := '2';
29: Key := '3';
30: Key := '4';
31: Key := '5';
32: Key := '6';
33: Key := '7';
34: Key := '8';
35: Key := '9';
end;
Edit1.Text:=Edit1.Text+Key;
end;
end;

Se você quer aumentar o tamanho das senhas e tal, é só editar está parte :

Citação :

max:=5;//quantidade de caracteres na senha

Ajudei??Agradeça ou comente!!

Parabéns por seu primeiro post, estou gostando de ver, estou a algum tempo sem postar nenhuma video aula mas tenho um motivo. Eu estou me aprofundando no assunto para gravar mais muitas video aulas. Parabéns continue assim... E funcionou =).

Além disso estou muito ocupado pois estou trabalhando.. Obg...

Atenciosamente Equipe Style Tutorial

Assunto: Cara, Seg Mar 07, 2011 4:12 pm

Da erro no
VAR =\

» [ Tutorial - Delphi 7] Criando Sistema de Login sem Banco de Dados - Video Aula
» [Tutorial Delphi 7] - Criando Tocador de Musica
» [Tutorial Delphi 7] - Criando StatusBar com Hora e Data
» [Tutorial - Delphi] Criando Tela de Splash - Video Aula
» [Tutorial] Delphi 7 - Criando Navegador de Internet - Video Aula