Проблема при перемешивании массива. Delphi

[Kazak009]

Проблема в том, что почемуто перемешивание происходит каждый раз одинаково. помогите плз! Вот код:

procedure TForm1.FormCreate(Sender: TObject);
var
 m,k,n,i:Integer;
 a: array of Integer;
begin
 lbl1.Caption:='';
 n:=10;
 SetLength(a,n);
 for i:=0 to n-1 do
 begin
  a[i]:=i+1;
 end;
 for i:=0 to n-1 do
 begin
   m:= Random(n);
   k:= A[I];
   A[I] := A[m];
   A[m] := k;
 end;
 for i:=0 to n-1 do
  lbl1.Caption:=lbl1.Caption+IntToStr(a[i])+'  ';
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

randomize;

после begin вставь

[Kazak009]

Пасибо, помогло. Раньше без randomize работало. Хотя скорее всего просто не обращал внимания;