关于delphi调用vc生成dll的问题。我用vc生成的dll，delphi调用会报错，但是一直找不到问题所在，请大家进来帮我看看。
#define _TM_OS2 
#include "stdafx.h" 
#include "atmi.h" 

bool WINAPI DllMain( HMODULE hModule, DWORD dwReason, LPVOID lpvReserved ) 
{ 
      return TRUE; 
} 

LRESULT WINAPI TpStrCall1(char *ServiceName, char *Str) 
{ 
MessageBox( 0, ServiceName, "信息！", 0 ); 
MessageBox( 0, Str, "信息！", 0 ); 
return(0); 
} 

LRESULT WINAPI TpStrCall(char *ServiceName, char *SndStr, char *RevStr) 
{ 
char *sendbuf, *rcvbuf; 
long rcvlen; 
int  ret; 

if (strlen(SndStr) > 300) 
{ 
MessageBox( 0, "字符串超出指定长度！", "错误！", 0 ); 
return(tperrno); 
} 

if (tpinit((TPINIT *) NULL) == -1) 
{ 
MessageBox( 0, "连接初始化错误！", "错误！", 0 ); 
return(tperrno); 
} 

if((sendbuf = (char *) tpalloc("STRING", NULL, sizeof(SndStr))) == NULL) 
{ 
MessageBox( 0, "分配发送字符串出错!", "错误！", 0 ); 
tpterm(); 
return(tperrno); 
} 

if((rcvbuf = (char *) tpalloc("STRING", NULL, sizeof(SndStr)*2)) == NULL) 
{ 
MessageBox( 0, "分配接收字符串出错!", "错误！", 0 ); 
tpfree(sendbuf); 
tpterm(); 
return(tperrno); 
} 

strcpy(sendbuf, SndStr); 

ret = tpcall(ServiceName, (char *)sendbuf, 0, (char **)&rcvbuf, &rcvlen, (long)0); 
if(ret == -1) 
{ 
MessageBox( 0, "tpcall失败！", "错误！", 0 ); 
tpfree(sendbuf); 
tpfree(rcvbuf); 
tpterm(); 
return(tperrno); 
} 

strcpy(RevStr, rcvbuf); 
tpfree(sendbuf); 
tpfree(rcvbuf); 
tpterm(); 
return(0); 
} 

LRESULT WINAPI check_newno(char *newno, int flag) 
{ 
  int m, len; 
  int i, j, k, l; 

  j = 0; 
  len = strlen(newno) - 1; 
  m = (len - 1) % 2; 
  
  for( i = len - 1; i >= 0; i-- ) 
  { 
      if(newno[i] > '9' || newno[i] < '0') 
return -1; 
          if( i%2 == m ) 
              l = (newno[i] - '0') * 2; 
          else 
              l = newno[i] - '0'; 
          j = j + l / 10 + l % 10; 
    } 

    j = j % 10; 

    if( j == 0 ) 
        j = 10; 

    k = 10 - j; 
    
    if(flag == TRUE) 
    { 
          if ( (char) newno[len] == (char) ('0' + k) ) 
              return 0; 
          else 
              return -1; 
    } 
    else 
    { 
          newno[len]  = '0' + k; 
          return 0; 
    } 

} 
delphi调用程序如下: 
  function TpStrCall(ServName: pChar; SndStr: pChar; RevStr: pChar): integer; 
    stdcall; external 'TuxAPI.dll'; 
  function check_newno(newno: PChar; flag: Integer): integer; 
    stdcall; external 'TuxAPI.dll'; 
  function MacHash(inputstr: PChar; outputstr: PChar; flat: PChar): integer;