Criando gerador de cash Universal

Bom Pessoal Vou ensinar a vocês a fazer um gerador de cash
Vamos começar

Adicione

2 Edit
2 Button

Substitua o caption do button 1 para "Gerar Cartao"
Substitua o caption do button 2 para "Gerar PIN"

Dê 2 clicks sobre o Gerar Cartao e cole. (Apague Begin)

Código:

var
i: integer;
const
str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';{Code a ser gerado}
max = 16;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}
begin
Edit1.Text := '';
for i := 1 to max do
Edit1.Text := Edit1.Text + str[random(length(str))+1];
end;

end.

Dê 2 clicks sobre o Gerar PIN e cole. (Apague Begin

Código:

var
i: integer;
const
str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';{Code a ser gerado}
max = 10;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}
begin
Edit2.Text := '';
for i := 1 to max do
Edit2.Text := Edit2.Text + str[random(length(str))+1];
end;

end.

De f9 e pronto
Creditos :Juuse