delphi调用vc dll的问题

vc生成的dll会报初始化失败的错误。用了depends会报“至少有一个需要的隐性或转发依赖函数没找到。”的错误，研究了很久还是没有解决，请教大虾们帮帮我！提供vc程序如下
#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;  // default 'CCCB_ZFCG'
    stdcall; external 'libMac.dll';
麻烦大虾们多提意见