if filename.Text ='' then
begin
MessageDlg('请选择文件', mtError, [mbOk], 0);
filename.SetFocus你有一个filename 的tedit 和 filename 变量
把tedit 改名delphi 不区分大小写
begin
MessageDlg('请选择文件', mtError, [mbOk], 0);
filename.SetFocus你有一个filename 的tedit 和 filename 变量
把tedit 改名delphi 不区分大小写
用CreateComObject自己创建吧