上次随机抽取的问题

Question

上次的代码放在BUTTONclick里，怎么有时候按几次才能随机抽出来：？
var I,J: integer;
    L1: integer;
    inte: array [0..6] of integer;
    bool1: boolean;
begin
//随即抽取，且不重复
    inte[0] := random(31);
    for I:= 1 to 6 do
    begin
      bool1 := true;
      while bool1 do
      begin
        bool1 := false;
        L1 := random(31);
        for J := 0 to I -1 do
        begin
          if L1 = inte[J] then
          begin
            bool1 := true;
            exit;
          end;
        end;
      end;
    inte[I] := L1 ;    end;

Answer 1

数据从哪里取？又存到哪？
或是你想完成什么功能，俺帮你别写一个吧