delphi 编的小程序有点问题。。。。

varf:textfile;a:string;beginif opendialog1.Execute thenbeginmemo1.Clear ;assignfile(f,opendialog1.filename);reset(f);while not eof(f) dobeginapplication.ProcessMessages;read(f,a);memo1.Lines.Add(a);end;closefile(f);end;我用了一个opendialog 一个button一个memo 想从文本中读东西 但是为甚么在文本中两行中有一行空的 程序就死了想退都退步出来啊 ，如果不空格就能正常执行 为什么啊？ 收起