Как заполнить StringGrid русским алфавитом рандомно без повтора буквы

[LatuSerge]

Как заполнить StringGrid размерностью 5х7 русским алфавитом в случайном порядке так чтобы буквы не повторялись(Delphi 7). Вообще конечно желательно сделать вот что:
Шифр «Полибианский квадрат». Такое название шифр получил благодаря его изобретателю – греческому историку Полибию. Ключом являлся квадрат размерностью 5×5, который заполнялся алфавитом в случайном порядке. Для шифрования в квадрате Полибий находил букву текста и вставлял в шифровку нижнюю от нее в том же столбце. Если буква была в нижней строке – то для шифровки он выбирали верхнюю из того же столбца.

Но я вообще не пойму как это сделать((((((((

[Serge_Bliznykov]

если не ошибаюсь, то в русском языке 33 буквы... значит матрицу 5x7 полностью, без повторов тяжко будет заполнить
ну а так всё просто - заполняйте массивчик A : array[1..33] of char;
буковками от А до Я
тщательно перемешивайте. (примеры перемешивания смотри на форуме)
результат копируйте в Ваш StringGrid...
всё.


Добавлено
посмотрите вот тут ПОСТ
(там и пример есть и ссылочки полезные)...

[GoodDA]

заполнить можно так,
только пробелы потом заполнить чемнить еще
и букву Ё отдельно добавить

procedure TForm1.Button1Click(Sender: TObject);
var b:char;
x,y:integer;
begin
randomize;
 for b:='а' to 'я' do
 begin
  repeat
   x:=random(5)+1;
   y:=random(7)+1;
  until (stringgrid1.Cells[x,y]='');
  stringgrid1.Cells[x,y] :=b;
 end;
end;