关于记录数组,为什么我的LISTBOX得不到结果?

Question

Type
  smsrecord=record
   xm:string[12];
   nl:string[3];
   zc:string[10];
end;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var
  sms:smsrecord;
  smsfile:file of smsrecord;
begin
  assignfile(smsfile,'sms.txt');
  reset(smsfile);
  while not eof(smsfile) do
  begin
   read(smsfile,sms);
   listbox1.Items.add(sms.xm+sms.nl+sms.zc);
   end;
  closefile(smsfile);
  end;==================================SMS.TXT内容如下================================
qq 2 12
23 2 de
d 3 d
=================================================================================procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.add('gukgjjgjk');
end;
可以看见Button2Click的'gukgjjgjk',我想是Button1Click出了问题

Answer 1

我是希望将一个TXT文件，插入数据库中。格式如下：
qq 2 12
23 2 de
d 3 d
想来只有用记录数组的方式了，但是似乎行不通呀

Answer 2

难道记录数组只能读取sms.xm为12位  sms.nl为3位  sms.zc为10位的字符吗?小于不可以吗? 
   
   xm:string[12];
   nl:string[3];
   zc:string[10];