[gralex]

Здравствуйте.
Нужно заполнить массив не повторяющимися, рандомными значениями из диапазона от 1 до значения, задаваемого переменной. В результате получаю ошибку, указанную в куске кода ниже.
Искал решение в интернетах, но не нашел. Помогите, укажите в чем ошибка. (Перевод ошибки знаю, значение этого сообщения тоже, исправить не получается)

Код:

var
...
  NQuest, MQuest:Integer;
  N:array[1..500] of Integer;
implementation

{$R *.dfm}

...

procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:integer;
begin
  For i:=1 to MQuest do
  begin
    N[i]:=Random[NQuest]; //array type required
    For j:=1 to i-1 do
    If N[i]=N[j] then
    i:=i-1;
  end;