Delphi 7自帶例子Pooler中的問題

在Pooler中下面這段代碼很明顯是Delphi自動產生的， 但是我不知道執行什麼操作
會自動生成這段代碼，其他自動生成代碼我都知道是通過什麼操作產生的

/ *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TPooledRDM
// Help String : CoClass for the RDM that is to be pooled.
// Default Interface: IPooledRDM
// Def. Intf. DISP? : No
// Event Interface: 
// TypeFlags : (2) CanCreate
// *********************************************************************//
  TPooledRDM = class(TOleServer)
  private
  FIntf: IPooledRDM;
  function GetDefaultInterface: IPooledRDM;

  protected
  procedure InitServerData; override;
  public
  procedure Connect; override;
  procedure Disconnect; override;
  // --------------
  // --------------
  function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; 
  MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant;
  function AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; 
  Options: Integer; const CommandText: WideString; 
  var Params: OleVariant; var OwnerData: OleVariant): OleVariant;
  function AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant;
  function AS_GetProviderNames: OleVariant;
  function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant;
  function AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; 
  var OwnerData: OleVariant): OleVariant;
  procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; 
  var Params: OleVariant; var OwnerData: OleVariant);
  // --------------
  property DefaultInterface: IPooledRDM read GetDefaultInterface;

菜单 project 下面的 Import Type Library