Generar contraseñas pronunciables

[DarkByte]

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