这段代码为什么出错？？？在线等待？

procedure TForm1.DBText4Click(Sender: TObject);
  var
    str:string;
begin
    str:=dbtext4.Field.asstring;
    shellexecute(handle,nil,+str+,'','',sw_show);//到这行出错了。
end;
  如果是shellexecute,不允许用  string 型，该怎么改为 pchar 类型。