怎么用这种方法打开外部程序？(50分)

大家好！我又来打扰大家了<br><br>我现在想做一个东西，就是点击Panel打开相应的程序。而这个程序的路径是在程序运行后添加进去的。<br>我现在想用<br>i:string;<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>opendialog1.Execute;<br>edit1.Text:=opendialog1.filename;<br>i:=edit1.Text;<br>end;<br>procedure TForm1.Panel1Click(Sender: TObject);<br>begin<br>winexec('i',sw_shownormal);<br>end;<br><br>但是不行！请大家帮帮忙！

procedure TForm1.Button1Click(Sender: TObject);<br>if Opendialog1.Execute then<br> &nbsp;begin<br> &nbsp; &nbsp;Edit1.Text := Opendialog1.FileName;<br> &nbsp; &nbsp;i := Edit1.Text;<br> &nbsp;end;<br>end;<br>procedure TForm1.Panel1Click(Sender: TObject);<br>begin<br> &nbsp;WinExec(pchar(i), sw_shownormal);<br>end;

谢谢！能不能给我解释一下！新手不懂谢谢