delphi调用VC的DLL，传入char* 对char*中的内容进行更改

VC代码
int __stdcall change(char* msg)
{
  msg = "123";
  return 0;
}

function change(msg:pchar):integer;stdcall;external 'cz.dll'

procedure TForm1.Button1Click(Sender: TObject);
var
 msg:pchar;
begin
 msg := pchar('')
 change(msg);
end;

这里调用后，msg的内容还是空，该怎么处理？
[解决办法]
msg := pchar('') // 这句的意思是把char指针指向一个空字符常量，常量如何能被修改