Генерируем говорящие логины или пароли в Delphi

А вам приходилось придумывать такой логин или пароль, чтобы он красиво звучал и легко запоминался? Я решил автоматизировать данную задачу и написал небольшую функцию. Алгоритм основан на случайном чередовании гласных и согласных звуков. Довольно часто возвращаются интересные строки.