参数配置没错提示：too many actual parameters错误

明明参数没有多，相关定义函数与参数输入如下
函数定义：function SendSMS(sn,mn,ct,priority:pchar):integer; stdcall;external 'EUCPComm.dll' name 'SendSMS';参数输入：result:=SendSMS(PChar(MessagesetFrm.Edit1.Text),PChar(sendphonestr),PChar(sendmessage),PChar(MessagesetFrm.Edit2.Text));
结果在第一个PChar(MessagesetFrm.Edit1.Text),就提示参数过多错误：too many actual parameters；我是看了半天，也没有找出原因来。