C++传地址转成delphi

现有一个C++的demo程序，里面有这样一个函数声明：
int STDCALL PlayerExtProc(HPLAYER hPlayer, unsigned int nType, unsigned int nParam1, unsigned int nParam2);
在C++de demo中调用函数时是这样写的：
PlayerExtProc(m_hPlayer，101, (unsigned int)"admin", (unsigned int)"admin");


我转成delphi是这样的,声明：
function PlayerExtProc(hPlayer:HPLAYER;nType:integer;nParam1:integer;nParam2:integer):integer;stdcall;external 'XXX.dll';
这样调用：
var 
  s1,s2:string;
  s1:='admin';
  s2:='admin';
  PlayerExtProc(m_hPlayer,101,integer(@s1),integer(@s2));

但是这样调用不行，求达人指教，谢谢啦！

var  
  s1,s2:pchar;
  s1:='admin';
  s2:='admin';
  PlayerExtProc(m_hPlayer,101,integer(s1),integer(s2));

学习了。谢谢1楼。