Генерируем человеческие ники[Delphi]
 

В общем понадобилось мне генерировать такие.
Нашел сайт http://onlinetoplist.com/nick.htm
Понравилось как генерирует, и чтобы использовать такое в программе решил переложить javascript функцию на дельфи.
Подумал может кому пригодится, тем более здесь уже видел такой вопрос.
Итак, в функцию передается число 1, 2 или 3.
При параметре равном 1 генерируется имя и фамилия.
При 2 и 3 только ник.
Пример использования:
uses RandomLogin;
................................
.............................
for i := 1 to 100 do
Memo1.Lines.Append(RandomNick(2));
Примеры результатов:
Сам модуль : http://slil.ru/29013192
Можно также в конце строки добавлять случайные числа, но это уже на ваше усмотрение

PS Не забываем перед использованием в программе Randomize вызывать