很简单的代码，关于查找的，可就是不知道异常在哪里？哪位高手能停下来帮小弟我看一眼

很简单的代码，关于查找的，可就是不知道错误在哪里？谁能停下来帮我看一眼
在表中安Sno查找学生的信息，让找到的全部的信息分行显示在Memo中

TLocateOptions   opt;
Form1-> ADOTable1-> First();
if(   Form1-> ADOTable1-> Locate( "Sno ",   Edit1-> Text,   opt)   )
{     ShowMessage( "登陆成功！ ");
      //学生个人的基本信息
      Edit1-> Clear();
      Memo1-> Lines-> Strings[0]= "Sno： "+Form1-> ADOTable1-> Fields-> Fields[0]-> AsString;
      Memo1-> Lines-> Strings[1]= "Sname： "+Form1-> ADOTable1-> Fields-> Fields[1]-> AsString;
      Memo1-> Lines-> Strings[2]= "Ssex： "+Form1-> ADOTable1-> Fields-> Fields[2]-> AsString;
      Memo1-> Lines-> Strings[3]= "Sage： "+Form1-> ADOTable1-> Fields-> Fields[3]-> AsString;
      Memo1-> Lines-> Strings[4]= "Sdept： "+Form1-> ADOTable1-> Fields-> Fields[4]-> AsString;
      Memo1-> Lines-> Strings[5]= "Sbanji： "+Form1-> ADOTable1-> Fields-> Fields[5]-> AsString;
      Memo1-> Lines-> Strings[6]= "Schushengriqi： "+Form1-> ADOTable1-> Fields-> Fields[6]-> AsString;
      Memo1-> Lines-> Strings[7]= "Sbeizhu： "+Form1-> ADOTable1-> Fields-> Fields[7]-> AsString;
      Memo1-> Lines-> Strings[8]= "Szongxuefen： "+Form1-> ADOTable1-> Fields-> Fields[8]-> AsString;
      Memo1-> Lines-> Strings[9]= "Spass： "+Form1-> ADOTable1-> Fields-> Fields[9]-> AsString;
为什么只是memo的第一行显示一个找到的学号（说明定位正确），而其他的行没有内容了，谁能告诉我了？？？

[解决办法]
稍微修改一下：

if( Form1-> ADOTable1-> Locate( "Sno ", Edit1-> Text, opt) )
{ ShowMessage( "登陆成功！ ");
//学生个人的基本信息
Edit1-> Clear();
Memo1-> Lines-> Add( "Sno： "+Form1-> ADOTable1-> Fields-> Fields[0]-> AsString);
Memo1-> Lines-> Add( "Sname： "+Form1-> ADOTable1-> Fields-> Fields[1]-> AsString);
Memo1-> Lines-> Add( "Ssex： "+Form1-> ADOTable1-> Fields-> Fields[2]-> AsString);
Memo1-> Lines-> Add( "Sage： "+Form1-> ADOTable1-> Fields-> Fields[3]-> AsString);
Memo1-> Lines-> Add( "Sdept： "+Form1-> ADOTable1-> Fields-> Fields[4]-> AsString);
Memo1-> Lines-> Add( "Sbanji： "+Form1-> ADOTable1-> Fields-> Fields[5]-> AsString);
Memo1-> Lines-> Add( "Schushengriqi： "+Form1-> ADOTable1-> Fields-> Fields[6]-> AsString);
Memo1-> Lines-> Add( "Sbeizhu： "+Form1-> ADOTable1-> Fields-> Fields[7]-> AsString);
Memo1-> Lines-> Add( "Szongxuefen： "+Form1-> ADOTable1-> Fields-> Fields[8]-> AsString);
Memo1-> Lines-> Add( "Spass： "+Form1-> ADOTable1-> Fields-> Fields[9]-> AsString);
}