谁看过李维的《Delphi 5.X ADO_MTS_COM+高级程序设计篇》这本书？

书的第九章中，关于更新数据库的一段代码，在mts中用As_Applyupdates更新数据，这段的代码对么？为什么编译不过去，另外，书中也没有提到UPdata的客户端代码怎么写，谁知道。
procedure TmtsUpdateCoorObj.UpdateBooks(vDatas: OleVariant;iMaxError: Integer;var iErrorCount: Integer);
var
  ServerObj : IAppServer;
  OwnerData : OleVariant;
begin
  try
    ServerObj := FMyDM.dcomcBooks.AppServer as IAppServer;
    IAppServer.AS_Applyupdates('dspBooks', vDatas, iMaxError,iErrorCount, OnwerData);
    SetComplete;
  except
    SetAbort;
  end;
end;