SCOKET取文件?

with WindData.Db do
    begin
      close;
      sql.Clear;
      sql.Add('select FileName from T_Filenname');
      open;
      while not eof do
      begin
        sFileName:= fieldbyname('FileName').asstring;
        Comm(sFileName);//通讯程序
        next;
      end;
    end;
我想从数据库表中取出文件名，然后执行通讯程序取文件，取一个文件时可以，但表中有多条记录时（批取文件），到第二条记录时程序异常，在这间加入application.MessageBox(...)后程序正常，为什么？请帮忙指点指点．