delphi生成随机数

delphi产生随机数2009-07-2718:58//用delphi产生不重复的随机数******************************************************************************************varaa:array[1..36]ofstring[2];//aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值}procedureTForm1.FormCreate(Sender:TObject);vari:integer;beginfori:=1to36dobeginaa[i]:=inttostr(i);bb[i]:=intt