Ошибка List index out of bounds (8)

var
i:integer;
begin
i:=strtoint(DBText2.Caption); //определяю номер необходимой мне колонки
 sLabel2.Caption :=DBGrid8.DataSource.DataSet.Fields.Fields[i].Value; //получаю значение ячейки
end;

i:=9;

var
  Form1   :TForm1;
 
  ds,fm, otv   :string;
  ocen    :string;
  FAM,Group:string;
  Min     :integer;
  kol_v,ix:integer;
  tm      :integer;
  shet,vpr:integer;
  razn    :real;
  shifr,neshifr:string;
  cd      :integer;
  prv     :integer;
 
  
implementation
 
uses Unit2, Unit3;
 
{$R *.dfm}
 
Function Decode(S: String; Code: Integer): String;
Var t: Integer;
Begin
  For t:=1 to Length(S) Do S[t]:=Chr(Ord(S[t]) xor Code);
  Result:=S;
End;
 
procedure TForm1.N4Click(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var sob:string;
begin
sob:=('×àñ âèéøîâ !!!');
 
StatusBar1.Panels[1].Text:=' '+' '+'Ïèòàííÿ ¹'+''+IntToStr(vpr);
 
StatusBar1.Panels[0].Text:=' '+' '+'Çàëèøèëîñü ÷àñó: ' + Format('%d : %2d',[Min div 60, Min mod 60 ]);
  Dec(Min);
  if Min < 0 then
begin
timer1.enabled:=false;
MessageDlg( sob, mtInformation, [mbOk], 0);
 
Button1.Visible:=false;
ocen:='';
razn:=(shet/kol_v)*100;
      if ((razn>=0)and(razn<=49))then
      begin
      ocen:='2';
      end;
      if ((razn>=50)and(razn<=69))then
      begin
      ocen:='3';
      end;
      if ((razn>=70)and(razn<=89))then
      begin
      ocen:='4';
      end;
      if ((razn>=90)and(razn<=100))then
      begin
      ocen:='5';
      end;
 
QRLabel1.Caption:='';
QRLabel2.Caption:='';
QRLabel3.Caption:='';
QRLabel4.Caption:='';
QRLabel5.Caption:='';
QRLabel6.Caption:='';
QRLabel7.Caption:='';
QRSysData1.Caption:='';
 
QRLabel1.Caption:='Äèñöèïë³íà:'+' '+ds;
QRLabel2.Caption:='ϲÁ:'+' '+Fam;
QRLabel3.Caption:='Ãðóïà\ôàêóëüòåò:'+' '+Group;
QRLabel4.Caption:=' '+'ʳëüê³ñòü òåñòîâèõ çàïèòàíü:'+' '+IntToStr(kol_v);
QRLabel5.Caption:=' '+'ʳëüê³ñòü íàäàíèõ â³äïîâ³äåé:'+' '+IntToStr(vpr-1);
QRLabel6.Caption:=' '+'ʳëüê³ñòü â³ðíèõ â³äïîâ³äåé:'+' '+IntToStr(shet-1);
QRLabel7.Caption:=' '+'Ïðèáëèçíà îö³íêà çíàíü:'+' '+ocen;
 
QRSysData1.Caption:=DateTimeToStr(Date)+' '+TimeToStr(time);
 
N2.Enabled:=true;
SaveDialog1.FileName := FAM;
 
// Ñîõðàíåíèå ðåçóëüòàòîâ òåñòèðîâàíèÿ
SaveDialog1.FileName := FAM;
Memo1.Clear;
Memo1.Lines.Add('Äèñöèïë³íà:'+' '+ds);
Memo1.Lines.Add('');
Memo1.Lines.Add('ϲÁ:'+' '+Fam);
Memo1.Lines.Add('');
Memo1.Lines.Add('Ãðóïà\ôàêóëüòåò:'+' '+Group);
Memo1.Lines.Add('');
Memo1.Lines.Add('ʳëüê³ñòü òåñòîâèõ çàïèòàíü:'+' '+IntToStr(kol_v));
Memo1.Lines.Add('');
Memo1.Lines.Add('ʳëüê³ñòü íàäàíèõ â³äïîâ³äåé:'+' '+IntToStr(vpr-1));
Memo1.Lines.Add('');
Memo1.Lines.Add('ʳëüê³ñòü â³ðíèõ â³äïîâ³äåé:'+' '+IntToStr(shet-1));
Memo1.Lines.Add('');
Memo1.Lines.Add('Ïðèáëèçíà îö³íêà çíàíü:'+' '+ocen);
Memo1.Lines.Add('');
Memo1.Lines.Add('Äàòà:'+' '+DateToStr(date)+' '+TimeToStr(time));
 
neshifr:='';
shifr:='';
cd:=12;
neshifr:=Memo1.Text;
shifr:=Decode(neshifr,cd);
Memo1.Text:=shifr;
Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.txt');
//---------------------------------------------------------
 
PageControl1.ActivePageIndex := 2;
TabSheet1.tabvisible := False;
TabSheet2.tabvisible := false;
TabSheet3.tabvisible := true;
 
end;
 
end;
 
 
procedure TForm1.N6Click(Sender: TObject);
begin
pro.showmodal;
end;
 
procedure TForm1.N7Click(Sender: TObject);
//label gt;
var pyt:string;
    ixx,ixy :integer;
    //prv:integer;
begin
TabSheet1.TabVisible:=true;
PageControl1.ActivePageIndex:=0;
//gt:
shet:=0;
vpr:=0;
prv:=0;
 
FIO.Clear;
GRUP.Clear;
n2.Enabled:=false;
n11.Enabled:=false;
 
 
 
ADOConnection1.Connected:=false;
pyt:='';
OpenDialog1.Execute;
pyt:=OpenDialog1.FileName;
ADOConnection1.ConnectionString:=pyt;
ADOConnection1.Connected:=true;
 
ADOTable1.Active:=true;
ADOTable2.Active:=true;
ADOTable3.Active:=true;
ADOTable4.Active:=true;
ADOTable7.Active:=true;
ADOTable8.Active:=true;
 
for ixy:=1 to ADOTable4.RecordCount do
begin
ADOTable4.Delete;
ADOTable4.Next;
end;
for ixx:=1 to ADOTable3.RecordCount do
begin
ADOTable3.Delete;
ADOTable3.Next;
end;
 
 
 
ds:='';
ds:=ADOTable7.FieldByName('Íàçâàíèå äèñöèïëèíû').AsString;
kol_v:=strtoint(ADOTable7.FieldByName('Êîëè÷åñòâî âîïðîñîâ').AsString);
ix:=ADOTable1.RecordCount;
tm:=StrToInt(ADOTable7.FieldByName('Âðåìÿ').AsString);
prv:=ADOTable1.RecordCount;
 
if (kol_v>(prv-10)) then
begin
ShowMessage('Ñòðóêòóðà ÁÄ íå âåðíà, äîáàâüòå áîëüøå âîïðîñîâ');
ShowMessage('Ïðîãðàììà çàâåðøàåò ðàáîòó');
//goto gt;
close;
end else
 
 
Form1.Caption:=fm+' '+'ïî äèñöèïëèíå'+' '+'"'+ds+'"';
 
PageControl1.ActivePageIndex := 0;
TabSheet1.tabvisible := true;
TabSheet2.tabvisible := false;
TabSheet3.tabvisible := false;
 
 
end;
 
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
DBGrid1.DataSource;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
label q1;
var a:array[1..dsMaxStringSize] of integer;
    b,i,x:integer;
begin
 randomize;
 
 timer1.enabled:=true;
 Min:=tm*60;
 
 if (FIO.Text = '')and(GRUP.Text = '')  then
  begin
   ShowMessage('Çàïîâí³òü ìîëå "ϲÁ"'+#13+#10+
               ' '+#13+#10+
               'Çàïîâí³òü ìîëå Ãðóïà');
  end;
 
 if (FIO.Text <> '')and(GRUP.Text = '')  then
  begin
   ShowMessage('Çàïîâí³òü ìîëå Ãðóïà');
  end;
 
 if (FIO.Text = '')and(GRUP.Text <> '')  then
  begin
   ShowMessage('Çàïîâí³òü ìîëå "ϲÁ"');
  end;
 
 if (FIO.Text <> '')and(GRUP.Text <> '')  then
  begin
   ShowMessage('Ñòóäåíò:'+' '+FIO.Text +#13+#10+
               ' '+#13+#10+
               'Ùî íàâ÷àåòüñÿ :'+' '+GRUP.Text +#13+#10+
               ' '+#13+#10+
               'Ðîçïî÷àâ òåñòóâàííÿ');
 
  PageControl1.ActivePageIndex := 1;
  Form1.Width:=780;
form1.Height:=451;
  TabSheet1.tabvisible := false;
  TabSheet2.tabvisible := true;
 
  FAM:=FIO.Text;
  Group:=GRUP.Text;
  Button1.Visible:=true;
 
   for i:=1 to kol_v do
    begin
    b:=random(ix)+1;
    //ShowMessage(inttostr(b));
     for x:=1 to kol_v do
       if (a[i]=b) then continue
        else
         begin
          a[i]:=b;
         end;
    end;
 
     for i:=1 to kol_v do
    //if (inttostr(a[i])<>ADOTable4.FieldByName('Êîä').AsString) then
      begin
       ADOQuery1.Active := false;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Add('SELECT * FROM Âîïðîñ WHERE Êîä = '+inttostr(a[i])+' ');
       ADOQuery1.Active := true;
 
       ADOTable4.Insert;
       ADOTable4.FieldByName('Êîä').AsString:=DBGrid5.Fields[0].AsString;
       ADOTable4.FieldByName('Âîïðîñ').AsString:=DBGrid5.Fields[1].AsString;
 
       ADOTable4.FieldByName('ID').AsString:=IntToStr(i);
       ADOTable4.post;
 
 
       ADOQuery2.Active := false;
       ADOQuery2.SQL.Clear;
       ADOQuery2.SQL.Add('SELECT * FROM Âàðèàíòû WHERE Êîä = '+inttostr(a[i])+' ');
       ADOQuery2.Active := true;
 
       ADOTable3.Insert;
       ADOTable3.FieldByName('Êîä').AsString:=DBGrid5.Fields[0].AsString;
       ADOTable3.FieldByName('A').AsString:=DBGrid6.Fields[1].AsString;
       ADOTable3.FieldByName('B').AsString:=DBGrid6.Fields[2].AsString;
       ADOTable3.FieldByName('C').AsString:=DBGrid6.Fields[3].AsString;
       ADOTable3.FieldByName('D').AsString:=DBGrid6.Fields[4].AsString;
       ADOTable3.FieldByName('E').AsString:=DBGrid6.Fields[5].AsString;
       ADOTable3.FieldByName('F').AsString:=DBGrid6.Fields[6].AsString;
       ADOTable3.FieldByName('ID').AsString:=IntToStr(i);
       ADOTable3.post;
 
 
 
 
     end;
 
end;
 
 
ADOTable3.First;
ADOTable4.First;
 
 
Var1.Caption:='';
Var2.Caption:='';
Var3.Caption:='';
Var4.Caption:='';
Var5.Caption:='';
Var6.Caption:='';
 
Var1.Visible:=false;
Var2.Visible:=false;
Var3.Visible:=false;
Var4.Visible:=false;
Var5.Visible:=false;
Var6.Visible:=false;
 
if (ADOTable3.FieldByName('A').AsString<>'') then
begin
Var1.Visible:=true;
Var1.Caption:=ADOTable3.FieldByName('A').AsString;
end;
 
if (ADOTable3.FieldByName('B').AsString<>'') then
begin
Var2.Visible:=true;
Var2.Caption:=ADOTable3.FieldByName('B').AsString;
end;
 
if (ADOTable3.FieldByName('C').AsString<>'') then
begin
Var3.Visible:=true;
Var3.Caption:=ADOTable3.FieldByName('C').AsString;
end;
 
if (ADOTable3.FieldByName('D').AsString<>'') then
begin
Var4.Visible:=true;
Var4.Caption:=ADOTable3.FieldByName('D').AsString;
end;
 
if (ADOTable3.FieldByName('E').AsString<>'') then
begin
Var5.Visible:=true;
Var5.Caption:=ADOTable3.FieldByName('E').AsString;
end;
 
if (ADOTable3.FieldByName('F').AsString<>'') then
begin
Var6.Visible:=true;
Var6.Caption:=ADOTable3.FieldByName('F').AsString;
end;
 
 
inc(vpr);
inc(shet);
 
end;
 
 
 
procedure TForm1.N11Click(Sender: TObject);
var
ixxx,ixyy :integer;
begin
shet:=0;
vpr:=0;
prv:=0;
 
FIO.Clear;
GRUP.Clear;
n2.Enabled:=false;
 
// Î÷èñòêà îò÷åòà
QRLabel1.Caption:='';
QRLabel2.Caption:='';
QRLabel3.Caption:='';
QRLabel4.Caption:='';
QRLabel5.Caption:='';
QRLabel6.Caption:='';
QRLabel7.Caption:='';
QRSysData1.Caption:='';
//------------------------
 
// Î÷èñòêà âàðèàíòîâ îòâåòîâ
Var1.Caption:='';
Var2.Caption:='';
Var3.Caption:='';
Var4.Caption:='';
Var5.Caption:='';
Var6.Caption:='';
//--------------------
 
DBText1.Visible:=true;
Var1.Visible:=false;
Var2.Visible:=false;
Var3.Visible:=false;
Var4.Visible:=false;
Var5.Visible:=false;
Var6.Visible:=false;
Button1.Visible:=true;
 
for ixyy:=1 to ADOTable4.RecordCount do
begin
ADOTable4.Delete;
ADOTable4.Next;
end;
for ixxx:=1 to ADOTable3.RecordCount do
begin
ADOTable3.Delete;
ADOTable3.Next;
end;
 
PageControl1.ActivePageIndex := 0;
TabSheet1.tabvisible := true;
TabSheet2.tabvisible := false;
TabSheet3.tabvisible := false;
end;
 
procedure TForm1.sSpeedButton3Click(Sender: TObject);
 var
i,a:integer;
begin
i:=strtoint(DBText2.Caption); //îïðåäåëÿþ íîìåð íåîáõîäèìîé ìíå êîëîíêè
 sLabel2.Caption :=DBGrid8.DataSource.DataSet.Fields.Fields[i].Value; //ïîëó÷àþ çíà÷åíèå ÿ÷åéêèend;
  end;
end.

  sLabel2.Caption :=DBGrid8.DataSource.DataSet.Fields[0].Value;

 inc(shet);