delphi7调用webservice(VS.net) 生成dll文件的函数调用问题

delphi7调用webservice(VS.net)在自定义dll文件中声明以下函数（delphi编写）
////////////////////////////////////////////////////////////////////////////////////
function Getdefurl(user_id:WideString;password:WideString; software:WideString; ver:WideString;group_id:WideString;creditkey:WideString;var userdata:WideString;var errmsg:WideString):integer;stdcall;////////////////////////////////////////////////////////////////////////////////////procedure TForm1.webserviceClick(Sender: TObject);
type
  TIntFunc = function(user_id:WideString;password:WideString; software:WideString; ver:WideString;group_id:WideString;creditkey:WideString;var userdata:WideString;var errmsg:WideString):integer;stdcall;
var
  Th:Thandle;
  Tf:TIntFunc;
  Tp:TFarProc;
  str1,str2:String ;
  s1,s2,s3,s4,s5,s6:String;begin
    s1:=edit1.text;
    s2:=edit2.text;
    s3:=edit3.text;
    s4:=edit4.text;
    s5:=edit5.text;
    s6:=edit6.text;  Th:=LoadLibrary('C:\WINDOWS\system32\uskydll.dll');
  if Th>0 then
  try
    Tp:=GetProcAddress(Th,PChar('Getdefurl'));
      if Tp<>nil then
      begin
      try
        Tf:=TIntFunc(Tp);        Tf(s1,s2,s3,s4,s5,s6,@str1,@str2 );
      finally
        
      end;      userdatat.caption :=str1;
      errmsgt.caption :=str2;      end
  else
    ShowMessage('Getdefurl&ordm;&macr;&Ecirc;&yacute;&Atilde;&raquo;&Oacute;&ETH;&Otilde;&Ograve;&micro;&frac12;');
  finally
    FreeLibrary(Th);
  end
else
  ShowMessage('uskydll.dll&Atilde;&raquo;&Oacute;&ETH;&Otilde;&Ograve;&micro;&frac12;');
end;
错误信息如下:
[Error] test.pas(116): Types of actual and formal var parameters must be identical
[Fatal Error] apptest.dpr(6): Could not compile used unit 'test.pas'各位大虾，请帮忙看看。