DelhiでWeb参照をするとこんなソースが出来上がります。

長いので、遅い回線の人はごめんなさい。

//------------------------------------------------------------------------------
// <autogenerated>
//     This code was generated by a tool.
//     Runtime Version: 1.1.4322.573
//
//     Changes to this file may cause incorrect behavior and will be lost if 
//     the code is regenerated.
// </autogenerated>
//------------------------------------------------------------------------------

// 
// このソース コードは wsdl によって自動生成されました。Version=1.1.4322.573 です。
// 
unit localhost1.Bookshelf;

interface

uses System.Diagnostics, 
  System.Xml.Serialization, 
  System.Web.Services.Protocols, 
  System.ComponentModel, System.Web.Services;

type
  Book = class;
  TArrayOfBook = array of Book;
  /// <remarks/>
  [System.Diagnostics.DebuggerStepThroughAttribute]
  [System.ComponentModel.DesignerCategoryAttribute('code')]
  [System.Web.Services.WebServiceBindingAttribute(Name='BookshelfSoapBinding', Namespace='h' +
  'ttp://localhost:8080/s2-axis-examples/services/Bookshelf')]
  BookshelfImplService = class(System.Web.Services.Protocols.SoapHttpClientProtocol)
    /// <remarks/>
  public
    constructor Create;
    /// <remarks/>
    [System.Web.Services.Protocols.SoapRpcMethodAttribute('', RequestNamespace='h' +
    'ttp://ex03.examples.axis.seasar.org', ResponseNamespace='http://localho' +
    'st:8080/s2-axis-examples/services/Bookshelf')]
    procedure addBook(_book: Book);
    /// <remarks/>
    function BeginaddBook(_book: Book; callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    procedure EndaddBook(asyncResult: System.IAsyncResult);
    /// <remarks/>
    [System.Web.Services.Protocols.SoapRpcMethodAttribute('', RequestNamespace='h' +
    'ttp://ex03.examples.axis.seasar.org', ResponseNamespace='http://localho' +
    'st:8080/s2-axis-examples/services/Bookshelf')]
    [result: System.Xml.Serialization.SoapElementAttribute('getBookReturn')]
    function getBook(isbn: string): Book;
    /// <remarks/>
    function BegingetBook(isbn: string; callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    function EndgetBook(asyncResult: System.IAsyncResult): Book;
    /// <remarks/>
    [System.Web.Services.Protocols.SoapRpcMethodAttribute('', RequestNamespace='h' +
    'ttp://ex03.examples.axis.seasar.org', ResponseNamespace='http://localho' +
    'st:8080/s2-axis-examples/services/Bookshelf')]
    [result: System.Xml.Serialization.SoapElementAttribute('getBooksReturn')]
    function getBooks: TArrayOfBook;
    /// <remarks/>
    function BegingetBooks(callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    function EndgetBooks(asyncResult: System.IAsyncResult): TArrayOfBook;
  end;
  
  /// <remarks/>
  [System.Xml.Serialization.SoapTypeAttribute('Book', 'http://ex03.examples.' +
  'axis.seasar.org')]
  Book = class
    /// <remarks/>
  public
    author: string;
    /// <remarks/>
    isbn: string;
    /// <remarks/>
    title: string;
  end;
  
implementation

{$AUTOBOX ON}
{$HINTS OFF}
{$WARNINGS OFF}

/// <remarks/>
constructor BookshelfImplService.Create;
begin
  inherited Create;
  Self.Url := 'http://localhost:8080/s2-axis-examples/services/Bookshelf';
end;

/// <remarks/>
procedure BookshelfImplService.addBook(_book: Book);
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Self.Invoke('addBook', TArrayOfSystem_Object.Create(_book));
end;

/// <remarks/>
function BookshelfImplService.BeginaddBook(_book: Book; callback: System.AsyncCallback; 
  asyncState: System.Object): System.IAsyncResult;
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Result := Self.BeginInvoke('addBook', TArrayOfSystem_Object.Create(_book), 
      callback, asyncState);
end;

/// <remarks/>
procedure BookshelfImplService.EndaddBook(asyncResult: System.IAsyncResult);
begin
  Self.EndInvoke(asyncResult);
end;

/// <remarks/>
function BookshelfImplService.getBook(isbn: string): Book;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.Invoke('getBook', TArrayOfSystem_Object.Create(isbn));
  Result := (Book(results[0]));
end;

/// <remarks/>
function BookshelfImplService.BegingetBook(isbn: string; callback: System.AsyncCallback; 
  asyncState: System.Object): System.IAsyncResult;
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Result := Self.BeginInvoke('getBook', TArrayOfSystem_Object.Create(isbn), callback, 
      asyncState);
end;

/// <remarks/>
function BookshelfImplService.EndgetBook(asyncResult: System.IAsyncResult): Book;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.EndInvoke(asyncResult);
  Result := (Book(results[0]));
end;

/// <remarks/>
function BookshelfImplService.getBooks: TArrayOfBook;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.Invoke('getBooks', New(TArrayOfSystem_Object, 0));
  Result := (TArrayOfBook(results[0]));
end;

/// <remarks/>
function BookshelfImplService.BegingetBooks(callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Result := Self.BeginInvoke('getBooks', New(TArrayOfSystem_Object, 0), callback, 
      asyncState);
end;

/// <remarks/>
function BookshelfImplService.EndgetBooks(asyncResult: System.IAsyncResult): TArrayOfBook;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.EndInvoke(asyncResult);
  Result := (TArrayOfBook(results[0]));
end;

end.