VB在98 xp调用成功; 但DELPHI在98下出问题 请帮忙

Question

dll c形式：
BOOL Send (char * lpDi , char * lpSMS );
// -- Input: lpDi-> 号码(ASCII + \0)
//       lpSMS-> 内容(ASCII +\0)
// -- Format: !GM:YYMMMM
// -- return:  TRUE(1) or FALSE(0)以下程序在XP下无问题，在98下出问题  a:=o至9的一位string    列如  0，1，2，8
  b:=>10以上的>两位的string  列如 10，55  phoneNum:=138xxxxxxxx
  selectstr16:='!GM:'+'81a'+#0;
  f:=Send(pchar(phoneNum),pchar(selectstr16));  // 成功f=1   phoneNum:=138xxxxxxxx
  selectstr16:='!GM:'+'81b'+#0;
  f:=Send(pchar(phoneNum),pchar(selectstr16));  //失败f=0  why?
該dll能在98下運行!!VB调用  成功 但DELPHI出问题 请帮忙
Private Sub cmdSend_Click()
    Dim b As Boolean
    Dim code As String
    Dim msg As String
    code = txtDi.Text
    msg = txtSMS.Text
    
        b = SendInformation(code, msg)
   
    If b = False Then
        MsgBox "失败", vbInformation, "消息"
    Else
        MsgBox "成功！", vbInformation, "消息"
    End If
End Sub