Roman, esta respuesta la tengo desde hace tiempo, pero no encontraba el hilo. Como bien sabéis, soy bastante principiante en esto de Delphi, a si que tengo que recurrir a "apaños" como este. He utilizado el truco de Trucomanía, generar palabras aleatorias.
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
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
Edit1.Text := ConsonanteAleatoria (1) + VocalAleatoria (1) + ConsonanteAleatoria (1) +
VocalAleatoria (1) + ConsonanteAleatoria (1) + VocalAleatoria (1)
end;
Generará contraseñas de 6 carácteres.