Ошибка access violation at adress

[Fealhas]

Всем доброго времени суток, товарищи!
После закрытия формы выходит ошибка

access violation at adress ******* in module *****.exe. Reed of address 00000010

Помогите, пожалуйста, выявить проблему.

заранее извиняюсь за глупые вопросы. В delphi новичок.
вот код:

var
  Form2: TForm2;
  TS :TStringList;
implementation

{$R *.dfm}

function Unic(var flag: array of boolean; range: integer): integer;
begin
  result := random(range);
  while flag[result] do
    result := random(range); 
  flag[result] := true; 
end;

procedure MassRand(range: integer; var inputMass: array of integer);
var
  j: integer;
  bm: array of boolean;
begin
  SetLength(bm, 10);
  for j := 0 to length(inputMass)  do
  begin
    inputMass[j] := Unic(bm, range); 
  end;
end;


procedure TForm2.Button1Click(Sender: TObject);
var
  i : integer;
  mass: array of integer; 
begin
  timer1.Enabled := true;
  Randomize;
  i := TS.Count;
  SetLength(mass,10);
  MassRand(i, mass);
  label1.Caption := TS.Strings[mass[1]];
  label2.Caption := TS.Strings[mass[2]];
  label3.Caption := TS.Strings[mass[3]];
  label4.Caption := TS.Strings[mass[4]];
  label5.Caption := TS.Strings[mass[5]];
  label6.Caption := TS.Strings[mass[6]];
  label7.Caption := TS.Strings[mass[7]];
  label8.Caption := TS.Strings[mass[8]];
  label9.Caption := TS.Strings[mass[9]];
  label10.Caption := TS.Strings[mass[10]];

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ts.Free;
timer1.Enabled := false;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 gauge1.Progress := 50;
 TS :=TStringList.Create;
 TS.LoadFromFile('words.txt');
 label1.Caption :='';
 label2.Caption :='';
 label3.Caption :='';
 label4.Caption :='';
 label5.Caption :='';
 label6.Caption :='';
 label7.Caption :='';
 label8.Caption :='';
 label9.Caption :='';
 label10.Caption :='';
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
gauge1.Progress := gauge1.Progress - 1;
if gauge1.Progress=0 then begin
MessageBeep(MB_ICONEXCLAMATION);
timer1.Enabled := false;
end;

end;
end.

[Ezhik Kihze]

  label10.Caption := TS.Strings[mass[10]];

Динамически массивы нумеруются с 0

[Fealhas]

Динамически массивы нумеруются с 0

исправил, проблема не исчезла. Еще вот что : ошибка появляется не сразу после закрытия программы, и не всегда. К примеру запускаю форму, запускаю процедуру нажатия кнопки, закрываю форму. Потом снова компилирую, и он мне выдает

[dcc32 Fatal Error] F2039 Could not create output file '.\Win32\Debug\Project2.exe'

, и ошибка с адресом памяти через несколько секунд

[evg_m]

П.1

  Form2: TForm2;
  TS :TStringList; // для чего ?

используется ли где-то кроме данной формы ?
поскольку в приведенном коде нет создания данного объекта

ts:=TstringList.Create;

п.2

  while flag[result] do
    result := random(range);

условие внутри цикла не меняется =>бесконечный цикл (если он хотя бы раз будет выполнен)

п.3

  SetLength(bm, 10); //потенциальная ошибка если значение захотим увеличить range (>10)
  for j := 0 to length(inputMass) -1  do begin //  первый номер =0  //  последний номер =N{число лементов} -1
    inputMass[j] := Unic(bm, range); 
  end;

  i := TS.Count;

если объекта нет(не создан смотри п. 1) то вот оно AV Read of adress 000000..

[Serge_Bliznykov]

for j := 0 to length(inputMass)  do

кстати, тоже неверно.
По той же причиние. Раз нумерация с нуля,
то первый элемент массива 0, последний — length(inputMass)-1

[Fealhas]

Сообщение от evg_m

П.1
используется ли где-то кроме данной формы ?

Форма всего одна

Сообщение от evg_m

поскольку в приведенном коде нет создания данного объекта

ts:=TstringList.Create;

Создание выполняется в событии FormCreate

Сообщение от evg_m

п.2
условие внутри цикла не меняется =>бесконечный цикл (если он хотя бы раз будет выполнен)
п.3

SetLength(bm, 10); //потенциальная ошибка если значение захотим увеличить range (>10)
  for j := 0 to length(inputMass) -1  do begin //  первый номер =0  //  последний номер =N{число лементов} -1
    inputMass[j] := Unic(bm, range); 
  end;

Простите, но тут я вас не понимаю... Подскажите как должно быть,

  {данная функция возвращает одно случайное число}
  result := random(range);
  while flag[result] do
    result := random(range); //ищем какого числа еще нет
  flag[result] := true; //это чтобы не было повторений

[evg_m]

п.2
Цитата:Код:

while flag[result] do
result := random(range);


условие внутри цикла не меняется =>бесконечный цикл (если он хотя бы раз будет выполнен)

замечание снимаю.

очень полезная опция при работе с массивами