Восемь чисел - восемь блоков. Как распределить?

[Freestyler]

Уже четвёртый час сижу, не могу додуматься. Есть восемь блоков (к примеру, Panel'и) и каждый раз при запуске программы генерируются 8 случайных чисел. Необходимо с каждым числом сделать некоторое кол-во математических или других операций, чтобы в результате все числа были разными. Т.е. в каждом блоке - своя уникальная для приложения цифра. Причём всё это надо сделать без использования массивов. Либо подскажите, как это сделать массивами, но настолько подробно, чтобы даже я понял. =) Просто во время изучения языка Paskal с массивами я как-то не подружился...В общем, надеюсь, всё понятно объяснил.
И пока насчёт кода приходит в голову только это:

var
 B1, B2, B3, B4, B5, B6, B7, B8: integer; // Восемь чисел
begin
 Randomize;

 B1:= Random(8) + 1; // Прибавляем 1 только для того, чтобы случайные числа
                     // шли в диапазоне 1..8 а не 0..7
 Panel1.Caption:= IntToStr(B1);

 B2:= Random(8) + 1;
  if B2 = B1 then begin
   repeat
    B2:= B2 + 1; // Если число совпадает с первым, прибавляем 1
    if B2 > 8 then B2:= 1; // Если превысили число 8, "скидываем" до 1
   until B2 <> B1; // Повторяем до тех пор, пока не добьёмся разных чисел
                   // Сделано для того, чтобы числа не совпали как "1" и "1"
  end;
 Panel2.Caption:= IntToStr(B2);

И дальше по аналогии...
Но проблема заключается в том, что если используется три числа или больше код начинает давать сбои - числа повторяются. И чем больше чисел (до 8, естественно), тем больше таких "повторов".
Прошу помощи, если таковая найдётся.

[mihali4]

1. Заполняем массив В числом 0.
2. Генерируем В1. (Random(7) + 1)
3. Генерируем следующее число В(i). (Random(7) + 1)
4. Просматриваем весь массив В на предмет совпадения, пока не достигнем нулевого (еще неиспользованного) элемента.
5. Если не получили совпадения - заносим в В(i).
6. Если i < 8, идем к п.3.
Со счетчиком i, я надеюсь, сами разберетесь?

[pu4koff]

Я бы заполнил массив по порядку нужными числами, а потом "перемешал" значения.

var
  a: array[0..7] of integer;
  i, k, tmp: integer;
begin
  Randomize;
  for i := 0 to 7 do
  begin
    a[i] := i + 1; // Заполняем по порядку числами от 1 до 8
  end;
  // Перемешиваем массив
  for i := 0 to 7 do
  begin
    k := Random(8);  // Новая позиция в массиве для элемента i
    // Меняем местами элементы i и k
    tmp := a[k];
    a[k] := a[i];
    a[i] := tmp;
  end;
end;

[Freestyler]

Спасибо, всё получилось.