O más fácil de lllamar mediante:
Código Delphi
[-]
function PassPronunciable: string;
function ConsonanteAleatoria(Longitud: integer): string;
const
Letras = 'bcdfgjlmnñpqrstvyz';
var
n : integer;
begin
Result:='';
for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
end;
function VocalAleatoria(Longitud: integer): string;
const
Letras = 'aeiou';
var
n : integer;
begin
Result:='';
for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
end;
begin
Result := ConsonanteAleatoria (1) + VocalAleatoria (1) + ConsonanteAleatoria (1) +
VocalAleatoria (1) + ConsonanteAleatoria (1) + VocalAleatoria (1);
end;
Así queda más bonito escribir
Código Delphi
[-]
Edit1.Text := PassPronunciable;
Por cierto... hoy he hecho mi primer Procedure... este... es una tontería pero, gracias Román