shellexecute 运行问题请大伙帮帮忙

代码如下：
procedure tform1.runprogram;
var
  I:integer;
  path:PCHAr;
begin

  I:=listview1.ItemIndex;
  if I>=0 then
  begin
  path:=pchar(listview1.Items[i].SubItems.Text);

 //这只是部分代码其中listview1.items[i].subitems.text的内容为opendialog1.filename;

  ShellExecute(Handle, 'open', path, nil, nil, SW_SHOW);
  showmessage(path);
  end
  else
  exit;
end;

问题
  showmessage(path)能显示出PATH为内容（内容为一文件的路径，含文件名），但SHELLexecute不能打开该文件，将PATH参数直接改为该文件的路径名（即SHOWMESSAGE显示的内容），他就能打开了，这是怎么回事？我运行的是EXE程序.

  我想让这段代码实现的功能为：点击LISTVIEW1中的项，则打开listview1.Items[i].SubItems.Text中存储的文件，如果点击的是空白地方，则EXIT，这么简单的内容还是出错，请大家帮帮忙，看哪儿错了，或者有没有更好的办法能够达到目的，谢谢各位。

换种方式
调用其对应的打开程序来打开，例如
ShellExecute(Handle, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL);