CreateThread参数

CreateThread参数求助?
procedure Test(msg:string );
begin
  MessageBox(0,PChar(msg),'提示',MB_OK );
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  tid:cardinal;
  str1:pchar;
begin
  str1:='abcdf';
  CreateThread(nil,0,@Test,str1,0,tid);
end;

对话框弹出来是乱码。求更正。


[解决办法]
test过程 要加stdcall;亲，这是调用约定
[解决办法]
procedure Test(msg:string ); stdcall;