执行了打开文件，按了取消 文件未被打开 就出错了 
begin
  try
    if OpenDialog1.execute then
      Memo1.Lines.LoadFromFile(OpenDialog1.FileName)
    else
      Exit
  except

  end;
end;

本人写了个基于delphi的小程序-木子淘宝助手V1.0
有兴趣的朋友可以关注下
木子淘宝助手V1.0操作极其简单，只需点击相应按钮即可获取热卖商品相关信息！
本软件开发目的是帮助大家更快捷的选购淘宝商品，本软件所精选的商品都是人全部是人气相对较高，成交量较大的商品！愿大家都能获得性价比最高的商品，争取多赢！
http://74717.cn/mztbzs.rar

你好.我是全职网赚工作者.
如果你有时间有电脑.会打字.
想在网络上创业.请联系我.
我教你一步一步运行.
项目绝对真实.
加盟请联系 QQ908889846 
事业者请浏览资料http://www.thxt999.com/Member.asp?u_id=cdc666