Функция генерации ников...

[Sibedir]

Не вижу особой кривизны. Ваша функция делает именно то, что Вы хотите.
я сам хотел предложить Вам точно такой же вариант

Присоединяюсь. Работа соответствует постановке задачи. Принципиальных недочётов алгоритма нет. Очень даже съедобно.

[Host-2013]

вот еще для размышления... как вариант
Label1.Caption:= chr(Random(100));

[Serge_Bliznykov]

Host-2013, нет, не вариант. случайные символы автору топика не подходят. Ему нужны случайные СЛОВА!


да и кроме того, ваш код сам по себе очень плох - данный пример в большинстве случаев выдаст НЕПЕЧАТНЫЕ символы!

[Host-2013]

Сообщение от Serge_Bliznykov

Host-2013, нет, не вариант. случайные символы автору топика не подходят. Ему нужны случайные СЛОВА!

ну кто мешает Label1.Caption:= chr(Random(100))+chr(Random(100))+c hr(Random(100));

Сообщение от Serge_Bliznykov

да и кроме того, ваш код сам по себе очень плох - данный пример в большинстве случаев выдаст НЕПЕЧАТНЫЕ символы!

ну это может быть... другой вопрос что можно как то задать другой интервал рандома чтоли... ну короче что то на базе chr

[Serge_Bliznykov]

ну кто мешает Label1.Caption:= chr(Random(100))+chr(Random(100))+c hr(Random(100));

не знаете, чем бессмысленный (случайный) набор букв отличается от слова?!
Вам, наверное, легко кроссворды разгадывать - любые случайные буквы вписали и всё, задача решена!

другой вопрос что можно как то задать другой интервал рандома чтоли...

это можно. Но набор слов при этом всё равно не получится...