Объявляешь переменные:
Код:
var
Words:array [0..32] of String;
i:Integer;
Теперь в процедуре OnCreate пиши:
Код:
Words[0]:='à';
Words[1]:='а';
Words[2]:='б';
Words[3]:='в';
Words[4]:='г';
Words[5]:='д';
Words[6]:='е';
Words[7]:='ё';
Words[8]:='ж';
Words[9]:='з';
Words[10]:='и';
Words[11]:='й';
Words[12]:='к';
Words[13]:='л';
Words[14]:='м';
Words[15]:='н';
Words[16]:='о';
Words[17]:='п';
Words[18]:='р';
Words[19]:='с';
Words[20]:='т';
Words[21]:='у';
Words[22]:='ф';
Words[23]:='х';
Words[24]:='ц';
Words[25]:='ч';
Words[26]:='ш';
Words[27]:='ы';
Words[28]:='ъ';
Words[29]:='ь';
Words[30]:='э';
Words[31]:='ю';
Words[32]:='я';
Потом кидаешь на форму два Edit'а. В Edit1 ты будешь вводить длину слова, а в Edit2 будет выводится полученное слово.
Теперь, например, на событие OnClick у кнопки пишешь простенький код:
Код:
Edit2.Clear;
Randomize;
for i:=0 to StrToInt(Edit1.Text)-1 do
Edit2.Text:=Edit2.Text+Words[Random(32)];