DELPHI读取数据库记录就出错语句如下

Question

DELPHI读取数据库记录就出错语句
读取数据库中的记录代码如下：
procedure TSTUDSYS.List_Reocrd; //读取数据库中的所有的信息记录
var      //读取
   rec:TRec;
   ms:TMemoryStream;
begin
  listbox1.Clear;
  ms:=TMemoryStream.Create;
  ms.LoadFromFile('Student.dat');
  ms.Position := 0;
  while ms.Position < ms.Size do
    begin
     ms.Read(rec, SizeOf(rec));   //IntToStr(
//     listbox1.Items.Add(Decrypt(rec.name) + '   ' +Decrypt(rec.xb)+ '    ' + Decrypt(rec.age)+ '      ' + Decrypt(rec.yw)
//                          + '      ' + Decrypt(rec.xs)+ '      ' + Decrypt(rec.zz));
//补充显示条件
      case length(rec.name) of
       2:listbox1.Items.Add(Decrypt(rec.name)+ '             ' +Decrypt(rec.xb)+ '     ' +Decrypt(rec.age)+ '      ' +Decrypt(rec.yw)+ '      ' +Decrypt(rec.xs)+ '    ' +Decrypt(rec.zz));
       4:listbox1.Items.Add(Decrypt(rec.name)+ '         ' +Decrypt(rec.xb)+ '     ' +Decrypt(rec.age)+ '      ' +Decrypt(rec.yw)+ '      '+Decrypt(rec.xs)+ '    '+Decrypt(rec.zz));
       6:listbox1.Items.Add(Decrypt(rec.name)+ '    ' +Decrypt(rec.xb)+ '      ' +Decrypt(rec.age)+ '      ' +Decrypt(rec.yw)+ '     ' +Decrypt(rec.xs)+ '     ' +Decrypt(rec.zz));
       8:listbox1.Items.Add(Decrypt(rec.name)+ '   ' +Decrypt(rec.xb)+ '   ' +Decrypt(rec.age)+ '      ' +Decrypt(rec.yw)+ '     ' +Decrypt(rec.xs)+ '     ' +Decrypt(rec.zz));
      end;
    end;
  ms.Free;
//  First_Record;
end;

Answer 1

Decrypt()这是个解密的函数，不用管这个

Answer 2

我调试了，中断的语句就是上面给出的语句
List_Reocrd;