WebService开发实例2-Delphi调用WS的DLL

c#写的WebService没问题，Delphi通过窗体调用WebService也没问题，现在需要写成DLL来调用WebSerice（因为要给别人用啊！）

DLL代码：

library sLogin;

uses
  SysUtils, ActiveX,
  Classes,
  shulibLogin in 'shulibLogin.pas';

Function shulib_Login(pers_no,password:String):integer;stdcall;
var
  i:integer;
begin
   coinitialize(nil);
 try
    i:=GetshulibLoginSoap.CheckUserLogin(Trim(pers_no),Trim(password));
  except
    i:=6;
  end;
  Result := i;
 CoUnInitialize();
end;
{$R *.res}

exports
    shulib_Login;
begin