Componentes necessários:
Edit1=Vazio;
Button1=Gerar senha;
Edit1=Vazio;
Button1=Gerar senha;
Código:
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;