[Kaktuz]

Код:

var
  Form1: TForm1;
  R: Integer;
  New : array [1..15] of Integer;

implementation

{$R *.dfm}

procedure TForm1.RList;
begin
Randomize;
r := Random(15);
if New[r] = 0 then
  RList // ошибка
else
  begin
  ListBox1.Items.Add(IntToStr(r));
  New[r] := 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 15 do
New[i]:=1;

Edit1.Clear;
for i:=1 to 15 do
RList;
end;

Код вялый и выдает ошибку, но после нажатия "ОК" в целом получается то что нужно. Вообще задача состоит в том что есть несколько переменных в которых записаны данные и необходимо что бы эти данные считывались, но в случайном порядке и не повторялись. Возможно кто-то может посоветовать что-то более стабильное.