messagebox的问题

Question

if application.MessageBox('是否要删除上次运行的结果?','查询',MB_YesNo+MB_DEFBUTTON1+MB_IconQuestion+MB_TaskModal)<>IDNO then
        
         str4:='一共有'+Inttostr(n)+'条记录满足查询条件，是否浏览查询结果？';
       application.MessageBox(str4,'查询结果', MB_YesNo+MB_DEFBUTTON1+MB_IconQuestion+MB_TaskModal)<>IDNo then
          showMessage('ok');我的目的是要单击messagebox的是按钮来进入第二个messagebox，
但是有错误，是’pchar和string是不兼容的类型‘
应当怎么做？？
谢谢

Answer 1

application.MessageBox(PChar(str4),'查询结果', MB_YesNo+MB_DEFBUTTON1+MB_IconQuestion+MB_TaskModal)<>IDNo then

Answer 2

谢谢楼上的。
PChar(str4)
郁闷了 比较长的时间了。刚开始用delphi.