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

参数配置没错提示：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；我是看了半天，也没有找出原因来。
------解决方案--------------------
估计还有个不要参数的SendSMS吧？