关于winexec()的问题！！！

Question

运行以下程序，出现错误。
procedure TForm2.Button1Click(Sender: TObject);
var
  cmdChr:string;
begin
//  cmdChr:='c:\mypro\runmain.exe '+form1.query1.fieldByName('oper_cd').AsString+' '+form1.query1.fieldByName('pwd_cd').AsString ;  cmdChr:='c:\mypro\runmain.exe'  ;
  winexec(cmdChr,SW_Normal);
end;end.错误是："Error 26:Type mismatch."，请问该问题该如何解决啊？？？

Answer 1

cmdChr:='c:\mypro\runmain.exe';
???

Answer 2

var
  cmdChr:pchar;
 这样ok?

Answer 3

提示"Error 61:Invalid Type cast."，

Answer 4

本人是初学，很多地方不太明白，各位能否给出 Button1Click 的完整定义。
谢谢各位，分不够可加。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  cmdChr:string;
begin
  cmdChr:='notepad.exe'  ;
  winexec(pchar(cmdChr),SW_Normal);
end;我测试过