取随机数

procedure TForm1.Timer1Timer(Sender: TObject);
var
   i : integer;
   comd : array[0..50] of byte;
begin
   Randomize;
   for i := 0 to 50 do
   begin
     comd[i] := Random(256);
   end;
end;    问题是对于comd[]数组0到50个字节是不同的。但每次时钟到时产生的数据却总的来说不变。
就是comd[]数组
第一次 255 45 45 4 54 84  121……
第二次 255 45 45 4 54 84  121……
第三次 255 45 45 4 54 84  121……
…………我要怎么写才能让comd[]数组每个字节不同，而且每次都不同。