如何定义这个程序中的字段？ ( 积分: 30 )

我有如下的程序：
procedure TForm4.Button10Click(Sender: TObject);
var
LX,BH,i:integer;
begin
if DBGrid6.Fields[0].IsNull then
begin
MessageBox(handle,'没有试题不能加入!','加入错误',MB_OK or MB_ICONERROR);
exit;
end;
LX:=DBGrid6.Fields[1].AsInteger;
BH:=DBGrid6.Fields[0].AsInteger;
for i:=0 to STTypeID.Count-1 do
begin
if(StrToInt(STTypeID.Strings)=LX)and(StrToInt(STBH.Strings=BH)then
begin
MessageBox(handle,'要加入的试题已经存在了!','加入错误',MB_OK or

MB_ICONERROR);
exit;
end;
end;
STTypeID.Add(IntToStr(LX));//记下试题类型
STBH.Add(IntToStr(BH));//记下试题编号
STND.Add(ST_DBG.Field[4].AsString);//记下试题难度
//增加选择题数量
if RadioButton1.Checked then XZTSL_FSE.text:=inttostr(strtoint(XZTSL_FSE.text)+1);
//增加填空题数量
if RadioButton2.Checked then TKTSL_FSE.text:=inttostr(strtoint(TKTSL_FSE.text)+1);
//增加简答题数量
if RadioButton3.Checked then JDTSL_FSE.text:=inttostr(strtoint(JDTSL_FSE.text)+1);
//增加原理论述题数量
if RadioButton4.Checked then CXSJTSL_FSE.text:=inttostr(strtoint(CXSJTSL_FSE.text)+1);
MessageBox(handle,'这道试题已经成功加入!','添加成功',MB_OK or MB_ICONERROR);
ADOQuery3.Next;
//btnSave.Enabled:=true;

end;

运行时，其中的STTypeID,STBH,STND总是提示没有定义，如何定义它们才比较合适呢？
谢谢！

我有如下的程序：
procedure TForm4.Button10Click(Sender: TObject);
var
LX,BH,i:integer;
begin
if DBGrid6.Fields[0].IsNull then
begin
MessageBox(handle,'没有试题不能加入!','加入错误',MB_OK or MB_ICONERROR);
exit;
end;
LX:=DBGrid6.Fields[1].AsInteger;
BH:=DBGrid6.Fields[0].AsInteger;
for i:=0 to STTypeID.Count-1 do
begin
if(StrToInt(STTypeID.Strings)=LX)and(StrToInt(STBH.Strings=BH)then
begin
MessageBox(handle,'要加入的试题已经存在了!','加入错误',MB_OK or

MB_ICONERROR);
exit;
end;
end;
STTypeID.Add(IntToStr(LX));//记下试题类型
STBH.Add(IntToStr(BH));//记下试题编号
STND.Add(ST_DBG.Field[4].AsString);//记下试题难度
//增加选择题数量
if RadioButton1.Checked then XZTSL_FSE.text:=inttostr(strtoint(XZTSL_FSE.text)+1);
//增加填空题数量
if RadioButton2.Checked then TKTSL_FSE.text:=inttostr(strtoint(TKTSL_FSE.text)+1);
//增加简答题数量
if RadioButton3.Checked then JDTSL_FSE.text:=inttostr(strtoint(JDTSL_FSE.text)+1);
//增加原理论述题数量
if RadioButton4.Checked then CXSJTSL_FSE.text:=inttostr(strtoint(CXSJTSL_FSE.text)+1);
MessageBox(handle,'这道试题已经成功加入!','添加成功',MB_OK or MB_ICONERROR);
ADOQuery3.Next;
//btnSave.Enabled:=true;

end;

运行时，其中的STTypeID,STBH,STND总是提示没有定义，如何定义它们才比较合适呢？
谢谢！