freepascal.compiler/packages/googleapi/src/googlecompute.pp

unit googlecompute;
{$MODE objfpc}
{$H+}

interface

uses sysutils, classes, googleservice, restbase, googlebase;

type
  
  //Top-level schema types
  TAccessConfig = Class;
  TAddress = Class;
  TAddressAggregatedList = Class;
  TAddressList = Class;
  TAddressesScopedList = Class;
  TAttachedDisk = Class;
  TAttachedDiskInitializeParams = Class;
  TAutoscaler = Class;
  TAutoscalerAggregatedList = Class;
  TAutoscalerList = Class;
  TAutoscalersScopedList = Class;
  TAutoscalingPolicy = Class;
  TAutoscalingPolicyCpuUtilization = Class;
  TAutoscalingPolicyCustomMetricUtilization = Class;
  TAutoscalingPolicyLoadBalancingUtilization = Class;
  TBackend = Class;
  TBackendService = Class;
  TBackendServiceGroupHealth = Class;
  TBackendServiceList = Class;
  TDeprecationStatus = Class;
  TDisk = Class;
  TDiskAggregatedList = Class;
  TDiskList = Class;
  TDiskMoveRequest = Class;
  TDiskType = Class;
  TDiskTypeAggregatedList = Class;
  TDiskTypeList = Class;
  TDiskTypesScopedList = Class;
  TDisksResizeRequest = Class;
  TDisksScopedList = Class;
  TFirewall = Class;
  TFirewallList = Class;
  TForwardingRule = Class;
  TForwardingRuleAggregatedList = Class;
  TForwardingRuleList = Class;
  TForwardingRulesScopedList = Class;
  THealthCheckReference = Class;
  THealthStatus = Class;
  THostRule = Class;
  THttpHealthCheck = Class;
  THttpHealthCheckList = Class;
  THttpsHealthCheck = Class;
  THttpsHealthCheckList = Class;
  TImage = Class;
  TImageList = Class;
  TInstance = Class;
  TInstanceAggregatedList = Class;
  TInstanceGroup = Class;
  TInstanceGroupAggregatedList = Class;
  TInstanceGroupList = Class;
  TInstanceGroupManager = Class;
  TInstanceGroupManagerActionsSummary = Class;
  TInstanceGroupManagerAggregatedList = Class;
  TInstanceGroupManagerList = Class;
  TInstanceGroupManagersAbandonInstancesRequest = Class;
  TInstanceGroupManagersDeleteInstancesRequest = Class;
  TInstanceGroupManagersListManagedInstancesResponse = Class;
  TInstanceGroupManagersRecreateInstancesRequest = Class;
  TInstanceGroupManagersScopedList = Class;
  TInstanceGroupManagersSetInstanceTemplateRequest = Class;
  TInstanceGroupManagersSetTargetPoolsRequest = Class;
  TInstanceGroupsAddInstancesRequest = Class;
  TInstanceGroupsListInstances = Class;
  TInstanceGroupsListInstancesRequest = Class;
  TInstanceGroupsRemoveInstancesRequest = Class;
  TInstanceGroupsScopedList = Class;
  TInstanceGroupsSetNamedPortsRequest = Class;
  TInstanceList = Class;
  TInstanceMoveRequest = Class;
  TInstanceProperties = Class;
  TInstanceReference = Class;
  TInstanceTemplate = Class;
  TInstanceTemplateList = Class;
  TInstanceWithNamedPorts = Class;
  TInstancesScopedList = Class;
  TInstancesSetMachineTypeRequest = Class;
  TLicense = Class;
  TMachineType = Class;
  TMachineTypeAggregatedList = Class;
  TMachineTypeList = Class;
  TMachineTypesScopedList = Class;
  TManagedInstance = Class;
  TManagedInstanceLastAttempt = Class;
  TMetadata = Class;
  TNamedPort = Class;
  TNetwork = Class;
  TNetworkInterface = Class;
  TNetworkList = Class;
  TOperation = Class;
  TOperationAggregatedList = Class;
  TOperationList = Class;
  TOperationsScopedList = Class;
  TPathMatcher = Class;
  TPathRule = Class;
  TProject = Class;
  TQuota = Class;
  TRegion = Class;
  TRegionList = Class;
  TResourceGroupReference = Class;
  TRoute = Class;
  TRouteList = Class;
  TScheduling = Class;
  TSerialPortOutput = Class;
  TServiceAccount = Class;
  TSnapshot = Class;
  TSnapshotList = Class;
  TSslCertificate = Class;
  TSslCertificateList = Class;
  TSubnetwork = Class;
  TSubnetworkAggregatedList = Class;
  TSubnetworkList = Class;
  TSubnetworksScopedList = Class;
  TTags = Class;
  TTargetHttpProxy = Class;
  TTargetHttpProxyList = Class;
  TTargetHttpsProxiesSetSslCertificatesRequest = Class;
  TTargetHttpsProxy = Class;
  TTargetHttpsProxyList = Class;
  TTargetInstance = Class;
  TTargetInstanceAggregatedList = Class;
  TTargetInstanceList = Class;
  TTargetInstancesScopedList = Class;
  TTargetPool = Class;
  TTargetPoolAggregatedList = Class;
  TTargetPoolInstanceHealth = Class;
  TTargetPoolList = Class;
  TTargetPoolsAddHealthCheckRequest = Class;
  TTargetPoolsAddInstanceRequest = Class;
  TTargetPoolsRemoveHealthCheckRequest = Class;
  TTargetPoolsRemoveInstanceRequest = Class;
  TTargetPoolsScopedList = Class;
  TTargetReference = Class;
  TTargetVpnGateway = Class;
  TTargetVpnGatewayAggregatedList = Class;
  TTargetVpnGatewayList = Class;
  TTargetVpnGatewaysScopedList = Class;
  TTestFailure = Class;
  TUrlMap = Class;
  TUrlMapList = Class;
  TUrlMapReference = Class;
  TUrlMapTest = Class;
  TUrlMapValidationResult = Class;
  TUrlMapsValidateRequest = Class;
  TUrlMapsValidateResponse = Class;
  TUsageExportLocation = Class;
  TVpnTunnel = Class;
  TVpnTunnelAggregatedList = Class;
  TVpnTunnelList = Class;
  TVpnTunnelsScopedList = Class;
  TZone = Class;
  TZoneList = Class;
  TAccessConfigArray = Array of TAccessConfig;
  TAddressArray = Array of TAddress;
  TAddressAggregatedListArray = Array of TAddressAggregatedList;
  TAddressListArray = Array of TAddressList;
  TAddressesScopedListArray = Array of TAddressesScopedList;
  TAttachedDiskArray = Array of TAttachedDisk;
  TAttachedDiskInitializeParamsArray = Array of TAttachedDiskInitializeParams;
  TAutoscalerArray = Array of TAutoscaler;
  TAutoscalerAggregatedListArray = Array of TAutoscalerAggregatedList;
  TAutoscalerListArray = Array of TAutoscalerList;
  TAutoscalersScopedListArray = Array of TAutoscalersScopedList;
  TAutoscalingPolicyArray = Array of TAutoscalingPolicy;
  TAutoscalingPolicyCpuUtilizationArray = Array of TAutoscalingPolicyCpuUtilization;
  TAutoscalingPolicyCustomMetricUtilizationArray = Array of TAutoscalingPolicyCustomMetricUtilization;
  TAutoscalingPolicyLoadBalancingUtilizationArray = Array of TAutoscalingPolicyLoadBalancingUtilization;
  TBackendArray = Array of TBackend;
  TBackendServiceArray = Array of TBackendService;
  TBackendServiceGroupHealthArray = Array of TBackendServiceGroupHealth;
  TBackendServiceListArray = Array of TBackendServiceList;
  TDeprecationStatusArray = Array of TDeprecationStatus;
  TDiskArray = Array of TDisk;
  TDiskAggregatedListArray = Array of TDiskAggregatedList;
  TDiskListArray = Array of TDiskList;
  TDiskMoveRequestArray = Array of TDiskMoveRequest;
  TDiskTypeArray = Array of TDiskType;
  TDiskTypeAggregatedListArray = Array of TDiskTypeAggregatedList;
  TDiskTypeListArray = Array of TDiskTypeList;
  TDiskTypesScopedListArray = Array of TDiskTypesScopedList;
  TDisksResizeRequestArray = Array of TDisksResizeRequest;
  TDisksScopedListArray = Array of TDisksScopedList;
  TFirewallArray = Array of TFirewall;
  TFirewallListArray = Array of TFirewallList;
  TForwardingRuleArray = Array of TForwardingRule;
  TForwardingRuleAggregatedListArray = Array of TForwardingRuleAggregatedList;
  TForwardingRuleListArray = Array of TForwardingRuleList;
  TForwardingRulesScopedListArray = Array of TForwardingRulesScopedList;
  THealthCheckReferenceArray = Array of THealthCheckReference;
  THealthStatusArray = Array of THealthStatus;
  THostRuleArray = Array of THostRule;
  THttpHealthCheckArray = Array of THttpHealthCheck;
  THttpHealthCheckListArray = Array of THttpHealthCheckList;
  THttpsHealthCheckArray = Array of THttpsHealthCheck;
  THttpsHealthCheckListArray = Array of THttpsHealthCheckList;
  TImageArray = Array of TImage;
  TImageListArray = Array of TImageList;
  TInstanceArray = Array of TInstance;
  TInstanceAggregatedListArray = Array of TInstanceAggregatedList;
  TInstanceGroupArray = Array of TInstanceGroup;
  TInstanceGroupAggregatedListArray = Array of TInstanceGroupAggregatedList;
  TInstanceGroupListArray = Array of TInstanceGroupList;
  TInstanceGroupManagerArray = Array of TInstanceGroupManager;
  TInstanceGroupManagerActionsSummaryArray = Array of TInstanceGroupManagerActionsSummary;
  TInstanceGroupManagerAggregatedListArray = Array of TInstanceGroupManagerAggregatedList;
  TInstanceGroupManagerListArray = Array of TInstanceGroupManagerList;
  TInstanceGroupManagersAbandonInstancesRequestArray = Array of TInstanceGroupManagersAbandonInstancesRequest;
  TInstanceGroupManagersDeleteInstancesRequestArray = Array of TInstanceGroupManagersDeleteInstancesRequest;
  TInstanceGroupManagersListManagedInstancesResponseArray = Array of TInstanceGroupManagersListManagedInstancesResponse;
  TInstanceGroupManagersRecreateInstancesRequestArray = Array of TInstanceGroupManagersRecreateInstancesRequest;
  TInstanceGroupManagersScopedListArray = Array of TInstanceGroupManagersScopedList;
  TInstanceGroupManagersSetInstanceTemplateRequestArray = Array of TInstanceGroupManagersSetInstanceTemplateRequest;
  TInstanceGroupManagersSetTargetPoolsRequestArray = Array of TInstanceGroupManagersSetTargetPoolsRequest;
  TInstanceGroupsAddInstancesRequestArray = Array of TInstanceGroupsAddInstancesRequest;
  TInstanceGroupsListInstancesArray = Array of TInstanceGroupsListInstances;
  TInstanceGroupsListInstancesRequestArray = Array of TInstanceGroupsListInstancesRequest;
  TInstanceGroupsRemoveInstancesRequestArray = Array of TInstanceGroupsRemoveInstancesRequest;
  TInstanceGroupsScopedListArray = Array of TInstanceGroupsScopedList;
  TInstanceGroupsSetNamedPortsRequestArray = Array of TInstanceGroupsSetNamedPortsRequest;
  TInstanceListArray = Array of TInstanceList;
  TInstanceMoveRequestArray = Array of TInstanceMoveRequest;
  TInstancePropertiesArray = Array of TInstanceProperties;
  TInstanceReferenceArray = Array of TInstanceReference;
  TInstanceTemplateArray = Array of TInstanceTemplate;
  TInstanceTemplateListArray = Array of TInstanceTemplateList;
  TInstanceWithNamedPortsArray = Array of TInstanceWithNamedPorts;
  TInstancesScopedListArray = Array of TInstancesScopedList;
  TInstancesSetMachineTypeRequestArray = Array of TInstancesSetMachineTypeRequest;
  TLicenseArray = Array of TLicense;
  TMachineTypeArray = Array of TMachineType;
  TMachineTypeAggregatedListArray = Array of TMachineTypeAggregatedList;
  TMachineTypeListArray = Array of TMachineTypeList;
  TMachineTypesScopedListArray = Array of TMachineTypesScopedList;
  TManagedInstanceArray = Array of TManagedInstance;
  TManagedInstanceLastAttemptArray = Array of TManagedInstanceLastAttempt;
  TMetadataArray = Array of TMetadata;
  TNamedPortArray = Array of TNamedPort;
  TNetworkArray = Array of TNetwork;
  TNetworkInterfaceArray = Array of TNetworkInterface;
  TNetworkListArray = Array of TNetworkList;
  TOperationArray = Array of TOperation;
  TOperationAggregatedListArray = Array of TOperationAggregatedList;
  TOperationListArray = Array of TOperationList;
  TOperationsScopedListArray = Array of TOperationsScopedList;
  TPathMatcherArray = Array of TPathMatcher;
  TPathRuleArray = Array of TPathRule;
  TProjectArray = Array of TProject;
  TQuotaArray = Array of TQuota;
  TRegionArray = Array of TRegion;
  TRegionListArray = Array of TRegionList;
  TResourceGroupReferenceArray = Array of TResourceGroupReference;
  TRouteArray = Array of TRoute;
  TRouteListArray = Array of TRouteList;
  TSchedulingArray = Array of TScheduling;
  TSerialPortOutputArray = Array of TSerialPortOutput;
  TServiceAccountArray = Array of TServiceAccount;
  TSnapshotArray = Array of TSnapshot;
  TSnapshotListArray = Array of TSnapshotList;
  TSslCertificateArray = Array of TSslCertificate;
  TSslCertificateListArray = Array of TSslCertificateList;
  TSubnetworkArray = Array of TSubnetwork;
  TSubnetworkAggregatedListArray = Array of TSubnetworkAggregatedList;
  TSubnetworkListArray = Array of TSubnetworkList;
  TSubnetworksScopedListArray = Array of TSubnetworksScopedList;
  TTagsArray = Array of TTags;
  TTargetHttpProxyArray = Array of TTargetHttpProxy;
  TTargetHttpProxyListArray = Array of TTargetHttpProxyList;
  TTargetHttpsProxiesSetSslCertificatesRequestArray = Array of TTargetHttpsProxiesSetSslCertificatesRequest;
  TTargetHttpsProxyArray = Array of TTargetHttpsProxy;
  TTargetHttpsProxyListArray = Array of TTargetHttpsProxyList;
  TTargetInstanceArray = Array of TTargetInstance;
  TTargetInstanceAggregatedListArray = Array of TTargetInstanceAggregatedList;
  TTargetInstanceListArray = Array of TTargetInstanceList;
  TTargetInstancesScopedListArray = Array of TTargetInstancesScopedList;
  TTargetPoolArray = Array of TTargetPool;
  TTargetPoolAggregatedListArray = Array of TTargetPoolAggregatedList;
  TTargetPoolInstanceHealthArray = Array of TTargetPoolInstanceHealth;
  TTargetPoolListArray = Array of TTargetPoolList;
  TTargetPoolsAddHealthCheckRequestArray = Array of TTargetPoolsAddHealthCheckRequest;
  TTargetPoolsAddInstanceRequestArray = Array of TTargetPoolsAddInstanceRequest;
  TTargetPoolsRemoveHealthCheckRequestArray = Array of TTargetPoolsRemoveHealthCheckRequest;
  TTargetPoolsRemoveInstanceRequestArray = Array of TTargetPoolsRemoveInstanceRequest;
  TTargetPoolsScopedListArray = Array of TTargetPoolsScopedList;
  TTargetReferenceArray = Array of TTargetReference;
  TTargetVpnGatewayArray = Array of TTargetVpnGateway;
  TTargetVpnGatewayAggregatedListArray = Array of TTargetVpnGatewayAggregatedList;
  TTargetVpnGatewayListArray = Array of TTargetVpnGatewayList;
  TTargetVpnGatewaysScopedListArray = Array of TTargetVpnGatewaysScopedList;
  TTestFailureArray = Array of TTestFailure;
  TUrlMapArray = Array of TUrlMap;
  TUrlMapListArray = Array of TUrlMapList;
  TUrlMapReferenceArray = Array of TUrlMapReference;
  TUrlMapTestArray = Array of TUrlMapTest;
  TUrlMapValidationResultArray = Array of TUrlMapValidationResult;
  TUrlMapsValidateRequestArray = Array of TUrlMapsValidateRequest;
  TUrlMapsValidateResponseArray = Array of TUrlMapsValidateResponse;
  TUsageExportLocationArray = Array of TUsageExportLocation;
  TVpnTunnelArray = Array of TVpnTunnel;
  TVpnTunnelAggregatedListArray = Array of TVpnTunnelAggregatedList;
  TVpnTunnelListArray = Array of TVpnTunnelList;
  TVpnTunnelsScopedListArray = Array of TVpnTunnelsScopedList;
  TZoneArray = Array of TZone;
  TZoneListArray = Array of TZoneList;
  //Anonymous types, using auto-generated names
  TAddressAggregatedListTypeitems = Class;
  TAddressesScopedListTypewarningTypedataItem = Class;
  TAddressesScopedListTypewarning = Class;
  TAutoscalerAggregatedListTypeitems = Class;
  TAutoscalersScopedListTypewarningTypedataItem = Class;
  TAutoscalersScopedListTypewarning = Class;
  TDiskAggregatedListTypeitems = Class;
  TDiskTypeAggregatedListTypeitems = Class;
  TDiskTypesScopedListTypewarningTypedataItem = Class;
  TDiskTypesScopedListTypewarning = Class;
  TDisksScopedListTypewarningTypedataItem = Class;
  TDisksScopedListTypewarning = Class;
  TFirewallTypeallowedItem = Class;
  TForwardingRuleAggregatedListTypeitems = Class;
  TForwardingRulesScopedListTypewarningTypedataItem = Class;
  TForwardingRulesScopedListTypewarning = Class;
  TImageTyperawDisk = Class;
  TInstanceAggregatedListTypeitems = Class;
  TInstanceGroupAggregatedListTypeitems = Class;
  TInstanceGroupManagerAggregatedListTypeitems = Class;
  TInstanceGroupManagersScopedListTypewarningTypedataItem = Class;
  TInstanceGroupManagersScopedListTypewarning = Class;
  TInstanceGroupsScopedListTypewarningTypedataItem = Class;
  TInstanceGroupsScopedListTypewarning = Class;
  TInstancesScopedListTypewarningTypedataItem = Class;
  TInstancesScopedListTypewarning = Class;
  TMachineTypeTypescratchDisksItem = Class;
  TMachineTypeAggregatedListTypeitems = Class;
  TMachineTypesScopedListTypewarningTypedataItem = Class;
  TMachineTypesScopedListTypewarning = Class;
  TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem = Class;
  TManagedInstanceLastAttemptTypeerrors = Class;
  TMetadataTypeitemsItem = Class;
  TOperationTypeerrorTypeerrorsItem = Class;
  TOperationTypeerror = Class;
  TOperationTypewarningsItemTypedataItem = Class;
  TOperationTypewarningsItem = Class;
  TOperationAggregatedListTypeitems = Class;
  TOperationsScopedListTypewarningTypedataItem = Class;
  TOperationsScopedListTypewarning = Class;
  TRouteTypewarningsItemTypedataItem = Class;
  TRouteTypewarningsItem = Class;
  TSubnetworkAggregatedListTypeitems = Class;
  TSubnetworksScopedListTypewarningTypedataItem = Class;
  TSubnetworksScopedListTypewarning = Class;
  TTargetInstanceAggregatedListTypeitems = Class;
  TTargetInstancesScopedListTypewarningTypedataItem = Class;
  TTargetInstancesScopedListTypewarning = Class;
  TTargetPoolAggregatedListTypeitems = Class;
  TTargetPoolsScopedListTypewarningTypedataItem = Class;
  TTargetPoolsScopedListTypewarning = Class;
  TTargetVpnGatewayAggregatedListTypeitems = Class;
  TTargetVpnGatewaysScopedListTypewarningTypedataItem = Class;
  TTargetVpnGatewaysScopedListTypewarning = Class;
  TVpnTunnelAggregatedListTypeitems = Class;
  TVpnTunnelsScopedListTypewarningTypedataItem = Class;
  TVpnTunnelsScopedListTypewarning = Class;
  TAddressListTypeitemsArray = Array of TAddress;
  TAddressesScopedListTypeaddressesArray = Array of TAddress;
  TAddressesScopedListTypewarningTypedataArray = Array of TAddressesScopedListTypewarningTypedataItem;
  TAutoscalerListTypeitemsArray = Array of TAutoscaler;
  TAutoscalersScopedListTypeautoscalersArray = Array of TAutoscaler;
  TAutoscalersScopedListTypewarningTypedataArray = Array of TAutoscalersScopedListTypewarningTypedataItem;
  TAutoscalingPolicyTypecustomMetricUtilizationsArray = Array of TAutoscalingPolicyCustomMetricUtilization;
  TBackendServiceTypebackendsArray = Array of TBackend;
  TBackendServiceGroupHealthTypehealthStatusArray = Array of THealthStatus;
  TBackendServiceListTypeitemsArray = Array of TBackendService;
  TDiskListTypeitemsArray = Array of TDisk;
  TDiskTypeListTypeitemsArray = Array of TDiskType;
  TDiskTypesScopedListTypediskTypesArray = Array of TDiskType;
  TDiskTypesScopedListTypewarningTypedataArray = Array of TDiskTypesScopedListTypewarningTypedataItem;
  TDisksScopedListTypedisksArray = Array of TDisk;
  TDisksScopedListTypewarningTypedataArray = Array of TDisksScopedListTypewarningTypedataItem;
  TFirewallTypeallowedArray = Array of TFirewallTypeallowedItem;
  TFirewallListTypeitemsArray = Array of TFirewall;
  TForwardingRuleListTypeitemsArray = Array of TForwardingRule;
  TForwardingRulesScopedListTypeforwardingRulesArray = Array of TForwardingRule;
  TForwardingRulesScopedListTypewarningTypedataArray = Array of TForwardingRulesScopedListTypewarningTypedataItem;
  THttpHealthCheckListTypeitemsArray = Array of THttpHealthCheck;
  THttpsHealthCheckListTypeitemsArray = Array of THttpsHealthCheck;
  TImageListTypeitemsArray = Array of TImage;
  TInstanceTypedisksArray = Array of TAttachedDisk;
  TInstanceTypenetworkInterfacesArray = Array of TNetworkInterface;
  TInstanceTypeserviceAccountsArray = Array of TServiceAccount;
  TInstanceGroupTypenamedPortsArray = Array of TNamedPort;
  TInstanceGroupListTypeitemsArray = Array of TInstanceGroup;
  TInstanceGroupManagerTypenamedPortsArray = Array of TNamedPort;
  TInstanceGroupManagerListTypeitemsArray = Array of TInstanceGroupManager;
  TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray = Array of TManagedInstance;
  TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray = Array of TInstanceGroupManager;
  TInstanceGroupManagersScopedListTypewarningTypedataArray = Array of TInstanceGroupManagersScopedListTypewarningTypedataItem;
  TInstanceGroupsAddInstancesRequestTypeinstancesArray = Array of TInstanceReference;
  TInstanceGroupsListInstancesTypeitemsArray = Array of TInstanceWithNamedPorts;
  TInstanceGroupsRemoveInstancesRequestTypeinstancesArray = Array of TInstanceReference;
  TInstanceGroupsScopedListTypeinstanceGroupsArray = Array of TInstanceGroup;
  TInstanceGroupsScopedListTypewarningTypedataArray = Array of TInstanceGroupsScopedListTypewarningTypedataItem;
  TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray = Array of TNamedPort;
  TInstanceListTypeitemsArray = Array of TInstance;
  TInstancePropertiesTypedisksArray = Array of TAttachedDisk;
  TInstancePropertiesTypenetworkInterfacesArray = Array of TNetworkInterface;
  TInstancePropertiesTypeserviceAccountsArray = Array of TServiceAccount;
  TInstanceTemplateListTypeitemsArray = Array of TInstanceTemplate;
  TInstanceWithNamedPortsTypenamedPortsArray = Array of TNamedPort;
  TInstancesScopedListTypeinstancesArray = Array of TInstance;
  TInstancesScopedListTypewarningTypedataArray = Array of TInstancesScopedListTypewarningTypedataItem;
  TMachineTypeTypescratchDisksArray = Array of TMachineTypeTypescratchDisksItem;
  TMachineTypeListTypeitemsArray = Array of TMachineType;
  TMachineTypesScopedListTypemachineTypesArray = Array of TMachineType;
  TMachineTypesScopedListTypewarningTypedataArray = Array of TMachineTypesScopedListTypewarningTypedataItem;
  TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray = Array of TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem;
  TMetadataTypeitemsArray = Array of TMetadataTypeitemsItem;
  TNetworkInterfaceTypeaccessConfigsArray = Array of TAccessConfig;
  TNetworkListTypeitemsArray = Array of TNetwork;
  TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
  TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
  TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
  TOperationListTypeitemsArray = Array of TOperation;
  TOperationsScopedListTypeoperationsArray = Array of TOperation;
  TOperationsScopedListTypewarningTypedataArray = Array of TOperationsScopedListTypewarningTypedataItem;
  TPathMatcherTypepathRulesArray = Array of TPathRule;
  TProjectTypequotasArray = Array of TQuota;
  TRegionTypequotasArray = Array of TQuota;
  TRegionListTypeitemsArray = Array of TRegion;
  TRouteTypewarningsItemTypedataArray = Array of TRouteTypewarningsItemTypedataItem;
  TRouteTypewarningsArray = Array of TRouteTypewarningsItem;
  TRouteListTypeitemsArray = Array of TRoute;
  TSnapshotListTypeitemsArray = Array of TSnapshot;
  TSslCertificateListTypeitemsArray = Array of TSslCertificate;
  TSubnetworkListTypeitemsArray = Array of TSubnetwork;
  TSubnetworksScopedListTypesubnetworksArray = Array of TSubnetwork;
  TSubnetworksScopedListTypewarningTypedataArray = Array of TSubnetworksScopedListTypewarningTypedataItem;
  TTargetHttpProxyListTypeitemsArray = Array of TTargetHttpProxy;
  TTargetHttpsProxyListTypeitemsArray = Array of TTargetHttpsProxy;
  TTargetInstanceListTypeitemsArray = Array of TTargetInstance;
  TTargetInstancesScopedListTypetargetInstancesArray = Array of TTargetInstance;
  TTargetInstancesScopedListTypewarningTypedataArray = Array of TTargetInstancesScopedListTypewarningTypedataItem;
  TTargetPoolInstanceHealthTypehealthStatusArray = Array of THealthStatus;
  TTargetPoolListTypeitemsArray = Array of TTargetPool;
  TTargetPoolsAddHealthCheckRequestTypehealthChecksArray = Array of THealthCheckReference;
  TTargetPoolsAddInstanceRequestTypeinstancesArray = Array of TInstanceReference;
  TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray = Array of THealthCheckReference;
  TTargetPoolsRemoveInstanceRequestTypeinstancesArray = Array of TInstanceReference;
  TTargetPoolsScopedListTypetargetPoolsArray = Array of TTargetPool;
  TTargetPoolsScopedListTypewarningTypedataArray = Array of TTargetPoolsScopedListTypewarningTypedataItem;
  TTargetVpnGatewayListTypeitemsArray = Array of TTargetVpnGateway;
  TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray = Array of TTargetVpnGateway;
  TTargetVpnGatewaysScopedListTypewarningTypedataArray = Array of TTargetVpnGatewaysScopedListTypewarningTypedataItem;
  TUrlMapTypehostRulesArray = Array of THostRule;
  TUrlMapTypepathMatchersArray = Array of TPathMatcher;
  TUrlMapTypetestsArray = Array of TUrlMapTest;
  TUrlMapListTypeitemsArray = Array of TUrlMap;
  TUrlMapValidationResultTypetestFailuresArray = Array of TTestFailure;
  TVpnTunnelListTypeitemsArray = Array of TVpnTunnel;
  TVpnTunnelsScopedListTypevpnTunnelsArray = Array of TVpnTunnel;
  TVpnTunnelsScopedListTypewarningTypedataArray = Array of TVpnTunnelsScopedListTypewarningTypedataItem;
  TZoneListTypeitemsArray = Array of TZone;
  
  { --------------------------------------------------------------------
    TAccessConfig
    --------------------------------------------------------------------}
  
  TAccessConfig = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fname : String;
    FnatIP : String;
    F_type : String;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnatIP(AIndex : Integer; const AValue : String); virtual;
    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property name : String Index 8 Read Fname Write Setname;
    Property natIP : String Index 16 Read FnatIP Write SetnatIP;
    Property _type : String Index 24 Read F_type Write Set_type;
  end;
  TAccessConfigClass = Class of TAccessConfig;
  
  { --------------------------------------------------------------------
    TAddress
    --------------------------------------------------------------------}
  
  TAddress = Class(TGoogleBaseObject)
  Private
    Faddress : String;
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fregion : String;
    FselfLink : String;
    Fstatus : String;
    Fusers : TStringArray;
  Protected
    //Property setters
    Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Setusers(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property address : String Index 0 Read Faddress Write Setaddress;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property region : String Index 48 Read Fregion Write Setregion;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property status : String Index 64 Read Fstatus Write Setstatus;
    Property users : TStringArray Index 72 Read Fusers Write Setusers;
  end;
  TAddressClass = Class of TAddress;
  
  { --------------------------------------------------------------------
    TAddressAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TAddressAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TAddressAggregatedListTypeitemsClass = Class of TAddressAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TAddressAggregatedList
    --------------------------------------------------------------------}
  
  TAddressAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TAddressAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TAddressAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TAddressAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TAddressAggregatedListClass = Class of TAddressAggregatedList;
  
  { --------------------------------------------------------------------
    TAddressList
    --------------------------------------------------------------------}
  
  TAddressList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TAddressListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TAddressListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TAddressListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TAddressListClass = Class of TAddressList;
  
  { --------------------------------------------------------------------
    TAddressesScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TAddressesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TAddressesScopedListTypewarningTypedataItemClass = Class of TAddressesScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TAddressesScopedListTypewarning
    --------------------------------------------------------------------}
  
  TAddressesScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TAddressesScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TAddressesScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TAddressesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TAddressesScopedListTypewarningClass = Class of TAddressesScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TAddressesScopedList
    --------------------------------------------------------------------}
  
  TAddressesScopedList = Class(TGoogleBaseObject)
  Private
    Faddresses : TAddressesScopedListTypeaddressesArray;
    Fwarning : TAddressesScopedListTypewarning;
  Protected
    //Property setters
    Procedure Setaddresses(AIndex : Integer; const AValue : TAddressesScopedListTypeaddressesArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TAddressesScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property addresses : TAddressesScopedListTypeaddressesArray Index 0 Read Faddresses Write Setaddresses;
    Property warning : TAddressesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TAddressesScopedListClass = Class of TAddressesScopedList;
  
  { --------------------------------------------------------------------
    TAttachedDisk
    --------------------------------------------------------------------}
  
  TAttachedDisk = Class(TGoogleBaseObject)
  Private
    FautoDelete : boolean;
    Fboot : boolean;
    FdeviceName : String;
    Findex : integer;
    FinitializeParams : TAttachedDiskInitializeParams;
    F_interface : String;
    Fkind : String;
    Flicenses : TStringArray;
    Fmode : String;
    Fsource : String;
    F_type : String;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure SetautoDelete(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setboot(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetdeviceName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetinitializeParams(AIndex : Integer; const AValue : TAttachedDiskInitializeParams); virtual;
    Procedure Set_interface(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setmode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property autoDelete : boolean Index 0 Read FautoDelete Write SetautoDelete;
    Property boot : boolean Index 8 Read Fboot Write Setboot;
    Property deviceName : String Index 16 Read FdeviceName Write SetdeviceName;
    Property index : integer Index 24 Read Findex Write Setindex;
    Property initializeParams : TAttachedDiskInitializeParams Index 32 Read FinitializeParams Write SetinitializeParams;
    Property _interface : String Index 40 Read F_interface Write Set_interface;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property licenses : TStringArray Index 56 Read Flicenses Write Setlicenses;
    Property mode : String Index 64 Read Fmode Write Setmode;
    Property source : String Index 72 Read Fsource Write Setsource;
    Property _type : String Index 80 Read F_type Write Set_type;
  end;
  TAttachedDiskClass = Class of TAttachedDisk;
  
  { --------------------------------------------------------------------
    TAttachedDiskInitializeParams
    --------------------------------------------------------------------}
  
  TAttachedDiskInitializeParams = Class(TGoogleBaseObject)
  Private
    FdiskName : String;
    FdiskSizeGb : String;
    FdiskType : String;
    FsourceImage : String;
  Protected
    //Property setters
    Procedure SetdiskName(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdiskType(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceImage(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property diskName : String Index 0 Read FdiskName Write SetdiskName;
    Property diskSizeGb : String Index 8 Read FdiskSizeGb Write SetdiskSizeGb;
    Property diskType : String Index 16 Read FdiskType Write SetdiskType;
    Property sourceImage : String Index 24 Read FsourceImage Write SetsourceImage;
  end;
  TAttachedDiskInitializeParamsClass = Class of TAttachedDiskInitializeParams;
  
  { --------------------------------------------------------------------
    TAutoscaler
    --------------------------------------------------------------------}
  
  TAutoscaler = Class(TGoogleBaseObject)
  Private
    FautoscalingPolicy : TAutoscalingPolicy;
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FselfLink : String;
    Ftarget : String;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property autoscalingPolicy : TAutoscalingPolicy Index 0 Read FautoscalingPolicy Write SetautoscalingPolicy;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
    Property target : String Index 56 Read Ftarget Write Settarget;
    Property zone : String Index 64 Read Fzone Write Setzone;
  end;
  TAutoscalerClass = Class of TAutoscaler;
  
  { --------------------------------------------------------------------
    TAutoscalerAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TAutoscalerAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TAutoscalerAggregatedListTypeitemsClass = Class of TAutoscalerAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TAutoscalerAggregatedList
    --------------------------------------------------------------------}
  
  TAutoscalerAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TAutoscalerAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TAutoscalerAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TAutoscalerAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TAutoscalerAggregatedListClass = Class of TAutoscalerAggregatedList;
  
  { --------------------------------------------------------------------
    TAutoscalerList
    --------------------------------------------------------------------}
  
  TAutoscalerList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TAutoscalerListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TAutoscalerListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TAutoscalerListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TAutoscalerListClass = Class of TAutoscalerList;
  
  { --------------------------------------------------------------------
    TAutoscalersScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TAutoscalersScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TAutoscalersScopedListTypewarningTypedataItemClass = Class of TAutoscalersScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TAutoscalersScopedListTypewarning
    --------------------------------------------------------------------}
  
  TAutoscalersScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TAutoscalersScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TAutoscalersScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TAutoscalersScopedListTypewarningClass = Class of TAutoscalersScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TAutoscalersScopedList
    --------------------------------------------------------------------}
  
  TAutoscalersScopedList = Class(TGoogleBaseObject)
  Private
    Fautoscalers : TAutoscalersScopedListTypeautoscalersArray;
    Fwarning : TAutoscalersScopedListTypewarning;
  Protected
    //Property setters
    Procedure Setautoscalers(AIndex : Integer; const AValue : TAutoscalersScopedListTypeautoscalersArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property autoscalers : TAutoscalersScopedListTypeautoscalersArray Index 0 Read Fautoscalers Write Setautoscalers;
    Property warning : TAutoscalersScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TAutoscalersScopedListClass = Class of TAutoscalersScopedList;
  
  { --------------------------------------------------------------------
    TAutoscalingPolicy
    --------------------------------------------------------------------}
  
  TAutoscalingPolicy = Class(TGoogleBaseObject)
  Private
    FcoolDownPeriodSec : integer;
    FcpuUtilization : TAutoscalingPolicyCpuUtilization;
    FcustomMetricUtilizations : TAutoscalingPolicyTypecustomMetricUtilizationsArray;
    FloadBalancingUtilization : TAutoscalingPolicyLoadBalancingUtilization;
    FmaxNumReplicas : integer;
    FminNumReplicas : integer;
  Protected
    //Property setters
    Procedure SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization); virtual;
    Procedure SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray); virtual;
    Procedure SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization); virtual;
    Procedure SetmaxNumReplicas(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetminNumReplicas(AIndex : Integer; const AValue : integer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property coolDownPeriodSec : integer Index 0 Read FcoolDownPeriodSec Write SetcoolDownPeriodSec;
    Property cpuUtilization : TAutoscalingPolicyCpuUtilization Index 8 Read FcpuUtilization Write SetcpuUtilization;
    Property customMetricUtilizations : TAutoscalingPolicyTypecustomMetricUtilizationsArray Index 16 Read FcustomMetricUtilizations Write SetcustomMetricUtilizations;
    Property loadBalancingUtilization : TAutoscalingPolicyLoadBalancingUtilization Index 24 Read FloadBalancingUtilization Write SetloadBalancingUtilization;
    Property maxNumReplicas : integer Index 32 Read FmaxNumReplicas Write SetmaxNumReplicas;
    Property minNumReplicas : integer Index 40 Read FminNumReplicas Write SetminNumReplicas;
  end;
  TAutoscalingPolicyClass = Class of TAutoscalingPolicy;
  
  { --------------------------------------------------------------------
    TAutoscalingPolicyCpuUtilization
    --------------------------------------------------------------------}
  
  TAutoscalingPolicyCpuUtilization = Class(TGoogleBaseObject)
  Private
    FutilizationTarget : double;
  Protected
    //Property setters
    Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
  Public
  Published
    Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
  end;
  TAutoscalingPolicyCpuUtilizationClass = Class of TAutoscalingPolicyCpuUtilization;
  
  { --------------------------------------------------------------------
    TAutoscalingPolicyCustomMetricUtilization
    --------------------------------------------------------------------}
  
  TAutoscalingPolicyCustomMetricUtilization = Class(TGoogleBaseObject)
  Private
    Fmetric : String;
    FutilizationTarget : double;
    FutilizationTargetType : String;
  Protected
    //Property setters
    Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
    Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
    Procedure SetutilizationTargetType(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property metric : String Index 0 Read Fmetric Write Setmetric;
    Property utilizationTarget : double Index 8 Read FutilizationTarget Write SetutilizationTarget;
    Property utilizationTargetType : String Index 16 Read FutilizationTargetType Write SetutilizationTargetType;
  end;
  TAutoscalingPolicyCustomMetricUtilizationClass = Class of TAutoscalingPolicyCustomMetricUtilization;
  
  { --------------------------------------------------------------------
    TAutoscalingPolicyLoadBalancingUtilization
    --------------------------------------------------------------------}
  
  TAutoscalingPolicyLoadBalancingUtilization = Class(TGoogleBaseObject)
  Private
    FutilizationTarget : double;
  Protected
    //Property setters
    Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
  Public
  Published
    Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
  end;
  TAutoscalingPolicyLoadBalancingUtilizationClass = Class of TAutoscalingPolicyLoadBalancingUtilization;
  
  { --------------------------------------------------------------------
    TBackend
    --------------------------------------------------------------------}
  
  TBackend = Class(TGoogleBaseObject)
  Private
    FbalancingMode : String;
    FcapacityScaler : integer;
    Fdescription : String;
    Fgroup : String;
    FmaxRate : integer;
    FmaxRatePerInstance : integer;
    FmaxUtilization : integer;
  Protected
    //Property setters
    Procedure SetbalancingMode(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcapacityScaler(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setgroup(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmaxRate(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetmaxRatePerInstance(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetmaxUtilization(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property balancingMode : String Index 0 Read FbalancingMode Write SetbalancingMode;
    Property capacityScaler : integer Index 8 Read FcapacityScaler Write SetcapacityScaler;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property group : String Index 24 Read Fgroup Write Setgroup;
    Property maxRate : integer Index 32 Read FmaxRate Write SetmaxRate;
    Property maxRatePerInstance : integer Index 40 Read FmaxRatePerInstance Write SetmaxRatePerInstance;
    Property maxUtilization : integer Index 48 Read FmaxUtilization Write SetmaxUtilization;
  end;
  TBackendClass = Class of TBackend;
  
  { --------------------------------------------------------------------
    TBackendService
    --------------------------------------------------------------------}
  
  TBackendService = Class(TGoogleBaseObject)
  Private
    Fbackends : TBackendServiceTypebackendsArray;
    FcreationTimestamp : String;
    Fdescription : String;
    Ffingerprint : String;
    FhealthChecks : TStringArray;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fport : integer;
    FportName : String;
    Fprotocol : String;
    Fregion : String;
    FselfLink : String;
    FtimeoutSec : integer;
  Protected
    //Property setters
    Procedure Setbackends(AIndex : Integer; const AValue : TBackendServiceTypebackendsArray); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure SethealthChecks(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetportName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setprotocol(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property backends : TBackendServiceTypebackendsArray Index 0 Read Fbackends Write Setbackends;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property fingerprint : String Index 24 Read Ffingerprint Write Setfingerprint;
    Property healthChecks : TStringArray Index 32 Read FhealthChecks Write SethealthChecks;
    Property id : String Index 40 Read Fid Write Setid;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property name : String Index 56 Read Fname Write Setname;
    Property port : integer Index 64 Read Fport Write Setport;
    Property portName : String Index 72 Read FportName Write SetportName;
    Property protocol : String Index 80 Read Fprotocol Write Setprotocol;
    Property region : String Index 88 Read Fregion Write Setregion;
    Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
    Property timeoutSec : integer Index 104 Read FtimeoutSec Write SettimeoutSec;
  end;
  TBackendServiceClass = Class of TBackendService;
  
  { --------------------------------------------------------------------
    TBackendServiceGroupHealth
    --------------------------------------------------------------------}
  
  TBackendServiceGroupHealth = Class(TGoogleBaseObject)
  Private
    FhealthStatus : TBackendServiceGroupHealthTypehealthStatusArray;
    Fkind : String;
  Protected
    //Property setters
    Procedure SethealthStatus(AIndex : Integer; const AValue : TBackendServiceGroupHealthTypehealthStatusArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property healthStatus : TBackendServiceGroupHealthTypehealthStatusArray Index 0 Read FhealthStatus Write SethealthStatus;
    Property kind : String Index 8 Read Fkind Write Setkind;
  end;
  TBackendServiceGroupHealthClass = Class of TBackendServiceGroupHealth;
  
  { --------------------------------------------------------------------
    TBackendServiceList
    --------------------------------------------------------------------}
  
  TBackendServiceList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TBackendServiceListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TBackendServiceListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TBackendServiceListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TBackendServiceListClass = Class of TBackendServiceList;
  
  { --------------------------------------------------------------------
    TDeprecationStatus
    --------------------------------------------------------------------}
  
  TDeprecationStatus = Class(TGoogleBaseObject)
  Private
    Fdeleted : String;
    Fdeprecated : String;
    Fobsolete : String;
    Freplacement : String;
    Fstate : String;
  Protected
    //Property setters
    Procedure Setdeleted(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdeprecated(AIndex : Integer; const AValue : String); virtual;
    Procedure Setobsolete(AIndex : Integer; const AValue : String); virtual;
    Procedure Setreplacement(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property deleted : String Index 0 Read Fdeleted Write Setdeleted;
    Property deprecated : String Index 8 Read Fdeprecated Write Setdeprecated;
    Property obsolete : String Index 16 Read Fobsolete Write Setobsolete;
    Property replacement : String Index 24 Read Freplacement Write Setreplacement;
    Property state : String Index 32 Read Fstate Write Setstate;
  end;
  TDeprecationStatusClass = Class of TDeprecationStatus;
  
  { --------------------------------------------------------------------
    TDisk
    --------------------------------------------------------------------}
  
  TDisk = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    FlastAttachTimestamp : String;
    FlastDetachTimestamp : String;
    Flicenses : TStringArray;
    Fname : String;
    Foptions : String;
    FselfLink : String;
    FsizeGb : String;
    FsourceImage : String;
    FsourceImageId : String;
    FsourceSnapshot : String;
    FsourceSnapshotId : String;
    Fstatus : String;
    F_type : String;
    Fusers : TStringArray;
    Fzone : String;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastAttachTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastDetachTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setoptions(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsizeGb(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceImage(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceImageId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceSnapshot(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceSnapshotId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
    Procedure Setusers(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property id : String Index 16 Read Fid Write Setid;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property lastAttachTimestamp : String Index 32 Read FlastAttachTimestamp Write SetlastAttachTimestamp;
    Property lastDetachTimestamp : String Index 40 Read FlastDetachTimestamp Write SetlastDetachTimestamp;
    Property licenses : TStringArray Index 48 Read Flicenses Write Setlicenses;
    Property name : String Index 56 Read Fname Write Setname;
    Property options : String Index 64 Read Foptions Write Setoptions;
    Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
    Property sizeGb : String Index 80 Read FsizeGb Write SetsizeGb;
    Property sourceImage : String Index 88 Read FsourceImage Write SetsourceImage;
    Property sourceImageId : String Index 96 Read FsourceImageId Write SetsourceImageId;
    Property sourceSnapshot : String Index 104 Read FsourceSnapshot Write SetsourceSnapshot;
    Property sourceSnapshotId : String Index 112 Read FsourceSnapshotId Write SetsourceSnapshotId;
    Property status : String Index 120 Read Fstatus Write Setstatus;
    Property _type : String Index 128 Read F_type Write Set_type;
    Property users : TStringArray Index 136 Read Fusers Write Setusers;
    Property zone : String Index 144 Read Fzone Write Setzone;
  end;
  TDiskClass = Class of TDisk;
  
  { --------------------------------------------------------------------
    TDiskAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TDiskAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TDiskAggregatedListTypeitemsClass = Class of TDiskAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TDiskAggregatedList
    --------------------------------------------------------------------}
  
  TDiskAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TDiskAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TDiskAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TDiskAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TDiskAggregatedListClass = Class of TDiskAggregatedList;
  
  { --------------------------------------------------------------------
    TDiskList
    --------------------------------------------------------------------}
  
  TDiskList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TDiskListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TDiskListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TDiskListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TDiskListClass = Class of TDiskList;
  
  { --------------------------------------------------------------------
    TDiskMoveRequest
    --------------------------------------------------------------------}
  
  TDiskMoveRequest = Class(TGoogleBaseObject)
  Private
    FdestinationZone : String;
    FtargetDisk : String;
  Protected
    //Property setters
    Procedure SetdestinationZone(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetDisk(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property destinationZone : String Index 0 Read FdestinationZone Write SetdestinationZone;
    Property targetDisk : String Index 8 Read FtargetDisk Write SettargetDisk;
  end;
  TDiskMoveRequestClass = Class of TDiskMoveRequest;
  
  { --------------------------------------------------------------------
    TDiskType
    --------------------------------------------------------------------}
  
  TDiskType = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    FdefaultDiskSizeGb : String;
    Fdeprecated : TDeprecationStatus;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FselfLink : String;
    FvalidDiskSize : String;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdefaultDiskSizeGb(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetvalidDiskSize(AIndex : Integer; const AValue : String); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property defaultDiskSizeGb : String Index 8 Read FdefaultDiskSizeGb Write SetdefaultDiskSizeGb;
    Property deprecated : TDeprecationStatus Index 16 Read Fdeprecated Write Setdeprecated;
    Property description : String Index 24 Read Fdescription Write Setdescription;
    Property id : String Index 32 Read Fid Write Setid;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property name : String Index 48 Read Fname Write Setname;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property validDiskSize : String Index 64 Read FvalidDiskSize Write SetvalidDiskSize;
    Property zone : String Index 72 Read Fzone Write Setzone;
  end;
  TDiskTypeClass = Class of TDiskType;
  
  { --------------------------------------------------------------------
    TDiskTypeAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TDiskTypeAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TDiskTypeAggregatedListTypeitemsClass = Class of TDiskTypeAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TDiskTypeAggregatedList
    --------------------------------------------------------------------}
  
  TDiskTypeAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TDiskTypeAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TDiskTypeAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TDiskTypeAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TDiskTypeAggregatedListClass = Class of TDiskTypeAggregatedList;
  
  { --------------------------------------------------------------------
    TDiskTypeList
    --------------------------------------------------------------------}
  
  TDiskTypeList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TDiskTypeListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TDiskTypeListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TDiskTypeListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TDiskTypeListClass = Class of TDiskTypeList;
  
  { --------------------------------------------------------------------
    TDiskTypesScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TDiskTypesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TDiskTypesScopedListTypewarningTypedataItemClass = Class of TDiskTypesScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TDiskTypesScopedListTypewarning
    --------------------------------------------------------------------}
  
  TDiskTypesScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TDiskTypesScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TDiskTypesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TDiskTypesScopedListTypewarningClass = Class of TDiskTypesScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TDiskTypesScopedList
    --------------------------------------------------------------------}
  
  TDiskTypesScopedList = Class(TGoogleBaseObject)
  Private
    FdiskTypes : TDiskTypesScopedListTypediskTypesArray;
    Fwarning : TDiskTypesScopedListTypewarning;
  Protected
    //Property setters
    Procedure SetdiskTypes(AIndex : Integer; const AValue : TDiskTypesScopedListTypediskTypesArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property diskTypes : TDiskTypesScopedListTypediskTypesArray Index 0 Read FdiskTypes Write SetdiskTypes;
    Property warning : TDiskTypesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TDiskTypesScopedListClass = Class of TDiskTypesScopedList;
  
  { --------------------------------------------------------------------
    TDisksResizeRequest
    --------------------------------------------------------------------}
  
  TDisksResizeRequest = Class(TGoogleBaseObject)
  Private
    FsizeGb : String;
  Protected
    //Property setters
    Procedure SetsizeGb(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property sizeGb : String Index 0 Read FsizeGb Write SetsizeGb;
  end;
  TDisksResizeRequestClass = Class of TDisksResizeRequest;
  
  { --------------------------------------------------------------------
    TDisksScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TDisksScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TDisksScopedListTypewarningTypedataItemClass = Class of TDisksScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TDisksScopedListTypewarning
    --------------------------------------------------------------------}
  
  TDisksScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TDisksScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TDisksScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TDisksScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TDisksScopedListTypewarningClass = Class of TDisksScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TDisksScopedList
    --------------------------------------------------------------------}
  
  TDisksScopedList = Class(TGoogleBaseObject)
  Private
    Fdisks : TDisksScopedListTypedisksArray;
    Fwarning : TDisksScopedListTypewarning;
  Protected
    //Property setters
    Procedure Setdisks(AIndex : Integer; const AValue : TDisksScopedListTypedisksArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TDisksScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property disks : TDisksScopedListTypedisksArray Index 0 Read Fdisks Write Setdisks;
    Property warning : TDisksScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TDisksScopedListClass = Class of TDisksScopedList;
  
  { --------------------------------------------------------------------
    TFirewallTypeallowedItem
    --------------------------------------------------------------------}
  
  TFirewallTypeallowedItem = Class(TGoogleBaseObject)
  Private
    FIPProtocol : String;
    Fports : TStringArray;
  Protected
    //Property setters
    Procedure SetIPProtocol(AIndex : Integer; const AValue : String); virtual;
    Procedure Setports(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property IPProtocol : String Index 0 Read FIPProtocol Write SetIPProtocol;
    Property ports : TStringArray Index 8 Read Fports Write Setports;
  end;
  TFirewallTypeallowedItemClass = Class of TFirewallTypeallowedItem;
  
  { --------------------------------------------------------------------
    TFirewall
    --------------------------------------------------------------------}
  
  TFirewall = Class(TGoogleBaseObject)
  Private
    Fallowed : TFirewallTypeallowedArray;
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fnetwork : String;
    FselfLink : String;
    FsourceRanges : TStringArray;
    FsourceTags : TStringArray;
    FtargetTags : TStringArray;
  Protected
    //Property setters
    Procedure Setallowed(AIndex : Integer; const AValue : TFirewallTypeallowedArray); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceRanges(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SetsourceTags(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SettargetTags(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property allowed : TFirewallTypeallowedArray Index 0 Read Fallowed Write Setallowed;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property network : String Index 48 Read Fnetwork Write Setnetwork;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property sourceRanges : TStringArray Index 64 Read FsourceRanges Write SetsourceRanges;
    Property sourceTags : TStringArray Index 72 Read FsourceTags Write SetsourceTags;
    Property targetTags : TStringArray Index 80 Read FtargetTags Write SettargetTags;
  end;
  TFirewallClass = Class of TFirewall;
  
  { --------------------------------------------------------------------
    TFirewallList
    --------------------------------------------------------------------}
  
  TFirewallList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TFirewallListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TFirewallListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TFirewallListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TFirewallListClass = Class of TFirewallList;
  
  { --------------------------------------------------------------------
    TForwardingRule
    --------------------------------------------------------------------}
  
  TForwardingRule = Class(TGoogleBaseObject)
  Private
    FIPAddress : String;
    FIPProtocol : String;
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FportRange : String;
    Fregion : String;
    FselfLink : String;
    Ftarget : String;
  Protected
    //Property setters
    Procedure SetIPAddress(AIndex : Integer; const AValue : String); virtual;
    Procedure SetIPProtocol(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetportRange(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property IPAddress : String Index 0 Read FIPAddress Write SetIPAddress;
    Property IPProtocol : String Index 8 Read FIPProtocol Write SetIPProtocol;
    Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 24 Read Fdescription Write Setdescription;
    Property id : String Index 32 Read Fid Write Setid;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property name : String Index 48 Read Fname Write Setname;
    Property portRange : String Index 56 Read FportRange Write SetportRange;
    Property region : String Index 64 Read Fregion Write Setregion;
    Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
    Property target : String Index 80 Read Ftarget Write Settarget;
  end;
  TForwardingRuleClass = Class of TForwardingRule;
  
  { --------------------------------------------------------------------
    TForwardingRuleAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TForwardingRuleAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TForwardingRuleAggregatedListTypeitemsClass = Class of TForwardingRuleAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TForwardingRuleAggregatedList
    --------------------------------------------------------------------}
  
  TForwardingRuleAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TForwardingRuleAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TForwardingRuleAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TForwardingRuleAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TForwardingRuleAggregatedListClass = Class of TForwardingRuleAggregatedList;
  
  { --------------------------------------------------------------------
    TForwardingRuleList
    --------------------------------------------------------------------}
  
  TForwardingRuleList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TForwardingRuleListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TForwardingRuleListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TForwardingRuleListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TForwardingRuleListClass = Class of TForwardingRuleList;
  
  { --------------------------------------------------------------------
    TForwardingRulesScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TForwardingRulesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TForwardingRulesScopedListTypewarningTypedataItemClass = Class of TForwardingRulesScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TForwardingRulesScopedListTypewarning
    --------------------------------------------------------------------}
  
  TForwardingRulesScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TForwardingRulesScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TForwardingRulesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TForwardingRulesScopedListTypewarningClass = Class of TForwardingRulesScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TForwardingRulesScopedList
    --------------------------------------------------------------------}
  
  TForwardingRulesScopedList = Class(TGoogleBaseObject)
  Private
    FforwardingRules : TForwardingRulesScopedListTypeforwardingRulesArray;
    Fwarning : TForwardingRulesScopedListTypewarning;
  Protected
    //Property setters
    Procedure SetforwardingRules(AIndex : Integer; const AValue : TForwardingRulesScopedListTypeforwardingRulesArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property forwardingRules : TForwardingRulesScopedListTypeforwardingRulesArray Index 0 Read FforwardingRules Write SetforwardingRules;
    Property warning : TForwardingRulesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TForwardingRulesScopedListClass = Class of TForwardingRulesScopedList;
  
  { --------------------------------------------------------------------
    THealthCheckReference
    --------------------------------------------------------------------}
  
  THealthCheckReference = Class(TGoogleBaseObject)
  Private
    FhealthCheck : String;
  Protected
    //Property setters
    Procedure SethealthCheck(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property healthCheck : String Index 0 Read FhealthCheck Write SethealthCheck;
  end;
  THealthCheckReferenceClass = Class of THealthCheckReference;
  
  { --------------------------------------------------------------------
    THealthStatus
    --------------------------------------------------------------------}
  
  THealthStatus = Class(TGoogleBaseObject)
  Private
    FhealthState : String;
    Finstance : String;
    FipAddress : String;
    Fport : integer;
  Protected
    //Property setters
    Procedure SethealthState(AIndex : Integer; const AValue : String); virtual;
    Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
    Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
    Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property healthState : String Index 0 Read FhealthState Write SethealthState;
    Property instance : String Index 8 Read Finstance Write Setinstance;
    Property ipAddress : String Index 16 Read FipAddress Write SetipAddress;
    Property port : integer Index 24 Read Fport Write Setport;
  end;
  THealthStatusClass = Class of THealthStatus;
  
  { --------------------------------------------------------------------
    THostRule
    --------------------------------------------------------------------}
  
  THostRule = Class(TGoogleBaseObject)
  Private
    Fdescription : String;
    Fhosts : TStringArray;
    FpathMatcher : String;
  Protected
    //Property setters
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Sethosts(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SetpathMatcher(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property description : String Index 0 Read Fdescription Write Setdescription;
    Property hosts : TStringArray Index 8 Read Fhosts Write Sethosts;
    Property pathMatcher : String Index 16 Read FpathMatcher Write SetpathMatcher;
  end;
  THostRuleClass = Class of THostRule;
  
  { --------------------------------------------------------------------
    THttpHealthCheck
    --------------------------------------------------------------------}
  
  THttpHealthCheck = Class(TGoogleBaseObject)
  Private
    FcheckIntervalSec : integer;
    FcreationTimestamp : String;
    Fdescription : String;
    FhealthyThreshold : integer;
    Fhost : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fport : integer;
    FrequestPath : String;
    FselfLink : String;
    FtimeoutSec : integer;
    FunhealthyThreshold : integer;
  Protected
    //Property setters
    Procedure SetcheckIntervalSec(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
    Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetrequestPath(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property checkIntervalSec : integer Index 0 Read FcheckIntervalSec Write SetcheckIntervalSec;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property healthyThreshold : integer Index 24 Read FhealthyThreshold Write SethealthyThreshold;
    Property host : String Index 32 Read Fhost Write Sethost;
    Property id : String Index 40 Read Fid Write Setid;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property name : String Index 56 Read Fname Write Setname;
    Property port : integer Index 64 Read Fport Write Setport;
    Property requestPath : String Index 72 Read FrequestPath Write SetrequestPath;
    Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
    Property timeoutSec : integer Index 88 Read FtimeoutSec Write SettimeoutSec;
    Property unhealthyThreshold : integer Index 96 Read FunhealthyThreshold Write SetunhealthyThreshold;
  end;
  THttpHealthCheckClass = Class of THttpHealthCheck;
  
  { --------------------------------------------------------------------
    THttpHealthCheckList
    --------------------------------------------------------------------}
  
  THttpHealthCheckList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : THttpHealthCheckListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : THttpHealthCheckListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : THttpHealthCheckListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  THttpHealthCheckListClass = Class of THttpHealthCheckList;
  
  { --------------------------------------------------------------------
    THttpsHealthCheck
    --------------------------------------------------------------------}
  
  THttpsHealthCheck = Class(TGoogleBaseObject)
  Private
    FcheckIntervalSec : integer;
    FcreationTimestamp : String;
    Fdescription : String;
    FhealthyThreshold : integer;
    Fhost : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fport : integer;
    FrequestPath : String;
    FselfLink : String;
    FtimeoutSec : integer;
    FunhealthyThreshold : integer;
  Protected
    //Property setters
    Procedure SetcheckIntervalSec(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
    Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetrequestPath(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property checkIntervalSec : integer Index 0 Read FcheckIntervalSec Write SetcheckIntervalSec;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property healthyThreshold : integer Index 24 Read FhealthyThreshold Write SethealthyThreshold;
    Property host : String Index 32 Read Fhost Write Sethost;
    Property id : String Index 40 Read Fid Write Setid;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property name : String Index 56 Read Fname Write Setname;
    Property port : integer Index 64 Read Fport Write Setport;
    Property requestPath : String Index 72 Read FrequestPath Write SetrequestPath;
    Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
    Property timeoutSec : integer Index 88 Read FtimeoutSec Write SettimeoutSec;
    Property unhealthyThreshold : integer Index 96 Read FunhealthyThreshold Write SetunhealthyThreshold;
  end;
  THttpsHealthCheckClass = Class of THttpsHealthCheck;
  
  { --------------------------------------------------------------------
    THttpsHealthCheckList
    --------------------------------------------------------------------}
  
  THttpsHealthCheckList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : THttpsHealthCheckListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : THttpsHealthCheckListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : THttpsHealthCheckListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  THttpsHealthCheckListClass = Class of THttpsHealthCheckList;
  
  { --------------------------------------------------------------------
    TImageTyperawDisk
    --------------------------------------------------------------------}
  
  TImageTyperawDisk = Class(TGoogleBaseObject)
  Private
    FcontainerType : String;
    Fsha1Checksum : String;
    Fsource : String;
  Protected
    //Property setters
    Procedure SetcontainerType(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsha1Checksum(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property containerType : String Index 0 Read FcontainerType Write SetcontainerType;
    Property sha1Checksum : String Index 8 Read Fsha1Checksum Write Setsha1Checksum;
    Property source : String Index 16 Read Fsource Write Setsource;
  end;
  TImageTyperawDiskClass = Class of TImageTyperawDisk;
  
  { --------------------------------------------------------------------
    TImage
    --------------------------------------------------------------------}
  
  TImage = Class(TGoogleBaseObject)
  Private
    FarchiveSizeBytes : String;
    FcreationTimestamp : String;
    Fdeprecated : TDeprecationStatus;
    Fdescription : String;
    FdiskSizeGb : String;
    Ffamily : String;
    Fid : String;
    Fkind : String;
    Flicenses : TStringArray;
    Fname : String;
    FrawDisk : TImageTyperawDisk;
    FselfLink : String;
    FsourceDisk : String;
    FsourceDiskId : String;
    FsourceType : String;
    Fstatus : String;
  Protected
    //Property setters
    Procedure SetarchiveSizeBytes(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
    Procedure Setfamily(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetrawDisk(AIndex : Integer; const AValue : TImageTyperawDisk); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceDisk(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceDiskId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceType(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property archiveSizeBytes : String Index 0 Read FarchiveSizeBytes Write SetarchiveSizeBytes;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property deprecated : TDeprecationStatus Index 16 Read Fdeprecated Write Setdeprecated;
    Property description : String Index 24 Read Fdescription Write Setdescription;
    Property diskSizeGb : String Index 32 Read FdiskSizeGb Write SetdiskSizeGb;
    Property family : String Index 40 Read Ffamily Write Setfamily;
    Property id : String Index 48 Read Fid Write Setid;
    Property kind : String Index 56 Read Fkind Write Setkind;
    Property licenses : TStringArray Index 64 Read Flicenses Write Setlicenses;
    Property name : String Index 72 Read Fname Write Setname;
    Property rawDisk : TImageTyperawDisk Index 80 Read FrawDisk Write SetrawDisk;
    Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
    Property sourceDisk : String Index 96 Read FsourceDisk Write SetsourceDisk;
    Property sourceDiskId : String Index 104 Read FsourceDiskId Write SetsourceDiskId;
    Property sourceType : String Index 112 Read FsourceType Write SetsourceType;
    Property status : String Index 120 Read Fstatus Write Setstatus;
  end;
  TImageClass = Class of TImage;
  
  { --------------------------------------------------------------------
    TImageList
    --------------------------------------------------------------------}
  
  TImageList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TImageListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TImageListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TImageListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TImageListClass = Class of TImageList;
  
  { --------------------------------------------------------------------
    TInstance
    --------------------------------------------------------------------}
  
  TInstance = Class(TGoogleBaseObject)
  Private
    FcanIpForward : boolean;
    FcpuPlatform : String;
    FcreationTimestamp : String;
    Fdescription : String;
    Fdisks : TInstanceTypedisksArray;
    Fid : String;
    Fkind : String;
    FmachineType : String;
    Fmetadata : TMetadata;
    Fname : String;
    FnetworkInterfaces : TInstanceTypenetworkInterfacesArray;
    Fscheduling : TScheduling;
    FselfLink : String;
    FserviceAccounts : TInstanceTypeserviceAccountsArray;
    Fstatus : String;
    FstatusMessage : String;
    Ftags : TTags;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetcanIpForward(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetcpuPlatform(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdisks(AIndex : Integer; const AValue : TInstanceTypedisksArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmetadata(AIndex : Integer; const AValue : TMetadata); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkInterfaces(AIndex : Integer; const AValue : TInstanceTypenetworkInterfacesArray); virtual;
    Procedure Setscheduling(AIndex : Integer; const AValue : TScheduling); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetserviceAccounts(AIndex : Integer; const AValue : TInstanceTypeserviceAccountsArray); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
    Procedure Settags(AIndex : Integer; const AValue : TTags); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property canIpForward : boolean Index 0 Read FcanIpForward Write SetcanIpForward;
    Property cpuPlatform : String Index 8 Read FcpuPlatform Write SetcpuPlatform;
    Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 24 Read Fdescription Write Setdescription;
    Property disks : TInstanceTypedisksArray Index 32 Read Fdisks Write Setdisks;
    Property id : String Index 40 Read Fid Write Setid;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property machineType : String Index 56 Read FmachineType Write SetmachineType;
    Property metadata : TMetadata Index 64 Read Fmetadata Write Setmetadata;
    Property name : String Index 72 Read Fname Write Setname;
    Property networkInterfaces : TInstanceTypenetworkInterfacesArray Index 80 Read FnetworkInterfaces Write SetnetworkInterfaces;
    Property scheduling : TScheduling Index 88 Read Fscheduling Write Setscheduling;
    Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
    Property serviceAccounts : TInstanceTypeserviceAccountsArray Index 104 Read FserviceAccounts Write SetserviceAccounts;
    Property status : String Index 112 Read Fstatus Write Setstatus;
    Property statusMessage : String Index 120 Read FstatusMessage Write SetstatusMessage;
    Property tags : TTags Index 128 Read Ftags Write Settags;
    Property zone : String Index 136 Read Fzone Write Setzone;
  end;
  TInstanceClass = Class of TInstance;
  
  { --------------------------------------------------------------------
    TInstanceAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TInstanceAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TInstanceAggregatedListTypeitemsClass = Class of TInstanceAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TInstanceAggregatedList
    --------------------------------------------------------------------}
  
  TInstanceAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceAggregatedListClass = Class of TInstanceAggregatedList;
  
  { --------------------------------------------------------------------
    TInstanceGroup
    --------------------------------------------------------------------}
  
  TInstanceGroup = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    Ffingerprint : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FnamedPorts : TInstanceGroupTypenamedPortsArray;
    Fnetwork : String;
    FselfLink : String;
    Fsize : integer;
    Fsubnetwork : String;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupTypenamedPortsArray); virtual;
    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsize(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property namedPorts : TInstanceGroupTypenamedPortsArray Index 48 Read FnamedPorts Write SetnamedPorts;
    Property network : String Index 56 Read Fnetwork Write Setnetwork;
    Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
    Property size : integer Index 72 Read Fsize Write Setsize;
    Property subnetwork : String Index 80 Read Fsubnetwork Write Setsubnetwork;
    Property zone : String Index 88 Read Fzone Write Setzone;
  end;
  TInstanceGroupClass = Class of TInstanceGroup;
  
  { --------------------------------------------------------------------
    TInstanceGroupAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TInstanceGroupAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TInstanceGroupAggregatedListTypeitemsClass = Class of TInstanceGroupAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TInstanceGroupAggregatedList
    --------------------------------------------------------------------}
  
  TInstanceGroupAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceGroupAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceGroupAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceGroupAggregatedListClass = Class of TInstanceGroupAggregatedList;
  
  { --------------------------------------------------------------------
    TInstanceGroupList
    --------------------------------------------------------------------}
  
  TInstanceGroupList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceGroupListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceGroupListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceGroupListClass = Class of TInstanceGroupList;
  
  { --------------------------------------------------------------------
    TInstanceGroupManager
    --------------------------------------------------------------------}
  
  TInstanceGroupManager = Class(TGoogleBaseObject)
  Private
    FbaseInstanceName : String;
    FcreationTimestamp : String;
    FcurrentActions : TInstanceGroupManagerActionsSummary;
    Fdescription : String;
    Ffingerprint : String;
    Fid : String;
    FinstanceGroup : String;
    FinstanceTemplate : String;
    Fkind : String;
    Fname : String;
    FnamedPorts : TInstanceGroupManagerTypenamedPortsArray;
    FselfLink : String;
    FtargetPools : TStringArray;
    FtargetSize : integer;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetbaseInstanceName(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcurrentActions(AIndex : Integer; const AValue : TInstanceGroupManagerActionsSummary); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinstanceGroup(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupManagerTypenamedPortsArray); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetPools(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SettargetSize(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property baseInstanceName : String Index 0 Read FbaseInstanceName Write SetbaseInstanceName;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property currentActions : TInstanceGroupManagerActionsSummary Index 16 Read FcurrentActions Write SetcurrentActions;
    Property description : String Index 24 Read Fdescription Write Setdescription;
    Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
    Property id : String Index 40 Read Fid Write Setid;
    Property instanceGroup : String Index 48 Read FinstanceGroup Write SetinstanceGroup;
    Property instanceTemplate : String Index 56 Read FinstanceTemplate Write SetinstanceTemplate;
    Property kind : String Index 64 Read Fkind Write Setkind;
    Property name : String Index 72 Read Fname Write Setname;
    Property namedPorts : TInstanceGroupManagerTypenamedPortsArray Index 80 Read FnamedPorts Write SetnamedPorts;
    Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
    Property targetPools : TStringArray Index 96 Read FtargetPools Write SettargetPools;
    Property targetSize : integer Index 104 Read FtargetSize Write SettargetSize;
    Property zone : String Index 112 Read Fzone Write Setzone;
  end;
  TInstanceGroupManagerClass = Class of TInstanceGroupManager;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagerActionsSummary
    --------------------------------------------------------------------}
  
  TInstanceGroupManagerActionsSummary = Class(TGoogleBaseObject)
  Private
    Fabandoning : integer;
    Fcreating : integer;
    Fdeleting : integer;
    Fnone : integer;
    Frecreating : integer;
    Frefreshing : integer;
    Frestarting : integer;
  Protected
    //Property setters
    Procedure Setabandoning(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setcreating(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setdeleting(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setnone(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setrecreating(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setrefreshing(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setrestarting(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property abandoning : integer Index 0 Read Fabandoning Write Setabandoning;
    Property creating : integer Index 8 Read Fcreating Write Setcreating;
    Property deleting : integer Index 16 Read Fdeleting Write Setdeleting;
    Property none : integer Index 24 Read Fnone Write Setnone;
    Property recreating : integer Index 32 Read Frecreating Write Setrecreating;
    Property refreshing : integer Index 40 Read Frefreshing Write Setrefreshing;
    Property restarting : integer Index 48 Read Frestarting Write Setrestarting;
  end;
  TInstanceGroupManagerActionsSummaryClass = Class of TInstanceGroupManagerActionsSummary;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagerAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TInstanceGroupManagerAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TInstanceGroupManagerAggregatedListTypeitemsClass = Class of TInstanceGroupManagerAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagerAggregatedList
    --------------------------------------------------------------------}
  
  TInstanceGroupManagerAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceGroupManagerAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceGroupManagerAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceGroupManagerAggregatedListClass = Class of TInstanceGroupManagerAggregatedList;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagerList
    --------------------------------------------------------------------}
  
  TInstanceGroupManagerList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceGroupManagerListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceGroupManagerListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceGroupManagerListClass = Class of TInstanceGroupManagerList;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersAbandonInstancesRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersAbandonInstancesRequest = Class(TGoogleBaseObject)
  Private
    Finstances : TStringArray;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
  end;
  TInstanceGroupManagersAbandonInstancesRequestClass = Class of TInstanceGroupManagersAbandonInstancesRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersDeleteInstancesRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersDeleteInstancesRequest = Class(TGoogleBaseObject)
  Private
    Finstances : TStringArray;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
  end;
  TInstanceGroupManagersDeleteInstancesRequestClass = Class of TInstanceGroupManagersDeleteInstancesRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersListManagedInstancesResponse
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersListManagedInstancesResponse = Class(TGoogleBaseObject)
  Private
    FmanagedInstances : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray;
  Protected
    //Property setters
    Procedure SetmanagedInstances(AIndex : Integer; const AValue : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property managedInstances : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray Index 0 Read FmanagedInstances Write SetmanagedInstances;
  end;
  TInstanceGroupManagersListManagedInstancesResponseClass = Class of TInstanceGroupManagersListManagedInstancesResponse;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersRecreateInstancesRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersRecreateInstancesRequest = Class(TGoogleBaseObject)
  Private
    Finstances : TStringArray;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
  end;
  TInstanceGroupManagersRecreateInstancesRequestClass = Class of TInstanceGroupManagersRecreateInstancesRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TInstanceGroupManagersScopedListTypewarningTypedataItemClass = Class of TInstanceGroupManagersScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersScopedListTypewarning
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TInstanceGroupManagersScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TInstanceGroupManagersScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TInstanceGroupManagersScopedListTypewarningClass = Class of TInstanceGroupManagersScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersScopedList
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersScopedList = Class(TGoogleBaseObject)
  Private
    FinstanceGroupManagers : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray;
    Fwarning : TInstanceGroupManagersScopedListTypewarning;
  Protected
    //Property setters
    Procedure SetinstanceGroupManagers(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instanceGroupManagers : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray Index 0 Read FinstanceGroupManagers Write SetinstanceGroupManagers;
    Property warning : TInstanceGroupManagersScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TInstanceGroupManagersScopedListClass = Class of TInstanceGroupManagersScopedList;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersSetInstanceTemplateRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersSetInstanceTemplateRequest = Class(TGoogleBaseObject)
  Private
    FinstanceTemplate : String;
  Protected
    //Property setters
    Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property instanceTemplate : String Index 0 Read FinstanceTemplate Write SetinstanceTemplate;
  end;
  TInstanceGroupManagersSetInstanceTemplateRequestClass = Class of TInstanceGroupManagersSetInstanceTemplateRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersSetTargetPoolsRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupManagersSetTargetPoolsRequest = Class(TGoogleBaseObject)
  Private
    Ffingerprint : String;
    FtargetPools : TStringArray;
  Protected
    //Property setters
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetPools(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
    Property targetPools : TStringArray Index 8 Read FtargetPools Write SettargetPools;
  end;
  TInstanceGroupManagersSetTargetPoolsRequestClass = Class of TInstanceGroupManagersSetTargetPoolsRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupsAddInstancesRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupsAddInstancesRequest = Class(TGoogleBaseObject)
  Private
    Finstances : TInstanceGroupsAddInstancesRequestTypeinstancesArray;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TInstanceGroupsAddInstancesRequestTypeinstancesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TInstanceGroupsAddInstancesRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
  end;
  TInstanceGroupsAddInstancesRequestClass = Class of TInstanceGroupsAddInstancesRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupsListInstances
    --------------------------------------------------------------------}
  
  TInstanceGroupsListInstances = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceGroupsListInstancesTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupsListInstancesTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceGroupsListInstancesTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceGroupsListInstancesClass = Class of TInstanceGroupsListInstances;
  
  { --------------------------------------------------------------------
    TInstanceGroupsListInstancesRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupsListInstancesRequest = Class(TGoogleBaseObject)
  Private
    FinstanceState : String;
  Protected
    //Property setters
    Procedure SetinstanceState(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property instanceState : String Index 0 Read FinstanceState Write SetinstanceState;
  end;
  TInstanceGroupsListInstancesRequestClass = Class of TInstanceGroupsListInstancesRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupsRemoveInstancesRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupsRemoveInstancesRequest = Class(TGoogleBaseObject)
  Private
    Finstances : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
  end;
  TInstanceGroupsRemoveInstancesRequestClass = Class of TInstanceGroupsRemoveInstancesRequest;
  
  { --------------------------------------------------------------------
    TInstanceGroupsScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TInstanceGroupsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TInstanceGroupsScopedListTypewarningTypedataItemClass = Class of TInstanceGroupsScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TInstanceGroupsScopedListTypewarning
    --------------------------------------------------------------------}
  
  TInstanceGroupsScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TInstanceGroupsScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TInstanceGroupsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TInstanceGroupsScopedListTypewarningClass = Class of TInstanceGroupsScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TInstanceGroupsScopedList
    --------------------------------------------------------------------}
  
  TInstanceGroupsScopedList = Class(TGoogleBaseObject)
  Private
    FinstanceGroups : TInstanceGroupsScopedListTypeinstanceGroupsArray;
    Fwarning : TInstanceGroupsScopedListTypewarning;
  Protected
    //Property setters
    Procedure SetinstanceGroups(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypeinstanceGroupsArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instanceGroups : TInstanceGroupsScopedListTypeinstanceGroupsArray Index 0 Read FinstanceGroups Write SetinstanceGroups;
    Property warning : TInstanceGroupsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TInstanceGroupsScopedListClass = Class of TInstanceGroupsScopedList;
  
  { --------------------------------------------------------------------
    TInstanceGroupsSetNamedPortsRequest
    --------------------------------------------------------------------}
  
  TInstanceGroupsSetNamedPortsRequest = Class(TGoogleBaseObject)
  Private
    Ffingerprint : String;
    FnamedPorts : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray;
  Protected
    //Property setters
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
    Property namedPorts : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray Index 8 Read FnamedPorts Write SetnamedPorts;
  end;
  TInstanceGroupsSetNamedPortsRequestClass = Class of TInstanceGroupsSetNamedPortsRequest;
  
  { --------------------------------------------------------------------
    TInstanceList
    --------------------------------------------------------------------}
  
  TInstanceList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceListClass = Class of TInstanceList;
  
  { --------------------------------------------------------------------
    TInstanceMoveRequest
    --------------------------------------------------------------------}
  
  TInstanceMoveRequest = Class(TGoogleBaseObject)
  Private
    FdestinationZone : String;
    FtargetInstance : String;
  Protected
    //Property setters
    Procedure SetdestinationZone(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetInstance(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property destinationZone : String Index 0 Read FdestinationZone Write SetdestinationZone;
    Property targetInstance : String Index 8 Read FtargetInstance Write SettargetInstance;
  end;
  TInstanceMoveRequestClass = Class of TInstanceMoveRequest;
  
  { --------------------------------------------------------------------
    TInstanceProperties
    --------------------------------------------------------------------}
  
  TInstanceProperties = Class(TGoogleBaseObject)
  Private
    FcanIpForward : boolean;
    Fdescription : String;
    Fdisks : TInstancePropertiesTypedisksArray;
    FmachineType : String;
    Fmetadata : TMetadata;
    FnetworkInterfaces : TInstancePropertiesTypenetworkInterfacesArray;
    Fscheduling : TScheduling;
    FserviceAccounts : TInstancePropertiesTypeserviceAccountsArray;
    Ftags : TTags;
  Protected
    //Property setters
    Procedure SetcanIpForward(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdisks(AIndex : Integer; const AValue : TInstancePropertiesTypedisksArray); virtual;
    Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmetadata(AIndex : Integer; const AValue : TMetadata); virtual;
    Procedure SetnetworkInterfaces(AIndex : Integer; const AValue : TInstancePropertiesTypenetworkInterfacesArray); virtual;
    Procedure Setscheduling(AIndex : Integer; const AValue : TScheduling); virtual;
    Procedure SetserviceAccounts(AIndex : Integer; const AValue : TInstancePropertiesTypeserviceAccountsArray); virtual;
    Procedure Settags(AIndex : Integer; const AValue : TTags); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property canIpForward : boolean Index 0 Read FcanIpForward Write SetcanIpForward;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property disks : TInstancePropertiesTypedisksArray Index 16 Read Fdisks Write Setdisks;
    Property machineType : String Index 24 Read FmachineType Write SetmachineType;
    Property metadata : TMetadata Index 32 Read Fmetadata Write Setmetadata;
    Property networkInterfaces : TInstancePropertiesTypenetworkInterfacesArray Index 40 Read FnetworkInterfaces Write SetnetworkInterfaces;
    Property scheduling : TScheduling Index 48 Read Fscheduling Write Setscheduling;
    Property serviceAccounts : TInstancePropertiesTypeserviceAccountsArray Index 56 Read FserviceAccounts Write SetserviceAccounts;
    Property tags : TTags Index 64 Read Ftags Write Settags;
  end;
  TInstancePropertiesClass = Class of TInstanceProperties;
  
  { --------------------------------------------------------------------
    TInstanceReference
    --------------------------------------------------------------------}
  
  TInstanceReference = Class(TGoogleBaseObject)
  Private
    Finstance : String;
  Protected
    //Property setters
    Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property instance : String Index 0 Read Finstance Write Setinstance;
  end;
  TInstanceReferenceClass = Class of TInstanceReference;
  
  { --------------------------------------------------------------------
    TInstanceTemplate
    --------------------------------------------------------------------}
  
  TInstanceTemplate = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fproperties : TInstanceProperties;
    FselfLink : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setproperties(AIndex : Integer; const AValue : TInstanceProperties); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property id : String Index 16 Read Fid Write Setid;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property name : String Index 32 Read Fname Write Setname;
    Property properties : TInstanceProperties Index 40 Read Fproperties Write Setproperties;
    Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
  end;
  TInstanceTemplateClass = Class of TInstanceTemplate;
  
  { --------------------------------------------------------------------
    TInstanceTemplateList
    --------------------------------------------------------------------}
  
  TInstanceTemplateList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TInstanceTemplateListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TInstanceTemplateListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TInstanceTemplateListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TInstanceTemplateListClass = Class of TInstanceTemplateList;
  
  { --------------------------------------------------------------------
    TInstanceWithNamedPorts
    --------------------------------------------------------------------}
  
  TInstanceWithNamedPorts = Class(TGoogleBaseObject)
  Private
    Finstance : String;
    FnamedPorts : TInstanceWithNamedPortsTypenamedPortsArray;
    Fstatus : String;
  Protected
    //Property setters
    Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceWithNamedPortsTypenamedPortsArray); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instance : String Index 0 Read Finstance Write Setinstance;
    Property namedPorts : TInstanceWithNamedPortsTypenamedPortsArray Index 8 Read FnamedPorts Write SetnamedPorts;
    Property status : String Index 16 Read Fstatus Write Setstatus;
  end;
  TInstanceWithNamedPortsClass = Class of TInstanceWithNamedPorts;
  
  { --------------------------------------------------------------------
    TInstancesScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TInstancesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TInstancesScopedListTypewarningTypedataItemClass = Class of TInstancesScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TInstancesScopedListTypewarning
    --------------------------------------------------------------------}
  
  TInstancesScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TInstancesScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TInstancesScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TInstancesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TInstancesScopedListTypewarningClass = Class of TInstancesScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TInstancesScopedList
    --------------------------------------------------------------------}
  
  TInstancesScopedList = Class(TGoogleBaseObject)
  Private
    Finstances : TInstancesScopedListTypeinstancesArray;
    Fwarning : TInstancesScopedListTypewarning;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TInstancesScopedListTypeinstancesArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TInstancesScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TInstancesScopedListTypeinstancesArray Index 0 Read Finstances Write Setinstances;
    Property warning : TInstancesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TInstancesScopedListClass = Class of TInstancesScopedList;
  
  { --------------------------------------------------------------------
    TInstancesSetMachineTypeRequest
    --------------------------------------------------------------------}
  
  TInstancesSetMachineTypeRequest = Class(TGoogleBaseObject)
  Private
    FmachineType : String;
  Protected
    //Property setters
    Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property machineType : String Index 0 Read FmachineType Write SetmachineType;
  end;
  TInstancesSetMachineTypeRequestClass = Class of TInstancesSetMachineTypeRequest;
  
  { --------------------------------------------------------------------
    TLicense
    --------------------------------------------------------------------}
  
  TLicense = Class(TGoogleBaseObject)
  Private
    FchargesUseFee : boolean;
    Fkind : String;
    Fname : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure SetchargesUseFee(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property chargesUseFee : boolean Index 0 Read FchargesUseFee Write SetchargesUseFee;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property name : String Index 16 Read Fname Write Setname;
    Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
  end;
  TLicenseClass = Class of TLicense;
  
  { --------------------------------------------------------------------
    TMachineTypeTypescratchDisksItem
    --------------------------------------------------------------------}
  
  TMachineTypeTypescratchDisksItem = Class(TGoogleBaseObject)
  Private
    FdiskGb : integer;
  Protected
    //Property setters
    Procedure SetdiskGb(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property diskGb : integer Index 0 Read FdiskGb Write SetdiskGb;
  end;
  TMachineTypeTypescratchDisksItemClass = Class of TMachineTypeTypescratchDisksItem;
  
  { --------------------------------------------------------------------
    TMachineType
    --------------------------------------------------------------------}
  
  TMachineType = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdeprecated : TDeprecationStatus;
    Fdescription : String;
    FguestCpus : integer;
    Fid : String;
    FimageSpaceGb : integer;
    Fkind : String;
    FmaximumPersistentDisks : integer;
    FmaximumPersistentDisksSizeGb : String;
    FmemoryMb : integer;
    Fname : String;
    FscratchDisks : TMachineTypeTypescratchDisksArray;
    FselfLink : String;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetguestCpus(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetimageSpaceGb(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmaximumPersistentDisks(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetmaximumPersistentDisksSizeGb(AIndex : Integer; const AValue : String); virtual;
    Procedure SetmemoryMb(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetscratchDisks(AIndex : Integer; const AValue : TMachineTypeTypescratchDisksArray); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property deprecated : TDeprecationStatus Index 8 Read Fdeprecated Write Setdeprecated;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property guestCpus : integer Index 24 Read FguestCpus Write SetguestCpus;
    Property id : String Index 32 Read Fid Write Setid;
    Property imageSpaceGb : integer Index 40 Read FimageSpaceGb Write SetimageSpaceGb;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property maximumPersistentDisks : integer Index 56 Read FmaximumPersistentDisks Write SetmaximumPersistentDisks;
    Property maximumPersistentDisksSizeGb : String Index 64 Read FmaximumPersistentDisksSizeGb Write SetmaximumPersistentDisksSizeGb;
    Property memoryMb : integer Index 72 Read FmemoryMb Write SetmemoryMb;
    Property name : String Index 80 Read Fname Write Setname;
    Property scratchDisks : TMachineTypeTypescratchDisksArray Index 88 Read FscratchDisks Write SetscratchDisks;
    Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
    Property zone : String Index 104 Read Fzone Write Setzone;
  end;
  TMachineTypeClass = Class of TMachineType;
  
  { --------------------------------------------------------------------
    TMachineTypeAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TMachineTypeAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TMachineTypeAggregatedListTypeitemsClass = Class of TMachineTypeAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TMachineTypeAggregatedList
    --------------------------------------------------------------------}
  
  TMachineTypeAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TMachineTypeAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TMachineTypeAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TMachineTypeAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TMachineTypeAggregatedListClass = Class of TMachineTypeAggregatedList;
  
  { --------------------------------------------------------------------
    TMachineTypeList
    --------------------------------------------------------------------}
  
  TMachineTypeList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TMachineTypeListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TMachineTypeListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TMachineTypeListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TMachineTypeListClass = Class of TMachineTypeList;
  
  { --------------------------------------------------------------------
    TMachineTypesScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TMachineTypesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TMachineTypesScopedListTypewarningTypedataItemClass = Class of TMachineTypesScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TMachineTypesScopedListTypewarning
    --------------------------------------------------------------------}
  
  TMachineTypesScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TMachineTypesScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TMachineTypesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TMachineTypesScopedListTypewarningClass = Class of TMachineTypesScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TMachineTypesScopedList
    --------------------------------------------------------------------}
  
  TMachineTypesScopedList = Class(TGoogleBaseObject)
  Private
    FmachineTypes : TMachineTypesScopedListTypemachineTypesArray;
    Fwarning : TMachineTypesScopedListTypewarning;
  Protected
    //Property setters
    Procedure SetmachineTypes(AIndex : Integer; const AValue : TMachineTypesScopedListTypemachineTypesArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property machineTypes : TMachineTypesScopedListTypemachineTypesArray Index 0 Read FmachineTypes Write SetmachineTypes;
    Property warning : TMachineTypesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TMachineTypesScopedListClass = Class of TMachineTypesScopedList;
  
  { --------------------------------------------------------------------
    TManagedInstance
    --------------------------------------------------------------------}
  
  TManagedInstance = Class(TGoogleBaseObject)
  Private
    FcurrentAction : String;
    Fid : String;
    Finstance : String;
    FinstanceStatus : String;
    FlastAttempt : TManagedInstanceLastAttempt;
  Protected
    //Property setters
    Procedure SetcurrentAction(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinstanceStatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlastAttempt(AIndex : Integer; const AValue : TManagedInstanceLastAttempt); virtual;
  Public
  Published
    Property currentAction : String Index 0 Read FcurrentAction Write SetcurrentAction;
    Property id : String Index 8 Read Fid Write Setid;
    Property instance : String Index 16 Read Finstance Write Setinstance;
    Property instanceStatus : String Index 24 Read FinstanceStatus Write SetinstanceStatus;
    Property lastAttempt : TManagedInstanceLastAttempt Index 32 Read FlastAttempt Write SetlastAttempt;
  end;
  TManagedInstanceClass = Class of TManagedInstance;
  
  { --------------------------------------------------------------------
    TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem
    --------------------------------------------------------------------}
  
  TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Flocation : String;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property location : String Index 8 Read Flocation Write Setlocation;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TManagedInstanceLastAttemptTypeerrorsTypeerrorsItemClass = Class of TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem;
  
  { --------------------------------------------------------------------
    TManagedInstanceLastAttemptTypeerrors
    --------------------------------------------------------------------}
  
  TManagedInstanceLastAttemptTypeerrors = Class(TGoogleBaseObject)
  Private
    Ferrors : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray;
  Protected
    //Property setters
    Procedure Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property errors : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
  end;
  TManagedInstanceLastAttemptTypeerrorsClass = Class of TManagedInstanceLastAttemptTypeerrors;
  
  { --------------------------------------------------------------------
    TManagedInstanceLastAttempt
    --------------------------------------------------------------------}
  
  TManagedInstanceLastAttempt = Class(TGoogleBaseObject)
  Private
    Ferrors : TManagedInstanceLastAttemptTypeerrors;
  Protected
    //Property setters
    Procedure Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrors); virtual;
  Public
  Published
    Property errors : TManagedInstanceLastAttemptTypeerrors Index 0 Read Ferrors Write Seterrors;
  end;
  TManagedInstanceLastAttemptClass = Class of TManagedInstanceLastAttempt;
  
  { --------------------------------------------------------------------
    TMetadataTypeitemsItem
    --------------------------------------------------------------------}
  
  TMetadataTypeitemsItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TMetadataTypeitemsItemClass = Class of TMetadataTypeitemsItem;
  
  { --------------------------------------------------------------------
    TMetadata
    --------------------------------------------------------------------}
  
  TMetadata = Class(TGoogleBaseObject)
  Private
    Ffingerprint : String;
    Fitems : TMetadataTypeitemsArray;
    Fkind : String;
  Protected
    //Property setters
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
    Property items : TMetadataTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TMetadataClass = Class of TMetadata;
  
  { --------------------------------------------------------------------
    TNamedPort
    --------------------------------------------------------------------}
  
  TNamedPort = Class(TGoogleBaseObject)
  Private
    Fname : String;
    Fport : integer;
  Protected
    //Property setters
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property name : String Index 0 Read Fname Write Setname;
    Property port : integer Index 8 Read Fport Write Setport;
  end;
  TNamedPortClass = Class of TNamedPort;
  
  { --------------------------------------------------------------------
    TNetwork
    --------------------------------------------------------------------}
  
  TNetwork = Class(TGoogleBaseObject)
  Private
    FIPv4Range : String;
    FautoCreateSubnetworks : boolean;
    FcreationTimestamp : String;
    Fdescription : String;
    FgatewayIPv4 : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FselfLink : String;
    Fsubnetworks : TStringArray;
  Protected
    //Property setters
    Procedure SetIPv4Range(AIndex : Integer; const AValue : String); virtual;
    Procedure SetautoCreateSubnetworks(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetgatewayIPv4(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsubnetworks(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property IPv4Range : String Index 0 Read FIPv4Range Write SetIPv4Range;
    Property autoCreateSubnetworks : boolean Index 8 Read FautoCreateSubnetworks Write SetautoCreateSubnetworks;
    Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 24 Read Fdescription Write Setdescription;
    Property gatewayIPv4 : String Index 32 Read FgatewayIPv4 Write SetgatewayIPv4;
    Property id : String Index 40 Read Fid Write Setid;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property name : String Index 56 Read Fname Write Setname;
    Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
    Property subnetworks : TStringArray Index 72 Read Fsubnetworks Write Setsubnetworks;
  end;
  TNetworkClass = Class of TNetwork;
  
  { --------------------------------------------------------------------
    TNetworkInterface
    --------------------------------------------------------------------}
  
  TNetworkInterface = Class(TGoogleBaseObject)
  Private
    FaccessConfigs : TNetworkInterfaceTypeaccessConfigsArray;
    Fname : String;
    Fnetwork : String;
    FnetworkIP : String;
    Fsubnetwork : String;
  Protected
    //Property setters
    Procedure SetaccessConfigs(AIndex : Integer; const AValue : TNetworkInterfaceTypeaccessConfigsArray); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnetworkIP(AIndex : Integer; const AValue : String); virtual;
    Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property accessConfigs : TNetworkInterfaceTypeaccessConfigsArray Index 0 Read FaccessConfigs Write SetaccessConfigs;
    Property name : String Index 8 Read Fname Write Setname;
    Property network : String Index 16 Read Fnetwork Write Setnetwork;
    Property networkIP : String Index 24 Read FnetworkIP Write SetnetworkIP;
    Property subnetwork : String Index 32 Read Fsubnetwork Write Setsubnetwork;
  end;
  TNetworkInterfaceClass = Class of TNetworkInterface;
  
  { --------------------------------------------------------------------
    TNetworkList
    --------------------------------------------------------------------}
  
  TNetworkList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TNetworkListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TNetworkListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TNetworkListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TNetworkListClass = Class of TNetworkList;
  
  { --------------------------------------------------------------------
    TOperationTypeerrorTypeerrorsItem
    --------------------------------------------------------------------}
  
  TOperationTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Flocation : String;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property location : String Index 8 Read Flocation Write Setlocation;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TOperationTypeerrorTypeerrorsItemClass = Class of TOperationTypeerrorTypeerrorsItem;
  
  { --------------------------------------------------------------------
    TOperationTypeerror
    --------------------------------------------------------------------}
  
  TOperationTypeerror = Class(TGoogleBaseObject)
  Private
    Ferrors : TOperationTypeerrorTypeerrorsArray;
  Protected
    //Property setters
    Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property errors : TOperationTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
  end;
  TOperationTypeerrorClass = Class of TOperationTypeerror;
  
  { --------------------------------------------------------------------
    TOperationTypewarningsItemTypedataItem
    --------------------------------------------------------------------}
  
  TOperationTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TOperationTypewarningsItemTypedataItemClass = Class of TOperationTypewarningsItemTypedataItem;
  
  { --------------------------------------------------------------------
    TOperationTypewarningsItem
    --------------------------------------------------------------------}
  
  TOperationTypewarningsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TOperationTypewarningsItemTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TOperationTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TOperationTypewarningsItemClass = Class of TOperationTypewarningsItem;
  
  { --------------------------------------------------------------------
    TOperation
    --------------------------------------------------------------------}
  
  TOperation = Class(TGoogleBaseObject)
  Private
    FclientOperationId : String;
    FcreationTimestamp : String;
    Fdescription : String;
    FendTime : String;
    Ferror : TOperationTypeerror;
    FhttpErrorMessage : String;
    FhttpErrorStatusCode : integer;
    Fid : String;
    FinsertTime : String;
    Fkind : String;
    Fname : String;
    FoperationType : String;
    Fprogress : integer;
    Fregion : String;
    FselfLink : String;
    FstartTime : String;
    Fstatus : String;
    FstatusMessage : String;
    FtargetId : String;
    FtargetLink : String;
    Fuser : String;
    Fwarnings : TOperationTypewarningsArray;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
    Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
    Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
    Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property endTime : String Index 24 Read FendTime Write SetendTime;
    Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
    Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
    Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
    Property id : String Index 56 Read Fid Write Setid;
    Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
    Property kind : String Index 72 Read Fkind Write Setkind;
    Property name : String Index 80 Read Fname Write Setname;
    Property operationType : String Index 88 Read FoperationType Write SetoperationType;
    Property progress : integer Index 96 Read Fprogress Write Setprogress;
    Property region : String Index 104 Read Fregion Write Setregion;
    Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
    Property startTime : String Index 120 Read FstartTime Write SetstartTime;
    Property status : String Index 128 Read Fstatus Write Setstatus;
    Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
    Property targetId : String Index 144 Read FtargetId Write SettargetId;
    Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
    Property user : String Index 160 Read Fuser Write Setuser;
    Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
    Property zone : String Index 176 Read Fzone Write Setzone;
  end;
  TOperationClass = Class of TOperation;
  
  { --------------------------------------------------------------------
    TOperationAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TOperationAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TOperationAggregatedListTypeitemsClass = Class of TOperationAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TOperationAggregatedList
    --------------------------------------------------------------------}
  
  TOperationAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TOperationAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TOperationAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TOperationAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TOperationAggregatedListClass = Class of TOperationAggregatedList;
  
  { --------------------------------------------------------------------
    TOperationList
    --------------------------------------------------------------------}
  
  TOperationList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TOperationListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TOperationListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TOperationListClass = Class of TOperationList;
  
  { --------------------------------------------------------------------
    TOperationsScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TOperationsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TOperationsScopedListTypewarningTypedataItemClass = Class of TOperationsScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TOperationsScopedListTypewarning
    --------------------------------------------------------------------}
  
  TOperationsScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TOperationsScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TOperationsScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TOperationsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TOperationsScopedListTypewarningClass = Class of TOperationsScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TOperationsScopedList
    --------------------------------------------------------------------}
  
  TOperationsScopedList = Class(TGoogleBaseObject)
  Private
    Foperations : TOperationsScopedListTypeoperationsArray;
    Fwarning : TOperationsScopedListTypewarning;
  Protected
    //Property setters
    Procedure Setoperations(AIndex : Integer; const AValue : TOperationsScopedListTypeoperationsArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TOperationsScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property operations : TOperationsScopedListTypeoperationsArray Index 0 Read Foperations Write Setoperations;
    Property warning : TOperationsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TOperationsScopedListClass = Class of TOperationsScopedList;
  
  { --------------------------------------------------------------------
    TPathMatcher
    --------------------------------------------------------------------}
  
  TPathMatcher = Class(TGoogleBaseObject)
  Private
    FdefaultService : String;
    Fdescription : String;
    Fname : String;
    FpathRules : TPathMatcherTypepathRulesArray;
  Protected
    //Property setters
    Procedure SetdefaultService(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpathRules(AIndex : Integer; const AValue : TPathMatcherTypepathRulesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property defaultService : String Index 0 Read FdefaultService Write SetdefaultService;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property name : String Index 16 Read Fname Write Setname;
    Property pathRules : TPathMatcherTypepathRulesArray Index 24 Read FpathRules Write SetpathRules;
  end;
  TPathMatcherClass = Class of TPathMatcher;
  
  { --------------------------------------------------------------------
    TPathRule
    --------------------------------------------------------------------}
  
  TPathRule = Class(TGoogleBaseObject)
  Private
    Fpaths : TStringArray;
    Fservice : String;
  Protected
    //Property setters
    Procedure Setpaths(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setservice(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property paths : TStringArray Index 0 Read Fpaths Write Setpaths;
    Property service : String Index 8 Read Fservice Write Setservice;
  end;
  TPathRuleClass = Class of TPathRule;
  
  { --------------------------------------------------------------------
    TProject
    --------------------------------------------------------------------}
  
  TProject = Class(TGoogleBaseObject)
  Private
    FcommonInstanceMetadata : TMetadata;
    FcreationTimestamp : String;
    Fdescription : String;
    FenabledFeatures : TStringArray;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fquotas : TProjectTypequotasArray;
    FselfLink : String;
    FusageExportLocation : TUsageExportLocation;
  Protected
    //Property setters
    Procedure SetcommonInstanceMetadata(AIndex : Integer; const AValue : TMetadata); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetenabledFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setquotas(AIndex : Integer; const AValue : TProjectTypequotasArray); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetusageExportLocation(AIndex : Integer; const AValue : TUsageExportLocation); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property commonInstanceMetadata : TMetadata Index 0 Read FcommonInstanceMetadata Write SetcommonInstanceMetadata;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property enabledFeatures : TStringArray Index 24 Read FenabledFeatures Write SetenabledFeatures;
    Property id : String Index 32 Read Fid Write Setid;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property name : String Index 48 Read Fname Write Setname;
    Property quotas : TProjectTypequotasArray Index 56 Read Fquotas Write Setquotas;
    Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
    Property usageExportLocation : TUsageExportLocation Index 72 Read FusageExportLocation Write SetusageExportLocation;
  end;
  TProjectClass = Class of TProject;
  
  { --------------------------------------------------------------------
    TQuota
    --------------------------------------------------------------------}
  
  TQuota = Class(TGoogleBaseObject)
  Private
    Flimit : double;
    Fmetric : String;
    Fusage : double;
  Protected
    //Property setters
    Procedure Setlimit(AIndex : Integer; const AValue : double); virtual;
    Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
    Procedure Setusage(AIndex : Integer; const AValue : double); virtual;
  Public
  Published
    Property limit : double Index 0 Read Flimit Write Setlimit;
    Property metric : String Index 8 Read Fmetric Write Setmetric;
    Property usage : double Index 16 Read Fusage Write Setusage;
  end;
  TQuotaClass = Class of TQuota;
  
  { --------------------------------------------------------------------
    TRegion
    --------------------------------------------------------------------}
  
  TRegion = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdeprecated : TDeprecationStatus;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fquotas : TRegionTypequotasArray;
    FselfLink : String;
    Fstatus : String;
    Fzones : TStringArray;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setquotas(AIndex : Integer; const AValue : TRegionTypequotasArray); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Setzones(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property deprecated : TDeprecationStatus Index 8 Read Fdeprecated Write Setdeprecated;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property quotas : TRegionTypequotasArray Index 48 Read Fquotas Write Setquotas;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property status : String Index 64 Read Fstatus Write Setstatus;
    Property zones : TStringArray Index 72 Read Fzones Write Setzones;
  end;
  TRegionClass = Class of TRegion;
  
  { --------------------------------------------------------------------
    TRegionList
    --------------------------------------------------------------------}
  
  TRegionList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TRegionListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TRegionListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TRegionListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TRegionListClass = Class of TRegionList;
  
  { --------------------------------------------------------------------
    TResourceGroupReference
    --------------------------------------------------------------------}
  
  TResourceGroupReference = Class(TGoogleBaseObject)
  Private
    Fgroup : String;
  Protected
    //Property setters
    Procedure Setgroup(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property group : String Index 0 Read Fgroup Write Setgroup;
  end;
  TResourceGroupReferenceClass = Class of TResourceGroupReference;
  
  { --------------------------------------------------------------------
    TRouteTypewarningsItemTypedataItem
    --------------------------------------------------------------------}
  
  TRouteTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TRouteTypewarningsItemTypedataItemClass = Class of TRouteTypewarningsItemTypedataItem;
  
  { --------------------------------------------------------------------
    TRouteTypewarningsItem
    --------------------------------------------------------------------}
  
  TRouteTypewarningsItem = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TRouteTypewarningsItemTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TRouteTypewarningsItemTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TRouteTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TRouteTypewarningsItemClass = Class of TRouteTypewarningsItem;
  
  { --------------------------------------------------------------------
    TRoute
    --------------------------------------------------------------------}
  
  TRoute = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    FdestRange : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fnetwork : String;
    FnextHopGateway : String;
    FnextHopInstance : String;
    FnextHopIp : String;
    FnextHopNetwork : String;
    FnextHopVpnTunnel : String;
    Fpriority : integer;
    FselfLink : String;
    Ftags : TStringArray;
    Fwarnings : TRouteTypewarningsArray;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdestRange(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextHopGateway(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextHopInstance(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextHopIp(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextHopNetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextHopVpnTunnel(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpriority(AIndex : Integer; const AValue : integer); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setwarnings(AIndex : Integer; const AValue : TRouteTypewarningsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property destRange : String Index 16 Read FdestRange Write SetdestRange;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property network : String Index 48 Read Fnetwork Write Setnetwork;
    Property nextHopGateway : String Index 56 Read FnextHopGateway Write SetnextHopGateway;
    Property nextHopInstance : String Index 64 Read FnextHopInstance Write SetnextHopInstance;
    Property nextHopIp : String Index 72 Read FnextHopIp Write SetnextHopIp;
    Property nextHopNetwork : String Index 80 Read FnextHopNetwork Write SetnextHopNetwork;
    Property nextHopVpnTunnel : String Index 88 Read FnextHopVpnTunnel Write SetnextHopVpnTunnel;
    Property priority : integer Index 96 Read Fpriority Write Setpriority;
    Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
    Property tags : TStringArray Index 112 Read Ftags Write Settags;
    Property warnings : TRouteTypewarningsArray Index 120 Read Fwarnings Write Setwarnings;
  end;
  TRouteClass = Class of TRoute;
  
  { --------------------------------------------------------------------
    TRouteList
    --------------------------------------------------------------------}
  
  TRouteList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TRouteListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TRouteListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TRouteListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TRouteListClass = Class of TRouteList;
  
  { --------------------------------------------------------------------
    TScheduling
    --------------------------------------------------------------------}
  
  TScheduling = Class(TGoogleBaseObject)
  Private
    FautomaticRestart : boolean;
    FonHostMaintenance : String;
    Fpreemptible : boolean;
  Protected
    //Property setters
    Procedure SetautomaticRestart(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SetonHostMaintenance(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpreemptible(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property automaticRestart : boolean Index 0 Read FautomaticRestart Write SetautomaticRestart;
    Property onHostMaintenance : String Index 8 Read FonHostMaintenance Write SetonHostMaintenance;
    Property preemptible : boolean Index 16 Read Fpreemptible Write Setpreemptible;
  end;
  TSchedulingClass = Class of TScheduling;
  
  { --------------------------------------------------------------------
    TSerialPortOutput
    --------------------------------------------------------------------}
  
  TSerialPortOutput = Class(TGoogleBaseObject)
  Private
    Fcontents : String;
    Fkind : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setcontents(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property contents : String Index 0 Read Fcontents Write Setcontents;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property selfLink : String Index 16 Read FselfLink Write SetselfLink;
  end;
  TSerialPortOutputClass = Class of TSerialPortOutput;
  
  { --------------------------------------------------------------------
    TServiceAccount
    --------------------------------------------------------------------}
  
  TServiceAccount = Class(TGoogleBaseObject)
  Private
    Femail : String;
    Fscopes : TStringArray;
  Protected
    //Property setters
    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
    Procedure Setscopes(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property email : String Index 0 Read Femail Write Setemail;
    Property scopes : TStringArray Index 8 Read Fscopes Write Setscopes;
  end;
  TServiceAccountClass = Class of TServiceAccount;
  
  { --------------------------------------------------------------------
    TSnapshot
    --------------------------------------------------------------------}
  
  TSnapshot = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    FdiskSizeGb : String;
    Fid : String;
    Fkind : String;
    Flicenses : TStringArray;
    Fname : String;
    FselfLink : String;
    FsourceDisk : String;
    FsourceDiskId : String;
    Fstatus : String;
    FstorageBytes : String;
    FstorageBytesStatus : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceDisk(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsourceDiskId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstorageBytes(AIndex : Integer; const AValue : String); virtual;
    Procedure SetstorageBytesStatus(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property diskSizeGb : String Index 16 Read FdiskSizeGb Write SetdiskSizeGb;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property licenses : TStringArray Index 40 Read Flicenses Write Setlicenses;
    Property name : String Index 48 Read Fname Write Setname;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property sourceDisk : String Index 64 Read FsourceDisk Write SetsourceDisk;
    Property sourceDiskId : String Index 72 Read FsourceDiskId Write SetsourceDiskId;
    Property status : String Index 80 Read Fstatus Write Setstatus;
    Property storageBytes : String Index 88 Read FstorageBytes Write SetstorageBytes;
    Property storageBytesStatus : String Index 96 Read FstorageBytesStatus Write SetstorageBytesStatus;
  end;
  TSnapshotClass = Class of TSnapshot;
  
  { --------------------------------------------------------------------
    TSnapshotList
    --------------------------------------------------------------------}
  
  TSnapshotList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TSnapshotListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TSnapshotListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TSnapshotListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TSnapshotListClass = Class of TSnapshotList;
  
  { --------------------------------------------------------------------
    TSslCertificate
    --------------------------------------------------------------------}
  
  TSslCertificate = Class(TGoogleBaseObject)
  Private
    Fcertificate : String;
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FprivateKey : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setcertificate(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetprivateKey(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property certificate : String Index 0 Read Fcertificate Write Setcertificate;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property privateKey : String Index 48 Read FprivateKey Write SetprivateKey;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
  end;
  TSslCertificateClass = Class of TSslCertificate;
  
  { --------------------------------------------------------------------
    TSslCertificateList
    --------------------------------------------------------------------}
  
  TSslCertificateList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TSslCertificateListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TSslCertificateListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TSslCertificateListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TSslCertificateListClass = Class of TSslCertificateList;
  
  { --------------------------------------------------------------------
    TSubnetwork
    --------------------------------------------------------------------}
  
  TSubnetwork = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    FgatewayAddress : String;
    Fid : String;
    FipCidrRange : String;
    Fkind : String;
    Fname : String;
    Fnetwork : String;
    Fregion : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetgatewayAddress(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetipCidrRange(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property gatewayAddress : String Index 16 Read FgatewayAddress Write SetgatewayAddress;
    Property id : String Index 24 Read Fid Write Setid;
    Property ipCidrRange : String Index 32 Read FipCidrRange Write SetipCidrRange;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property name : String Index 48 Read Fname Write Setname;
    Property network : String Index 56 Read Fnetwork Write Setnetwork;
    Property region : String Index 64 Read Fregion Write Setregion;
    Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
  end;
  TSubnetworkClass = Class of TSubnetwork;
  
  { --------------------------------------------------------------------
    TSubnetworkAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TSubnetworkAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TSubnetworkAggregatedListTypeitemsClass = Class of TSubnetworkAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TSubnetworkAggregatedList
    --------------------------------------------------------------------}
  
  TSubnetworkAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TSubnetworkAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TSubnetworkAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TSubnetworkAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TSubnetworkAggregatedListClass = Class of TSubnetworkAggregatedList;
  
  { --------------------------------------------------------------------
    TSubnetworkList
    --------------------------------------------------------------------}
  
  TSubnetworkList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TSubnetworkListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TSubnetworkListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TSubnetworkListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TSubnetworkListClass = Class of TSubnetworkList;
  
  { --------------------------------------------------------------------
    TSubnetworksScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TSubnetworksScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TSubnetworksScopedListTypewarningTypedataItemClass = Class of TSubnetworksScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TSubnetworksScopedListTypewarning
    --------------------------------------------------------------------}
  
  TSubnetworksScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TSubnetworksScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TSubnetworksScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TSubnetworksScopedListTypewarningClass = Class of TSubnetworksScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TSubnetworksScopedList
    --------------------------------------------------------------------}
  
  TSubnetworksScopedList = Class(TGoogleBaseObject)
  Private
    Fsubnetworks : TSubnetworksScopedListTypesubnetworksArray;
    Fwarning : TSubnetworksScopedListTypewarning;
  Protected
    //Property setters
    Procedure Setsubnetworks(AIndex : Integer; const AValue : TSubnetworksScopedListTypesubnetworksArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property subnetworks : TSubnetworksScopedListTypesubnetworksArray Index 0 Read Fsubnetworks Write Setsubnetworks;
    Property warning : TSubnetworksScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TSubnetworksScopedListClass = Class of TSubnetworksScopedList;
  
  { --------------------------------------------------------------------
    TTags
    --------------------------------------------------------------------}
  
  TTags = Class(TGoogleBaseObject)
  Private
    Ffingerprint : String;
    Fitems : TStringArray;
  Protected
    //Property setters
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
    Property items : TStringArray Index 8 Read Fitems Write Setitems;
  end;
  TTagsClass = Class of TTags;
  
  { --------------------------------------------------------------------
    TTargetHttpProxy
    --------------------------------------------------------------------}
  
  TTargetHttpProxy = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FselfLink : String;
    FurlMap : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SeturlMap(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property id : String Index 16 Read Fid Write Setid;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property name : String Index 32 Read Fname Write Setname;
    Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
    Property urlMap : String Index 48 Read FurlMap Write SeturlMap;
  end;
  TTargetHttpProxyClass = Class of TTargetHttpProxy;
  
  { --------------------------------------------------------------------
    TTargetHttpProxyList
    --------------------------------------------------------------------}
  
  TTargetHttpProxyList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetHttpProxyListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetHttpProxyListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetHttpProxyListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetHttpProxyListClass = Class of TTargetHttpProxyList;
  
  { --------------------------------------------------------------------
    TTargetHttpsProxiesSetSslCertificatesRequest
    --------------------------------------------------------------------}
  
  TTargetHttpsProxiesSetSslCertificatesRequest = Class(TGoogleBaseObject)
  Private
    FsslCertificates : TStringArray;
  Protected
    //Property setters
    Procedure SetsslCertificates(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property sslCertificates : TStringArray Index 0 Read FsslCertificates Write SetsslCertificates;
  end;
  TTargetHttpsProxiesSetSslCertificatesRequestClass = Class of TTargetHttpsProxiesSetSslCertificatesRequest;
  
  { --------------------------------------------------------------------
    TTargetHttpsProxy
    --------------------------------------------------------------------}
  
  TTargetHttpsProxy = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    FselfLink : String;
    FsslCertificates : TStringArray;
    FurlMap : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsslCertificates(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SeturlMap(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property id : String Index 16 Read Fid Write Setid;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property name : String Index 32 Read Fname Write Setname;
    Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
    Property sslCertificates : TStringArray Index 48 Read FsslCertificates Write SetsslCertificates;
    Property urlMap : String Index 56 Read FurlMap Write SeturlMap;
  end;
  TTargetHttpsProxyClass = Class of TTargetHttpsProxy;
  
  { --------------------------------------------------------------------
    TTargetHttpsProxyList
    --------------------------------------------------------------------}
  
  TTargetHttpsProxyList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetHttpsProxyListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetHttpsProxyListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetHttpsProxyListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetHttpsProxyListClass = Class of TTargetHttpsProxyList;
  
  { --------------------------------------------------------------------
    TTargetInstance
    --------------------------------------------------------------------}
  
  TTargetInstance = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    Fid : String;
    Finstance : String;
    Fkind : String;
    Fname : String;
    FnatPolicy : String;
    FselfLink : String;
    Fzone : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnatPolicy(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property id : String Index 16 Read Fid Write Setid;
    Property instance : String Index 24 Read Finstance Write Setinstance;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property natPolicy : String Index 48 Read FnatPolicy Write SetnatPolicy;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property zone : String Index 64 Read Fzone Write Setzone;
  end;
  TTargetInstanceClass = Class of TTargetInstance;
  
  { --------------------------------------------------------------------
    TTargetInstanceAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TTargetInstanceAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TTargetInstanceAggregatedListTypeitemsClass = Class of TTargetInstanceAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TTargetInstanceAggregatedList
    --------------------------------------------------------------------}
  
  TTargetInstanceAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetInstanceAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetInstanceAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetInstanceAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetInstanceAggregatedListClass = Class of TTargetInstanceAggregatedList;
  
  { --------------------------------------------------------------------
    TTargetInstanceList
    --------------------------------------------------------------------}
  
  TTargetInstanceList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetInstanceListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetInstanceListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetInstanceListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetInstanceListClass = Class of TTargetInstanceList;
  
  { --------------------------------------------------------------------
    TTargetInstancesScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TTargetInstancesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TTargetInstancesScopedListTypewarningTypedataItemClass = Class of TTargetInstancesScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TTargetInstancesScopedListTypewarning
    --------------------------------------------------------------------}
  
  TTargetInstancesScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TTargetInstancesScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TTargetInstancesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TTargetInstancesScopedListTypewarningClass = Class of TTargetInstancesScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TTargetInstancesScopedList
    --------------------------------------------------------------------}
  
  TTargetInstancesScopedList = Class(TGoogleBaseObject)
  Private
    FtargetInstances : TTargetInstancesScopedListTypetargetInstancesArray;
    Fwarning : TTargetInstancesScopedListTypewarning;
  Protected
    //Property setters
    Procedure SettargetInstances(AIndex : Integer; const AValue : TTargetInstancesScopedListTypetargetInstancesArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property targetInstances : TTargetInstancesScopedListTypetargetInstancesArray Index 0 Read FtargetInstances Write SettargetInstances;
    Property warning : TTargetInstancesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TTargetInstancesScopedListClass = Class of TTargetInstancesScopedList;
  
  { --------------------------------------------------------------------
    TTargetPool
    --------------------------------------------------------------------}
  
  TTargetPool = Class(TGoogleBaseObject)
  Private
    FbackupPool : String;
    FcreationTimestamp : String;
    Fdescription : String;
    FfailoverRatio : integer;
    FhealthChecks : TStringArray;
    Fid : String;
    Finstances : TStringArray;
    Fkind : String;
    Fname : String;
    Fregion : String;
    FselfLink : String;
    FsessionAffinity : String;
  Protected
    //Property setters
    Procedure SetbackupPool(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetfailoverRatio(AIndex : Integer; const AValue : integer); virtual;
    Procedure SethealthChecks(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsessionAffinity(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property backupPool : String Index 0 Read FbackupPool Write SetbackupPool;
    Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property failoverRatio : integer Index 24 Read FfailoverRatio Write SetfailoverRatio;
    Property healthChecks : TStringArray Index 32 Read FhealthChecks Write SethealthChecks;
    Property id : String Index 40 Read Fid Write Setid;
    Property instances : TStringArray Index 48 Read Finstances Write Setinstances;
    Property kind : String Index 56 Read Fkind Write Setkind;
    Property name : String Index 64 Read Fname Write Setname;
    Property region : String Index 72 Read Fregion Write Setregion;
    Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
    Property sessionAffinity : String Index 88 Read FsessionAffinity Write SetsessionAffinity;
  end;
  TTargetPoolClass = Class of TTargetPool;
  
  { --------------------------------------------------------------------
    TTargetPoolAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TTargetPoolAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TTargetPoolAggregatedListTypeitemsClass = Class of TTargetPoolAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TTargetPoolAggregatedList
    --------------------------------------------------------------------}
  
  TTargetPoolAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetPoolAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetPoolAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetPoolAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetPoolAggregatedListClass = Class of TTargetPoolAggregatedList;
  
  { --------------------------------------------------------------------
    TTargetPoolInstanceHealth
    --------------------------------------------------------------------}
  
  TTargetPoolInstanceHealth = Class(TGoogleBaseObject)
  Private
    FhealthStatus : TTargetPoolInstanceHealthTypehealthStatusArray;
    Fkind : String;
  Protected
    //Property setters
    Procedure SethealthStatus(AIndex : Integer; const AValue : TTargetPoolInstanceHealthTypehealthStatusArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property healthStatus : TTargetPoolInstanceHealthTypehealthStatusArray Index 0 Read FhealthStatus Write SethealthStatus;
    Property kind : String Index 8 Read Fkind Write Setkind;
  end;
  TTargetPoolInstanceHealthClass = Class of TTargetPoolInstanceHealth;
  
  { --------------------------------------------------------------------
    TTargetPoolList
    --------------------------------------------------------------------}
  
  TTargetPoolList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetPoolListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetPoolListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetPoolListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetPoolListClass = Class of TTargetPoolList;
  
  { --------------------------------------------------------------------
    TTargetPoolsAddHealthCheckRequest
    --------------------------------------------------------------------}
  
  TTargetPoolsAddHealthCheckRequest = Class(TGoogleBaseObject)
  Private
    FhealthChecks : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray;
  Protected
    //Property setters
    Procedure SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property healthChecks : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray Index 0 Read FhealthChecks Write SethealthChecks;
  end;
  TTargetPoolsAddHealthCheckRequestClass = Class of TTargetPoolsAddHealthCheckRequest;
  
  { --------------------------------------------------------------------
    TTargetPoolsAddInstanceRequest
    --------------------------------------------------------------------}
  
  TTargetPoolsAddInstanceRequest = Class(TGoogleBaseObject)
  Private
    Finstances : TTargetPoolsAddInstanceRequestTypeinstancesArray;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TTargetPoolsAddInstanceRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
  end;
  TTargetPoolsAddInstanceRequestClass = Class of TTargetPoolsAddInstanceRequest;
  
  { --------------------------------------------------------------------
    TTargetPoolsRemoveHealthCheckRequest
    --------------------------------------------------------------------}
  
  TTargetPoolsRemoveHealthCheckRequest = Class(TGoogleBaseObject)
  Private
    FhealthChecks : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray;
  Protected
    //Property setters
    Procedure SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property healthChecks : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray Index 0 Read FhealthChecks Write SethealthChecks;
  end;
  TTargetPoolsRemoveHealthCheckRequestClass = Class of TTargetPoolsRemoveHealthCheckRequest;
  
  { --------------------------------------------------------------------
    TTargetPoolsRemoveInstanceRequest
    --------------------------------------------------------------------}
  
  TTargetPoolsRemoveInstanceRequest = Class(TGoogleBaseObject)
  Private
    Finstances : TTargetPoolsRemoveInstanceRequestTypeinstancesArray;
  Protected
    //Property setters
    Procedure Setinstances(AIndex : Integer; const AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property instances : TTargetPoolsRemoveInstanceRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
  end;
  TTargetPoolsRemoveInstanceRequestClass = Class of TTargetPoolsRemoveInstanceRequest;
  
  { --------------------------------------------------------------------
    TTargetPoolsScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TTargetPoolsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TTargetPoolsScopedListTypewarningTypedataItemClass = Class of TTargetPoolsScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TTargetPoolsScopedListTypewarning
    --------------------------------------------------------------------}
  
  TTargetPoolsScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TTargetPoolsScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TTargetPoolsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TTargetPoolsScopedListTypewarningClass = Class of TTargetPoolsScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TTargetPoolsScopedList
    --------------------------------------------------------------------}
  
  TTargetPoolsScopedList = Class(TGoogleBaseObject)
  Private
    FtargetPools : TTargetPoolsScopedListTypetargetPoolsArray;
    Fwarning : TTargetPoolsScopedListTypewarning;
  Protected
    //Property setters
    Procedure SettargetPools(AIndex : Integer; const AValue : TTargetPoolsScopedListTypetargetPoolsArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property targetPools : TTargetPoolsScopedListTypetargetPoolsArray Index 0 Read FtargetPools Write SettargetPools;
    Property warning : TTargetPoolsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TTargetPoolsScopedListClass = Class of TTargetPoolsScopedList;
  
  { --------------------------------------------------------------------
    TTargetReference
    --------------------------------------------------------------------}
  
  TTargetReference = Class(TGoogleBaseObject)
  Private
    Ftarget : String;
  Protected
    //Property setters
    Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property target : String Index 0 Read Ftarget Write Settarget;
  end;
  TTargetReferenceClass = Class of TTargetReference;
  
  { --------------------------------------------------------------------
    TTargetVpnGateway
    --------------------------------------------------------------------}
  
  TTargetVpnGateway = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    FforwardingRules : TStringArray;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fnetwork : String;
    Fregion : String;
    FselfLink : String;
    Fstatus : String;
    Ftunnels : TStringArray;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetforwardingRules(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Settunnels(AIndex : Integer; const AValue : TStringArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property forwardingRules : TStringArray Index 16 Read FforwardingRules Write SetforwardingRules;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property network : String Index 48 Read Fnetwork Write Setnetwork;
    Property region : String Index 56 Read Fregion Write Setregion;
    Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
    Property status : String Index 72 Read Fstatus Write Setstatus;
    Property tunnels : TStringArray Index 80 Read Ftunnels Write Settunnels;
  end;
  TTargetVpnGatewayClass = Class of TTargetVpnGateway;
  
  { --------------------------------------------------------------------
    TTargetVpnGatewayAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TTargetVpnGatewayAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TTargetVpnGatewayAggregatedListTypeitemsClass = Class of TTargetVpnGatewayAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TTargetVpnGatewayAggregatedList
    --------------------------------------------------------------------}
  
  TTargetVpnGatewayAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetVpnGatewayAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetVpnGatewayAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetVpnGatewayAggregatedListClass = Class of TTargetVpnGatewayAggregatedList;
  
  { --------------------------------------------------------------------
    TTargetVpnGatewayList
    --------------------------------------------------------------------}
  
  TTargetVpnGatewayList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TTargetVpnGatewayListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TTargetVpnGatewayListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TTargetVpnGatewayListClass = Class of TTargetVpnGatewayList;
  
  { --------------------------------------------------------------------
    TTargetVpnGatewaysScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TTargetVpnGatewaysScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TTargetVpnGatewaysScopedListTypewarningTypedataItemClass = Class of TTargetVpnGatewaysScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TTargetVpnGatewaysScopedListTypewarning
    --------------------------------------------------------------------}
  
  TTargetVpnGatewaysScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TTargetVpnGatewaysScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TTargetVpnGatewaysScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TTargetVpnGatewaysScopedListTypewarningClass = Class of TTargetVpnGatewaysScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TTargetVpnGatewaysScopedList
    --------------------------------------------------------------------}
  
  TTargetVpnGatewaysScopedList = Class(TGoogleBaseObject)
  Private
    FtargetVpnGateways : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray;
    Fwarning : TTargetVpnGatewaysScopedListTypewarning;
  Protected
    //Property setters
    Procedure SettargetVpnGateways(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property targetVpnGateways : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray Index 0 Read FtargetVpnGateways Write SettargetVpnGateways;
    Property warning : TTargetVpnGatewaysScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TTargetVpnGatewaysScopedListClass = Class of TTargetVpnGatewaysScopedList;
  
  { --------------------------------------------------------------------
    TTestFailure
    --------------------------------------------------------------------}
  
  TTestFailure = Class(TGoogleBaseObject)
  Private
    FactualService : String;
    FexpectedService : String;
    Fhost : String;
    Fpath : String;
  Protected
    //Property setters
    Procedure SetactualService(AIndex : Integer; const AValue : String); virtual;
    Procedure SetexpectedService(AIndex : Integer; const AValue : String); virtual;
    Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property actualService : String Index 0 Read FactualService Write SetactualService;
    Property expectedService : String Index 8 Read FexpectedService Write SetexpectedService;
    Property host : String Index 16 Read Fhost Write Sethost;
    Property path : String Index 24 Read Fpath Write Setpath;
  end;
  TTestFailureClass = Class of TTestFailure;
  
  { --------------------------------------------------------------------
    TUrlMap
    --------------------------------------------------------------------}
  
  TUrlMap = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    FdefaultService : String;
    Fdescription : String;
    Ffingerprint : String;
    FhostRules : TUrlMapTypehostRulesArray;
    Fid : String;
    Fkind : String;
    Fname : String;
    FpathMatchers : TUrlMapTypepathMatchersArray;
    FselfLink : String;
    Ftests : TUrlMapTypetestsArray;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdefaultService(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
    Procedure SethostRules(AIndex : Integer; const AValue : TUrlMapTypehostRulesArray); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpathMatchers(AIndex : Integer; const AValue : TUrlMapTypepathMatchersArray); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Settests(AIndex : Integer; const AValue : TUrlMapTypetestsArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property defaultService : String Index 8 Read FdefaultService Write SetdefaultService;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property fingerprint : String Index 24 Read Ffingerprint Write Setfingerprint;
    Property hostRules : TUrlMapTypehostRulesArray Index 32 Read FhostRules Write SethostRules;
    Property id : String Index 40 Read Fid Write Setid;
    Property kind : String Index 48 Read Fkind Write Setkind;
    Property name : String Index 56 Read Fname Write Setname;
    Property pathMatchers : TUrlMapTypepathMatchersArray Index 64 Read FpathMatchers Write SetpathMatchers;
    Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
    Property tests : TUrlMapTypetestsArray Index 80 Read Ftests Write Settests;
  end;
  TUrlMapClass = Class of TUrlMap;
  
  { --------------------------------------------------------------------
    TUrlMapList
    --------------------------------------------------------------------}
  
  TUrlMapList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TUrlMapListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TUrlMapListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TUrlMapListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TUrlMapListClass = Class of TUrlMapList;
  
  { --------------------------------------------------------------------
    TUrlMapReference
    --------------------------------------------------------------------}
  
  TUrlMapReference = Class(TGoogleBaseObject)
  Private
    FurlMap : String;
  Protected
    //Property setters
    Procedure SeturlMap(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property urlMap : String Index 0 Read FurlMap Write SeturlMap;
  end;
  TUrlMapReferenceClass = Class of TUrlMapReference;
  
  { --------------------------------------------------------------------
    TUrlMapTest
    --------------------------------------------------------------------}
  
  TUrlMapTest = Class(TGoogleBaseObject)
  Private
    Fdescription : String;
    Fhost : String;
    Fpath : String;
    Fservice : String;
  Protected
    //Property setters
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
    Procedure Setservice(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property description : String Index 0 Read Fdescription Write Setdescription;
    Property host : String Index 8 Read Fhost Write Sethost;
    Property path : String Index 16 Read Fpath Write Setpath;
    Property service : String Index 24 Read Fservice Write Setservice;
  end;
  TUrlMapTestClass = Class of TUrlMapTest;
  
  { --------------------------------------------------------------------
    TUrlMapValidationResult
    --------------------------------------------------------------------}
  
  TUrlMapValidationResult = Class(TGoogleBaseObject)
  Private
    FloadErrors : TStringArray;
    FloadSucceeded : boolean;
    FtestFailures : TUrlMapValidationResultTypetestFailuresArray;
    FtestPassed : boolean;
  Protected
    //Property setters
    Procedure SetloadErrors(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure SetloadSucceeded(AIndex : Integer; const AValue : boolean); virtual;
    Procedure SettestFailures(AIndex : Integer; const AValue : TUrlMapValidationResultTypetestFailuresArray); virtual;
    Procedure SettestPassed(AIndex : Integer; const AValue : boolean); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property loadErrors : TStringArray Index 0 Read FloadErrors Write SetloadErrors;
    Property loadSucceeded : boolean Index 8 Read FloadSucceeded Write SetloadSucceeded;
    Property testFailures : TUrlMapValidationResultTypetestFailuresArray Index 16 Read FtestFailures Write SettestFailures;
    Property testPassed : boolean Index 24 Read FtestPassed Write SettestPassed;
  end;
  TUrlMapValidationResultClass = Class of TUrlMapValidationResult;
  
  { --------------------------------------------------------------------
    TUrlMapsValidateRequest
    --------------------------------------------------------------------}
  
  TUrlMapsValidateRequest = Class(TGoogleBaseObject)
  Private
    Fresource : TUrlMap;
  Protected
    //Property setters
    Procedure Setresource(AIndex : Integer; const AValue : TUrlMap); virtual;
  Public
  Published
    Property resource : TUrlMap Index 0 Read Fresource Write Setresource;
  end;
  TUrlMapsValidateRequestClass = Class of TUrlMapsValidateRequest;
  
  { --------------------------------------------------------------------
    TUrlMapsValidateResponse
    --------------------------------------------------------------------}
  
  TUrlMapsValidateResponse = Class(TGoogleBaseObject)
  Private
    Fresult : TUrlMapValidationResult;
  Protected
    //Property setters
    Procedure Setresult(AIndex : Integer; const AValue : TUrlMapValidationResult); virtual;
  Public
  Published
    Property result : TUrlMapValidationResult Index 0 Read Fresult Write Setresult;
  end;
  TUrlMapsValidateResponseClass = Class of TUrlMapsValidateResponse;
  
  { --------------------------------------------------------------------
    TUsageExportLocation
    --------------------------------------------------------------------}
  
  TUsageExportLocation = Class(TGoogleBaseObject)
  Private
    FbucketName : String;
    FreportNamePrefix : String;
  Protected
    //Property setters
    Procedure SetbucketName(AIndex : Integer; const AValue : String); virtual;
    Procedure SetreportNamePrefix(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property bucketName : String Index 0 Read FbucketName Write SetbucketName;
    Property reportNamePrefix : String Index 8 Read FreportNamePrefix Write SetreportNamePrefix;
  end;
  TUsageExportLocationClass = Class of TUsageExportLocation;
  
  { --------------------------------------------------------------------
    TVpnTunnel
    --------------------------------------------------------------------}
  
  TVpnTunnel = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdescription : String;
    FdetailedStatus : String;
    Fid : String;
    FikeVersion : integer;
    Fkind : String;
    FlocalTrafficSelector : TStringArray;
    Fname : String;
    FpeerIp : String;
    Fregion : String;
    FselfLink : String;
    FsharedSecret : String;
    FsharedSecretHash : String;
    Fstatus : String;
    FtargetVpnGateway : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure SetdetailedStatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetikeVersion(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetlocalTrafficSelector(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpeerIp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsharedSecret(AIndex : Integer; const AValue : String); virtual;
    Procedure SetsharedSecretHash(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure SettargetVpnGateway(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property detailedStatus : String Index 16 Read FdetailedStatus Write SetdetailedStatus;
    Property id : String Index 24 Read Fid Write Setid;
    Property ikeVersion : integer Index 32 Read FikeVersion Write SetikeVersion;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property localTrafficSelector : TStringArray Index 48 Read FlocalTrafficSelector Write SetlocalTrafficSelector;
    Property name : String Index 56 Read Fname Write Setname;
    Property peerIp : String Index 64 Read FpeerIp Write SetpeerIp;
    Property region : String Index 72 Read Fregion Write Setregion;
    Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
    Property sharedSecret : String Index 88 Read FsharedSecret Write SetsharedSecret;
    Property sharedSecretHash : String Index 96 Read FsharedSecretHash Write SetsharedSecretHash;
    Property status : String Index 104 Read Fstatus Write Setstatus;
    Property targetVpnGateway : String Index 112 Read FtargetVpnGateway Write SettargetVpnGateway;
  end;
  TVpnTunnelClass = Class of TVpnTunnel;
  
  { --------------------------------------------------------------------
    TVpnTunnelAggregatedListTypeitems
    --------------------------------------------------------------------}
  
  TVpnTunnelAggregatedListTypeitems = Class(TGoogleBaseObject)
  Private
  Protected
    //Property setters
  Public
    Class Function AllowAdditionalProperties : Boolean; override;
  Published
  end;
  TVpnTunnelAggregatedListTypeitemsClass = Class of TVpnTunnelAggregatedListTypeitems;
  
  { --------------------------------------------------------------------
    TVpnTunnelAggregatedList
    --------------------------------------------------------------------}
  
  TVpnTunnelAggregatedList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TVpnTunnelAggregatedListTypeitems;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TVpnTunnelAggregatedListTypeitems); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TVpnTunnelAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TVpnTunnelAggregatedListClass = Class of TVpnTunnelAggregatedList;
  
  { --------------------------------------------------------------------
    TVpnTunnelList
    --------------------------------------------------------------------}
  
  TVpnTunnelList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TVpnTunnelListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TVpnTunnelListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TVpnTunnelListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TVpnTunnelListClass = Class of TVpnTunnelList;
  
  { --------------------------------------------------------------------
    TVpnTunnelsScopedListTypewarningTypedataItem
    --------------------------------------------------------------------}
  
  TVpnTunnelsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
  Private
    Fkey : String;
    Fvalue : String;
  Protected
    //Property setters
    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property key : String Index 0 Read Fkey Write Setkey;
    Property value : String Index 8 Read Fvalue Write Setvalue;
  end;
  TVpnTunnelsScopedListTypewarningTypedataItemClass = Class of TVpnTunnelsScopedListTypewarningTypedataItem;
  
  { --------------------------------------------------------------------
    TVpnTunnelsScopedListTypewarning
    --------------------------------------------------------------------}
  
  TVpnTunnelsScopedListTypewarning = Class(TGoogleBaseObject)
  Private
    Fcode : String;
    Fdata : TVpnTunnelsScopedListTypewarningTypedataArray;
    Fmessage : String;
  Protected
    //Property setters
    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdata(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarningTypedataArray); virtual;
    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property code : String Index 0 Read Fcode Write Setcode;
    Property data : TVpnTunnelsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
    Property message : String Index 16 Read Fmessage Write Setmessage;
  end;
  TVpnTunnelsScopedListTypewarningClass = Class of TVpnTunnelsScopedListTypewarning;
  
  { --------------------------------------------------------------------
    TVpnTunnelsScopedList
    --------------------------------------------------------------------}
  
  TVpnTunnelsScopedList = Class(TGoogleBaseObject)
  Private
    FvpnTunnels : TVpnTunnelsScopedListTypevpnTunnelsArray;
    Fwarning : TVpnTunnelsScopedListTypewarning;
  Protected
    //Property setters
    Procedure SetvpnTunnels(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypevpnTunnelsArray); virtual;
    Procedure Setwarning(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarning); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property vpnTunnels : TVpnTunnelsScopedListTypevpnTunnelsArray Index 0 Read FvpnTunnels Write SetvpnTunnels;
    Property warning : TVpnTunnelsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
  end;
  TVpnTunnelsScopedListClass = Class of TVpnTunnelsScopedList;
  
  { --------------------------------------------------------------------
    TZone
    --------------------------------------------------------------------}
  
  TZone = Class(TGoogleBaseObject)
  Private
    FcreationTimestamp : String;
    Fdeprecated : TDeprecationStatus;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Fname : String;
    Fregion : String;
    FselfLink : String;
    Fstatus : String;
  Protected
    //Property setters
    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
    Property deprecated : TDeprecationStatus Index 8 Read Fdeprecated Write Setdeprecated;
    Property description : String Index 16 Read Fdescription Write Setdescription;
    Property id : String Index 24 Read Fid Write Setid;
    Property kind : String Index 32 Read Fkind Write Setkind;
    Property name : String Index 40 Read Fname Write Setname;
    Property region : String Index 48 Read Fregion Write Setregion;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property status : String Index 64 Read Fstatus Write Setstatus;
  end;
  TZoneClass = Class of TZone;
  
  { --------------------------------------------------------------------
    TZoneList
    --------------------------------------------------------------------}
  
  TZoneList = Class(TGoogleBaseObject)
  Private
    Fid : String;
    Fitems : TZoneListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FselfLink : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
    Property items : TZoneListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  end;
  TZoneListClass = Class of TZoneList;
  
  { --------------------------------------------------------------------
    TAddressesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TAddressesResource, method AggregatedList
  
  TAddressesAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TAddressesResource, method List
  
  TAddressesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TAddressesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TAddressAggregatedList;
    Function AggregatedList(project: string; AQuery : TAddressesaggregatedListOptions) : TAddressAggregatedList;
    Function Delete(address: string; project: string; region: string) : TOperation;
    Function Get(address: string; project: string; region: string) : TAddress;
    Function Insert(project: string; region: string; aAddress : TAddress) : TOperation;
    Function List(project: string; region: string; AQuery : string  = '') : TAddressList;
    Function List(project: string; region: string; AQuery : TAddresseslistOptions) : TAddressList;
  end;
  
  
  { --------------------------------------------------------------------
    TAutoscalersResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TAutoscalersResource, method AggregatedList
  
  TAutoscalersAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TAutoscalersResource, method List
  
  TAutoscalersListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TAutoscalersResource, method Patch
  
  TAutoscalersPatchOptions = Record
    autoscaler : String;
  end;
  
  
  //Optional query Options for TAutoscalersResource, method Update
  
  TAutoscalersUpdateOptions = Record
    autoscaler : String;
  end;
  
  TAutoscalersResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TAutoscalerAggregatedList;
    Function AggregatedList(project: string; AQuery : TAutoscalersaggregatedListOptions) : TAutoscalerAggregatedList;
    Function Delete(autoscaler: string; project: string; zone: string) : TOperation;
    Function Get(autoscaler: string; project: string; zone: string) : TAutoscaler;
    Function Insert(project: string; zone: string; aAutoscaler : TAutoscaler) : TOperation;
    Function List(project: string; zone: string; AQuery : string  = '') : TAutoscalerList;
    Function List(project: string; zone: string; AQuery : TAutoscalerslistOptions) : TAutoscalerList;
    Function Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string  = '') : TOperation;
    Function Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalerspatchOptions) : TOperation;
    Function Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string  = '') : TOperation;
    Function Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalersupdateOptions) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TBackendServicesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TBackendServicesResource, method List
  
  TBackendServicesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TBackendServicesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(backendService: string; project: string) : TOperation;
    Function Get(backendService: string; project: string) : TBackendService;
    Function GetHealth(backendService: string; project: string; aResourceGroupReference : TResourceGroupReference) : TBackendServiceGroupHealth;
    Function Insert(project: string; aBackendService : TBackendService) : TOperation;
    Function List(project: string; AQuery : string  = '') : TBackendServiceList;
    Function List(project: string; AQuery : TBackendServiceslistOptions) : TBackendServiceList;
    Function Patch(backendService: string; project: string; aBackendService : TBackendService) : TOperation;
    Function Update(backendService: string; project: string; aBackendService : TBackendService) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TDiskTypesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TDiskTypesResource, method AggregatedList
  
  TDiskTypesAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TDiskTypesResource, method List
  
  TDiskTypesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TDiskTypesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TDiskTypeAggregatedList;
    Function AggregatedList(project: string; AQuery : TDiskTypesaggregatedListOptions) : TDiskTypeAggregatedList;
    Function Get(diskType: string; project: string; zone: string) : TDiskType;
    Function List(project: string; zone: string; AQuery : string  = '') : TDiskTypeList;
    Function List(project: string; zone: string; AQuery : TDiskTypeslistOptions) : TDiskTypeList;
  end;
  
  
  { --------------------------------------------------------------------
    TDisksResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TDisksResource, method AggregatedList
  
  TDisksAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TDisksResource, method Insert
  
  TDisksInsertOptions = Record
    sourceImage : String;
  end;
  
  
  //Optional query Options for TDisksResource, method List
  
  TDisksListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TDisksResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TDiskAggregatedList;
    Function AggregatedList(project: string; AQuery : TDisksaggregatedListOptions) : TDiskAggregatedList;
    Function CreateSnapshot(disk: string; project: string; zone: string; aSnapshot : TSnapshot) : TOperation;
    Function Delete(disk: string; project: string; zone: string) : TOperation;
    Function Get(disk: string; project: string; zone: string) : TDisk;
    Function Insert(project: string; zone: string; aDisk : TDisk; AQuery : string  = '') : TOperation;
    Function Insert(project: string; zone: string; aDisk : TDisk; AQuery : TDisksinsertOptions) : TOperation;
    Function List(project: string; zone: string; AQuery : string  = '') : TDiskList;
    Function List(project: string; zone: string; AQuery : TDiskslistOptions) : TDiskList;
    Function Resize(disk: string; project: string; zone: string; aDisksResizeRequest : TDisksResizeRequest) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TFirewallsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TFirewallsResource, method List
  
  TFirewallsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TFirewallsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(firewall: string; project: string) : TOperation;
    Function Get(firewall: string; project: string) : TFirewall;
    Function Insert(project: string; aFirewall : TFirewall) : TOperation;
    Function List(project: string; AQuery : string  = '') : TFirewallList;
    Function List(project: string; AQuery : TFirewallslistOptions) : TFirewallList;
    Function Patch(firewall: string; project: string; aFirewall : TFirewall) : TOperation;
    Function Update(firewall: string; project: string; aFirewall : TFirewall) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TForwardingRulesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TForwardingRulesResource, method AggregatedList
  
  TForwardingRulesAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TForwardingRulesResource, method List
  
  TForwardingRulesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TForwardingRulesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TForwardingRuleAggregatedList;
    Function AggregatedList(project: string; AQuery : TForwardingRulesaggregatedListOptions) : TForwardingRuleAggregatedList;
    Function Delete(forwardingRule: string; project: string; region: string) : TOperation;
    Function Get(forwardingRule: string; project: string; region: string) : TForwardingRule;
    Function Insert(project: string; region: string; aForwardingRule : TForwardingRule) : TOperation;
    Function List(project: string; region: string; AQuery : string  = '') : TForwardingRuleList;
    Function List(project: string; region: string; AQuery : TForwardingRuleslistOptions) : TForwardingRuleList;
    Function SetTarget(forwardingRule: string; project: string; region: string; aTargetReference : TTargetReference) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TGlobalAddressesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TGlobalAddressesResource, method List
  
  TGlobalAddressesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TGlobalAddressesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(address: string; project: string) : TOperation;
    Function Get(address: string; project: string) : TAddress;
    Function Insert(project: string; aAddress : TAddress) : TOperation;
    Function List(project: string; AQuery : string  = '') : TAddressList;
    Function List(project: string; AQuery : TGlobalAddresseslistOptions) : TAddressList;
  end;
  
  
  { --------------------------------------------------------------------
    TGlobalForwardingRulesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TGlobalForwardingRulesResource, method List
  
  TGlobalForwardingRulesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TGlobalForwardingRulesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(forwardingRule: string; project: string) : TOperation;
    Function Get(forwardingRule: string; project: string) : TForwardingRule;
    Function Insert(project: string; aForwardingRule : TForwardingRule) : TOperation;
    Function List(project: string; AQuery : string  = '') : TForwardingRuleList;
    Function List(project: string; AQuery : TGlobalForwardingRuleslistOptions) : TForwardingRuleList;
    Function SetTarget(forwardingRule: string; project: string; aTargetReference : TTargetReference) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TGlobalOperationsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TGlobalOperationsResource, method AggregatedList
  
  TGlobalOperationsAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TGlobalOperationsResource, method List
  
  TGlobalOperationsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TGlobalOperationsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TOperationAggregatedList;
    Function AggregatedList(project: string; AQuery : TGlobalOperationsaggregatedListOptions) : TOperationAggregatedList;
    Procedure Delete(operation: string; project: string);
    Function Get(operation: string; project: string) : TOperation;
    Function List(project: string; AQuery : string  = '') : TOperationList;
    Function List(project: string; AQuery : TGlobalOperationslistOptions) : TOperationList;
  end;
  
  
  { --------------------------------------------------------------------
    THttpHealthChecksResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for THttpHealthChecksResource, method List
  
  THttpHealthChecksListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  THttpHealthChecksResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(httpHealthCheck: string; project: string) : TOperation;
    Function Get(httpHealthCheck: string; project: string) : THttpHealthCheck;
    Function Insert(project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
    Function List(project: string; AQuery : string  = '') : THttpHealthCheckList;
    Function List(project: string; AQuery : THttpHealthCheckslistOptions) : THttpHealthCheckList;
    Function Patch(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
    Function Update(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    THttpsHealthChecksResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for THttpsHealthChecksResource, method List
  
  THttpsHealthChecksListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  THttpsHealthChecksResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(httpsHealthCheck: string; project: string) : TOperation;
    Function Get(httpsHealthCheck: string; project: string) : THttpsHealthCheck;
    Function Insert(project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
    Function List(project: string; AQuery : string  = '') : THttpsHealthCheckList;
    Function List(project: string; AQuery : THttpsHealthCheckslistOptions) : THttpsHealthCheckList;
    Function Patch(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
    Function Update(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TImagesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TImagesResource, method List
  
  TImagesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TImagesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(image: string; project: string) : TOperation;
    Function Deprecate(image: string; project: string; aDeprecationStatus : TDeprecationStatus) : TOperation;
    Function Get(image: string; project: string) : TImage;
    Function GetFromFamily(family: string; project: string) : TImage;
    Function Insert(project: string; aImage : TImage) : TOperation;
    Function List(project: string; AQuery : string  = '') : TImageList;
    Function List(project: string; AQuery : TImageslistOptions) : TImageList;
  end;
  
  
  { --------------------------------------------------------------------
    TInstanceGroupManagersResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TInstanceGroupManagersResource, method AggregatedList
  
  TInstanceGroupManagersAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TInstanceGroupManagersResource, method List
  
  TInstanceGroupManagersListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TInstanceGroupManagersResource, method Resize
  
  TInstanceGroupManagersResizeOptions = Record
    size : integer;
  end;
  
  TInstanceGroupManagersResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AbandonInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersAbandonInstancesRequest : TInstanceGroupManagersAbandonInstancesRequest) : TOperation;
    Function AggregatedList(project: string; AQuery : string  = '') : TInstanceGroupManagerAggregatedList;
    Function AggregatedList(project: string; AQuery : TInstanceGroupManagersaggregatedListOptions) : TInstanceGroupManagerAggregatedList;
    Function Delete(instanceGroupManager: string; project: string; zone: string) : TOperation;
    Function DeleteInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersDeleteInstancesRequest : TInstanceGroupManagersDeleteInstancesRequest) : TOperation;
    Function Get(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManager;
    Function Insert(project: string; zone: string; aInstanceGroupManager : TInstanceGroupManager) : TOperation;
    Function List(project: string; zone: string; AQuery : string  = '') : TInstanceGroupManagerList;
    Function List(project: string; zone: string; AQuery : TInstanceGroupManagerslistOptions) : TInstanceGroupManagerList;
    Function ListManagedInstances(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManagersListManagedInstancesResponse;
    Function RecreateInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersRecreateInstancesRequest : TInstanceGroupManagersRecreateInstancesRequest) : TOperation;
    Function Resize(instanceGroupManager: string; project: string; zone: string; AQuery : string  = '') : TOperation;
    Function Resize(instanceGroupManager: string; project: string; zone: string; AQuery : TInstanceGroupManagersresizeOptions) : TOperation;
    Function SetInstanceTemplate(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetInstanceTemplateRequest : TInstanceGroupManagersSetInstanceTemplateRequest) : TOperation;
    Function SetTargetPools(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetTargetPoolsRequest : TInstanceGroupManagersSetTargetPoolsRequest) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TInstanceGroupsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TInstanceGroupsResource, method AggregatedList
  
  TInstanceGroupsAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TInstanceGroupsResource, method List
  
  TInstanceGroupsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TInstanceGroupsResource, method ListInstances
  
  TInstanceGroupsListInstancesOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TInstanceGroupsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AddInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsAddInstancesRequest : TInstanceGroupsAddInstancesRequest) : TOperation;
    Function AggregatedList(project: string; AQuery : string  = '') : TInstanceGroupAggregatedList;
    Function AggregatedList(project: string; AQuery : TInstanceGroupsaggregatedListOptions) : TInstanceGroupAggregatedList;
    Function Delete(instanceGroup: string; project: string; zone: string) : TOperation;
    Function Get(instanceGroup: string; project: string; zone: string) : TInstanceGroup;
    Function Insert(project: string; zone: string; aInstanceGroup : TInstanceGroup) : TOperation;
    Function List(project: string; zone: string; AQuery : string  = '') : TInstanceGroupList;
    Function List(project: string; zone: string; AQuery : TInstanceGroupslistOptions) : TInstanceGroupList;
    Function ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : string  = '') : TInstanceGroupsListInstances;
    Function ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : TInstanceGroupslistInstancesOptions) : TInstanceGroupsListInstances;
    Function RemoveInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsRemoveInstancesRequest : TInstanceGroupsRemoveInstancesRequest) : TOperation;
    Function SetNamedPorts(instanceGroup: string; project: string; zone: string; aInstanceGroupsSetNamedPortsRequest : TInstanceGroupsSetNamedPortsRequest) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TInstanceTemplatesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TInstanceTemplatesResource, method List
  
  TInstanceTemplatesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TInstanceTemplatesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(instanceTemplate: string; project: string) : TOperation;
    Function Get(instanceTemplate: string; project: string) : TInstanceTemplate;
    Function Insert(project: string; aInstanceTemplate : TInstanceTemplate) : TOperation;
    Function List(project: string; AQuery : string  = '') : TInstanceTemplateList;
    Function List(project: string; AQuery : TInstanceTemplateslistOptions) : TInstanceTemplateList;
  end;
  
  
  { --------------------------------------------------------------------
    TInstancesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TInstancesResource, method AddAccessConfig
  
  TInstancesAddAccessConfigOptions = Record
    networkInterface : String;
  end;
  
  
  //Optional query Options for TInstancesResource, method AggregatedList
  
  TInstancesAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TInstancesResource, method DeleteAccessConfig
  
  TInstancesDeleteAccessConfigOptions = Record
    accessConfig : String;
    networkInterface : String;
  end;
  
  
  //Optional query Options for TInstancesResource, method DetachDisk
  
  TInstancesDetachDiskOptions = Record
    deviceName : String;
  end;
  
  
  //Optional query Options for TInstancesResource, method GetSerialPortOutput
  
  TInstancesGetSerialPortOutputOptions = Record
    port : integer;
  end;
  
  
  //Optional query Options for TInstancesResource, method List
  
  TInstancesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TInstancesResource, method SetDiskAutoDelete
  
  TInstancesSetDiskAutoDeleteOptions = Record
    autoDelete : boolean;
    deviceName : String;
  end;
  
  TInstancesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : string  = '') : TOperation;
    Function AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : TInstancesaddAccessConfigOptions) : TOperation;
    Function AggregatedList(project: string; AQuery : string  = '') : TInstanceAggregatedList;
    Function AggregatedList(project: string; AQuery : TInstancesaggregatedListOptions) : TInstanceAggregatedList;
    Function AttachDisk(instance: string; project: string; zone: string; aAttachedDisk : TAttachedDisk) : TOperation;
    Function Delete(instance: string; project: string; zone: string) : TOperation;
    Function DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : string  = '') : TOperation;
    Function DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : TInstancesdeleteAccessConfigOptions) : TOperation;
    Function DetachDisk(instance: string; project: string; zone: string; AQuery : string  = '') : TOperation;
    Function DetachDisk(instance: string; project: string; zone: string; AQuery : TInstancesdetachDiskOptions) : TOperation;
    Function Get(instance: string; project: string; zone: string) : TInstance;
    Function GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : string  = '') : TSerialPortOutput;
    Function GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : TInstancesgetSerialPortOutputOptions) : TSerialPortOutput;
    Function Insert(project: string; zone: string; aInstance : TInstance) : TOperation;
    Function List(project: string; zone: string; AQuery : string  = '') : TInstanceList;
    Function List(project: string; zone: string; AQuery : TInstanceslistOptions) : TInstanceList;
    Function Reset(instance: string; project: string; zone: string) : TOperation;
    Function SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : string  = '') : TOperation;
    Function SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : TInstancessetDiskAutoDeleteOptions) : TOperation;
    Function SetMachineType(instance: string; project: string; zone: string; aInstancesSetMachineTypeRequest : TInstancesSetMachineTypeRequest) : TOperation;
    Function SetMetadata(instance: string; project: string; zone: string; aMetadata : TMetadata) : TOperation;
    Function SetScheduling(instance: string; project: string; zone: string; aScheduling : TScheduling) : TOperation;
    Function SetTags(instance: string; project: string; zone: string; aTags : TTags) : TOperation;
    Function Start(instance: string; project: string; zone: string) : TOperation;
    Function Stop(instance: string; project: string; zone: string) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TLicensesResource
    --------------------------------------------------------------------}
  
  TLicensesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(license: string; project: string) : TLicense;
  end;
  
  
  { --------------------------------------------------------------------
    TMachineTypesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TMachineTypesResource, method AggregatedList
  
  TMachineTypesAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TMachineTypesResource, method List
  
  TMachineTypesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TMachineTypesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TMachineTypeAggregatedList;
    Function AggregatedList(project: string; AQuery : TMachineTypesaggregatedListOptions) : TMachineTypeAggregatedList;
    Function Get(machineType: string; project: string; zone: string) : TMachineType;
    Function List(project: string; zone: string; AQuery : string  = '') : TMachineTypeList;
    Function List(project: string; zone: string; AQuery : TMachineTypeslistOptions) : TMachineTypeList;
  end;
  
  
  { --------------------------------------------------------------------
    TNetworksResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TNetworksResource, method List
  
  TNetworksListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TNetworksResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(network: string; project: string) : TOperation;
    Function Get(network: string; project: string) : TNetwork;
    Function Insert(project: string; aNetwork : TNetwork) : TOperation;
    Function List(project: string; AQuery : string  = '') : TNetworkList;
    Function List(project: string; AQuery : TNetworkslistOptions) : TNetworkList;
  end;
  
  
  { --------------------------------------------------------------------
    TProjectsResource
    --------------------------------------------------------------------}
  
  TProjectsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(project: string) : TProject;
    Function MoveDisk(project: string; aDiskMoveRequest : TDiskMoveRequest) : TOperation;
    Function MoveInstance(project: string; aInstanceMoveRequest : TInstanceMoveRequest) : TOperation;
    Function SetCommonInstanceMetadata(project: string; aMetadata : TMetadata) : TOperation;
    Function SetUsageExportBucket(project: string; aUsageExportLocation : TUsageExportLocation) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TRegionOperationsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TRegionOperationsResource, method List
  
  TRegionOperationsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TRegionOperationsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Procedure Delete(operation: string; project: string; region: string);
    Function Get(operation: string; project: string; region: string) : TOperation;
    Function List(project: string; region: string; AQuery : string  = '') : TOperationList;
    Function List(project: string; region: string; AQuery : TRegionOperationslistOptions) : TOperationList;
  end;
  
  
  { --------------------------------------------------------------------
    TRegionsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TRegionsResource, method List
  
  TRegionsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TRegionsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(project: string; region: string) : TRegion;
    Function List(project: string; AQuery : string  = '') : TRegionList;
    Function List(project: string; AQuery : TRegionslistOptions) : TRegionList;
  end;
  
  
  { --------------------------------------------------------------------
    TRoutesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TRoutesResource, method List
  
  TRoutesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TRoutesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(project: string; route: string) : TOperation;
    Function Get(project: string; route: string) : TRoute;
    Function Insert(project: string; aRoute : TRoute) : TOperation;
    Function List(project: string; AQuery : string  = '') : TRouteList;
    Function List(project: string; AQuery : TRouteslistOptions) : TRouteList;
  end;
  
  
  { --------------------------------------------------------------------
    TSnapshotsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TSnapshotsResource, method List
  
  TSnapshotsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TSnapshotsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(project: string; snapshot: string) : TOperation;
    Function Get(project: string; snapshot: string) : TSnapshot;
    Function List(project: string; AQuery : string  = '') : TSnapshotList;
    Function List(project: string; AQuery : TSnapshotslistOptions) : TSnapshotList;
  end;
  
  
  { --------------------------------------------------------------------
    TSslCertificatesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TSslCertificatesResource, method List
  
  TSslCertificatesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TSslCertificatesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(project: string; sslCertificate: string) : TOperation;
    Function Get(project: string; sslCertificate: string) : TSslCertificate;
    Function Insert(project: string; aSslCertificate : TSslCertificate) : TOperation;
    Function List(project: string; AQuery : string  = '') : TSslCertificateList;
    Function List(project: string; AQuery : TSslCertificateslistOptions) : TSslCertificateList;
  end;
  
  
  { --------------------------------------------------------------------
    TSubnetworksResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TSubnetworksResource, method AggregatedList
  
  TSubnetworksAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TSubnetworksResource, method List
  
  TSubnetworksListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TSubnetworksResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TSubnetworkAggregatedList;
    Function AggregatedList(project: string; AQuery : TSubnetworksaggregatedListOptions) : TSubnetworkAggregatedList;
    Function Delete(project: string; region: string; subnetwork: string) : TOperation;
    Function Get(project: string; region: string; subnetwork: string) : TSubnetwork;
    Function Insert(project: string; region: string; aSubnetwork : TSubnetwork) : TOperation;
    Function List(project: string; region: string; AQuery : string  = '') : TSubnetworkList;
    Function List(project: string; region: string; AQuery : TSubnetworkslistOptions) : TSubnetworkList;
  end;
  
  
  { --------------------------------------------------------------------
    TTargetHttpProxiesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TTargetHttpProxiesResource, method List
  
  TTargetHttpProxiesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TTargetHttpProxiesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(project: string; targetHttpProxy: string) : TOperation;
    Function Get(project: string; targetHttpProxy: string) : TTargetHttpProxy;
    Function Insert(project: string; aTargetHttpProxy : TTargetHttpProxy) : TOperation;
    Function List(project: string; AQuery : string  = '') : TTargetHttpProxyList;
    Function List(project: string; AQuery : TTargetHttpProxieslistOptions) : TTargetHttpProxyList;
    Function SetUrlMap(project: string; targetHttpProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TTargetHttpsProxiesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TTargetHttpsProxiesResource, method List
  
  TTargetHttpsProxiesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TTargetHttpsProxiesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(project: string; targetHttpsProxy: string) : TOperation;
    Function Get(project: string; targetHttpsProxy: string) : TTargetHttpsProxy;
    Function Insert(project: string; aTargetHttpsProxy : TTargetHttpsProxy) : TOperation;
    Function List(project: string; AQuery : string  = '') : TTargetHttpsProxyList;
    Function List(project: string; AQuery : TTargetHttpsProxieslistOptions) : TTargetHttpsProxyList;
    Function SetSslCertificates(project: string; targetHttpsProxy: string; aTargetHttpsProxiesSetSslCertificatesRequest : TTargetHttpsProxiesSetSslCertificatesRequest) : TOperation;
    Function SetUrlMap(project: string; targetHttpsProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TTargetInstancesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TTargetInstancesResource, method AggregatedList
  
  TTargetInstancesAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TTargetInstancesResource, method List
  
  TTargetInstancesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TTargetInstancesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TTargetInstanceAggregatedList;
    Function AggregatedList(project: string; AQuery : TTargetInstancesaggregatedListOptions) : TTargetInstanceAggregatedList;
    Function Delete(project: string; targetInstance: string; zone: string) : TOperation;
    Function Get(project: string; targetInstance: string; zone: string) : TTargetInstance;
    Function Insert(project: string; zone: string; aTargetInstance : TTargetInstance) : TOperation;
    Function List(project: string; zone: string; AQuery : string  = '') : TTargetInstanceList;
    Function List(project: string; zone: string; AQuery : TTargetInstanceslistOptions) : TTargetInstanceList;
  end;
  
  
  { --------------------------------------------------------------------
    TTargetPoolsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TTargetPoolsResource, method AggregatedList
  
  TTargetPoolsAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TTargetPoolsResource, method List
  
  TTargetPoolsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TTargetPoolsResource, method SetBackup
  
  TTargetPoolsSetBackupOptions = Record
    failoverRatio : integer;
  end;
  
  TTargetPoolsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AddHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsAddHealthCheckRequest : TTargetPoolsAddHealthCheckRequest) : TOperation;
    Function AddInstance(project: string; region: string; targetPool: string; aTargetPoolsAddInstanceRequest : TTargetPoolsAddInstanceRequest) : TOperation;
    Function AggregatedList(project: string; AQuery : string  = '') : TTargetPoolAggregatedList;
    Function AggregatedList(project: string; AQuery : TTargetPoolsaggregatedListOptions) : TTargetPoolAggregatedList;
    Function Delete(project: string; region: string; targetPool: string) : TOperation;
    Function Get(project: string; region: string; targetPool: string) : TTargetPool;
    Function GetHealth(project: string; region: string; targetPool: string; aInstanceReference : TInstanceReference) : TTargetPoolInstanceHealth;
    Function Insert(project: string; region: string; aTargetPool : TTargetPool) : TOperation;
    Function List(project: string; region: string; AQuery : string  = '') : TTargetPoolList;
    Function List(project: string; region: string; AQuery : TTargetPoolslistOptions) : TTargetPoolList;
    Function RemoveHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsRemoveHealthCheckRequest : TTargetPoolsRemoveHealthCheckRequest) : TOperation;
    Function RemoveInstance(project: string; region: string; targetPool: string; aTargetPoolsRemoveInstanceRequest : TTargetPoolsRemoveInstanceRequest) : TOperation;
    Function SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : string  = '') : TOperation;
    Function SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : TTargetPoolssetBackupOptions) : TOperation;
  end;
  
  
  { --------------------------------------------------------------------
    TTargetVpnGatewaysResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TTargetVpnGatewaysResource, method AggregatedList
  
  TTargetVpnGatewaysAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TTargetVpnGatewaysResource, method List
  
  TTargetVpnGatewaysListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TTargetVpnGatewaysResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TTargetVpnGatewayAggregatedList;
    Function AggregatedList(project: string; AQuery : TTargetVpnGatewaysaggregatedListOptions) : TTargetVpnGatewayAggregatedList;
    Function Delete(project: string; region: string; targetVpnGateway: string) : TOperation;
    Function Get(project: string; region: string; targetVpnGateway: string) : TTargetVpnGateway;
    Function Insert(project: string; region: string; aTargetVpnGateway : TTargetVpnGateway) : TOperation;
    Function List(project: string; region: string; AQuery : string  = '') : TTargetVpnGatewayList;
    Function List(project: string; region: string; AQuery : TTargetVpnGatewayslistOptions) : TTargetVpnGatewayList;
  end;
  
  
  { --------------------------------------------------------------------
    TUrlMapsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TUrlMapsResource, method List
  
  TUrlMapsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TUrlMapsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Delete(project: string; urlMap: string) : TOperation;
    Function Get(project: string; urlMap: string) : TUrlMap;
    Function Insert(project: string; aUrlMap : TUrlMap) : TOperation;
    Function List(project: string; AQuery : string  = '') : TUrlMapList;
    Function List(project: string; AQuery : TUrlMapslistOptions) : TUrlMapList;
    Function Patch(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;
    Function Update(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;
    Function Validate(project: string; urlMap: string; aUrlMapsValidateRequest : TUrlMapsValidateRequest) : TUrlMapsValidateResponse;
  end;
  
  
  { --------------------------------------------------------------------
    TVpnTunnelsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TVpnTunnelsResource, method AggregatedList
  
  TVpnTunnelsAggregatedListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  
  //Optional query Options for TVpnTunnelsResource, method List
  
  TVpnTunnelsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TVpnTunnelsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function AggregatedList(project: string; AQuery : string  = '') : TVpnTunnelAggregatedList;
    Function AggregatedList(project: string; AQuery : TVpnTunnelsaggregatedListOptions) : TVpnTunnelAggregatedList;
    Function Delete(project: string; region: string; vpnTunnel: string) : TOperation;
    Function Get(project: string; region: string; vpnTunnel: string) : TVpnTunnel;
    Function Insert(project: string; region: string; aVpnTunnel : TVpnTunnel) : TOperation;
    Function List(project: string; region: string; AQuery : string  = '') : TVpnTunnelList;
    Function List(project: string; region: string; AQuery : TVpnTunnelslistOptions) : TVpnTunnelList;
  end;
  
  
  { --------------------------------------------------------------------
    TZoneOperationsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TZoneOperationsResource, method List
  
  TZoneOperationsListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TZoneOperationsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Procedure Delete(operation: string; project: string; zone: string);
    Function Get(operation: string; project: string; zone: string) : TOperation;
    Function List(project: string; zone: string; AQuery : string  = '') : TOperationList;
    Function List(project: string; zone: string; AQuery : TZoneOperationslistOptions) : TOperationList;
  end;
  
  
  { --------------------------------------------------------------------
    TZonesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TZonesResource, method List
  
  TZonesListOptions = Record
    filter : String;
    maxResults : integer;
    pageToken : String;
  end;
  
  TZonesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(project: string; zone: string) : TZone;
    Function List(project: string; AQuery : string  = '') : TZoneList;
    Function List(project: string; AQuery : TZoneslistOptions) : TZoneList;
  end;
  
  
  { --------------------------------------------------------------------
    TComputeAPI
    --------------------------------------------------------------------}
  
  TComputeAPI = Class(TGoogleAPI)
  Private
    FAddressesInstance : TAddressesResource;
    FAutoscalersInstance : TAutoscalersResource;
    FBackendServicesInstance : TBackendServicesResource;
    FDiskTypesInstance : TDiskTypesResource;
    FDisksInstance : TDisksResource;
    FFirewallsInstance : TFirewallsResource;
    FForwardingRulesInstance : TForwardingRulesResource;
    FGlobalAddressesInstance : TGlobalAddressesResource;
    FGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;
    FGlobalOperationsInstance : TGlobalOperationsResource;
    FHttpHealthChecksInstance : THttpHealthChecksResource;
    FHttpsHealthChecksInstance : THttpsHealthChecksResource;
    FImagesInstance : TImagesResource;
    FInstanceGroupManagersInstance : TInstanceGroupManagersResource;
    FInstanceGroupsInstance : TInstanceGroupsResource;
    FInstanceTemplatesInstance : TInstanceTemplatesResource;
    FInstancesInstance : TInstancesResource;
    FLicensesInstance : TLicensesResource;
    FMachineTypesInstance : TMachineTypesResource;
    FNetworksInstance : TNetworksResource;
    FProjectsInstance : TProjectsResource;
    FRegionOperationsInstance : TRegionOperationsResource;
    FRegionsInstance : TRegionsResource;
    FRoutesInstance : TRoutesResource;
    FSnapshotsInstance : TSnapshotsResource;
    FSslCertificatesInstance : TSslCertificatesResource;
    FSubnetworksInstance : TSubnetworksResource;
    FTargetHttpProxiesInstance : TTargetHttpProxiesResource;
    FTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;
    FTargetInstancesInstance : TTargetInstancesResource;
    FTargetPoolsInstance : TTargetPoolsResource;
    FTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;
    FUrlMapsInstance : TUrlMapsResource;
    FVpnTunnelsInstance : TVpnTunnelsResource;
    FZoneOperationsInstance : TZoneOperationsResource;
    FZonesInstance : TZonesResource;
    Function GetAddressesInstance : TAddressesResource;virtual;
    Function GetAutoscalersInstance : TAutoscalersResource;virtual;
    Function GetBackendServicesInstance : TBackendServicesResource;virtual;
    Function GetDiskTypesInstance : TDiskTypesResource;virtual;
    Function GetDisksInstance : TDisksResource;virtual;
    Function GetFirewallsInstance : TFirewallsResource;virtual;
    Function GetForwardingRulesInstance : TForwardingRulesResource;virtual;
    Function GetGlobalAddressesInstance : TGlobalAddressesResource;virtual;
    Function GetGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;virtual;
    Function GetGlobalOperationsInstance : TGlobalOperationsResource;virtual;
    Function GetHttpHealthChecksInstance : THttpHealthChecksResource;virtual;
    Function GetHttpsHealthChecksInstance : THttpsHealthChecksResource;virtual;
    Function GetImagesInstance : TImagesResource;virtual;
    Function GetInstanceGroupManagersInstance : TInstanceGroupManagersResource;virtual;
    Function GetInstanceGroupsInstance : TInstanceGroupsResource;virtual;
    Function GetInstanceTemplatesInstance : TInstanceTemplatesResource;virtual;
    Function GetInstancesInstance : TInstancesResource;virtual;
    Function GetLicensesInstance : TLicensesResource;virtual;
    Function GetMachineTypesInstance : TMachineTypesResource;virtual;
    Function GetNetworksInstance : TNetworksResource;virtual;
    Function GetProjectsInstance : TProjectsResource;virtual;
    Function GetRegionOperationsInstance : TRegionOperationsResource;virtual;
    Function GetRegionsInstance : TRegionsResource;virtual;
    Function GetRoutesInstance : TRoutesResource;virtual;
    Function GetSnapshotsInstance : TSnapshotsResource;virtual;
    Function GetSslCertificatesInstance : TSslCertificatesResource;virtual;
    Function GetSubnetworksInstance : TSubnetworksResource;virtual;
    Function GetTargetHttpProxiesInstance : TTargetHttpProxiesResource;virtual;
    Function GetTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;virtual;
    Function GetTargetInstancesInstance : TTargetInstancesResource;virtual;
    Function GetTargetPoolsInstance : TTargetPoolsResource;virtual;
    Function GetTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;virtual;
    Function GetUrlMapsInstance : TUrlMapsResource;virtual;
    Function GetVpnTunnelsInstance : TVpnTunnelsResource;virtual;
    Function GetZoneOperationsInstance : TZoneOperationsResource;virtual;
    Function GetZonesInstance : TZonesResource;virtual;
  Public
    //Override class functions with API info
    Class Function APIName : String; override;
    Class Function APIVersion : String; override;
    Class Function APIRevision : String; override;
    Class Function APIID : String; override;
    Class Function APITitle : String; override;
    Class Function APIDescription : String; override;
    Class Function APIOwnerDomain : String; override;
    Class Function APIOwnerName : String; override;
    Class Function APIIcon16 : String; override;
    Class Function APIIcon32 : String; override;
    Class Function APIdocumentationLink : String; override;
    Class Function APIrootUrl : string; override;
    Class Function APIbasePath : string;override;
    Class Function APIbaseURL : String;override;
    Class Function APIProtocol : string;override;
    Class Function APIservicePath : string;override;
    Class Function APIbatchPath : String;override;
    Class Function APIAuthScopes : TScopeInfoArray;override;
    Class Function APINeedsAuth : Boolean;override;
    Class Procedure RegisterAPIResources; override;
    //Add create function for resources
    Function CreateAddressesResource(AOwner : TComponent) : TAddressesResource;virtual;overload;
    Function CreateAddressesResource : TAddressesResource;virtual;overload;
    Function CreateAutoscalersResource(AOwner : TComponent) : TAutoscalersResource;virtual;overload;
    Function CreateAutoscalersResource : TAutoscalersResource;virtual;overload;
    Function CreateBackendServicesResource(AOwner : TComponent) : TBackendServicesResource;virtual;overload;
    Function CreateBackendServicesResource : TBackendServicesResource;virtual;overload;
    Function CreateDiskTypesResource(AOwner : TComponent) : TDiskTypesResource;virtual;overload;
    Function CreateDiskTypesResource : TDiskTypesResource;virtual;overload;
    Function CreateDisksResource(AOwner : TComponent) : TDisksResource;virtual;overload;
    Function CreateDisksResource : TDisksResource;virtual;overload;
    Function CreateFirewallsResource(AOwner : TComponent) : TFirewallsResource;virtual;overload;
    Function CreateFirewallsResource : TFirewallsResource;virtual;overload;
    Function CreateForwardingRulesResource(AOwner : TComponent) : TForwardingRulesResource;virtual;overload;
    Function CreateForwardingRulesResource : TForwardingRulesResource;virtual;overload;
    Function CreateGlobalAddressesResource(AOwner : TComponent) : TGlobalAddressesResource;virtual;overload;
    Function CreateGlobalAddressesResource : TGlobalAddressesResource;virtual;overload;
    Function CreateGlobalForwardingRulesResource(AOwner : TComponent) : TGlobalForwardingRulesResource;virtual;overload;
    Function CreateGlobalForwardingRulesResource : TGlobalForwardingRulesResource;virtual;overload;
    Function CreateGlobalOperationsResource(AOwner : TComponent) : TGlobalOperationsResource;virtual;overload;
    Function CreateGlobalOperationsResource : TGlobalOperationsResource;virtual;overload;
    Function CreateHttpHealthChecksResource(AOwner : TComponent) : THttpHealthChecksResource;virtual;overload;
    Function CreateHttpHealthChecksResource : THttpHealthChecksResource;virtual;overload;
    Function CreateHttpsHealthChecksResource(AOwner : TComponent) : THttpsHealthChecksResource;virtual;overload;
    Function CreateHttpsHealthChecksResource : THttpsHealthChecksResource;virtual;overload;
    Function CreateImagesResource(AOwner : TComponent) : TImagesResource;virtual;overload;
    Function CreateImagesResource : TImagesResource;virtual;overload;
    Function CreateInstanceGroupManagersResource(AOwner : TComponent) : TInstanceGroupManagersResource;virtual;overload;
    Function CreateInstanceGroupManagersResource : TInstanceGroupManagersResource;virtual;overload;
    Function CreateInstanceGroupsResource(AOwner : TComponent) : TInstanceGroupsResource;virtual;overload;
    Function CreateInstanceGroupsResource : TInstanceGroupsResource;virtual;overload;
    Function CreateInstanceTemplatesResource(AOwner : TComponent) : TInstanceTemplatesResource;virtual;overload;
    Function CreateInstanceTemplatesResource : TInstanceTemplatesResource;virtual;overload;
    Function CreateInstancesResource(AOwner : TComponent) : TInstancesResource;virtual;overload;
    Function CreateInstancesResource : TInstancesResource;virtual;overload;
    Function CreateLicensesResource(AOwner : TComponent) : TLicensesResource;virtual;overload;
    Function CreateLicensesResource : TLicensesResource;virtual;overload;
    Function CreateMachineTypesResource(AOwner : TComponent) : TMachineTypesResource;virtual;overload;
    Function CreateMachineTypesResource : TMachineTypesResource;virtual;overload;
    Function CreateNetworksResource(AOwner : TComponent) : TNetworksResource;virtual;overload;
    Function CreateNetworksResource : TNetworksResource;virtual;overload;
    Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
    Function CreateProjectsResource : TProjectsResource;virtual;overload;
    Function CreateRegionOperationsResource(AOwner : TComponent) : TRegionOperationsResource;virtual;overload;
    Function CreateRegionOperationsResource : TRegionOperationsResource;virtual;overload;
    Function CreateRegionsResource(AOwner : TComponent) : TRegionsResource;virtual;overload;
    Function CreateRegionsResource : TRegionsResource;virtual;overload;
    Function CreateRoutesResource(AOwner : TComponent) : TRoutesResource;virtual;overload;
    Function CreateRoutesResource : TRoutesResource;virtual;overload;
    Function CreateSnapshotsResource(AOwner : TComponent) : TSnapshotsResource;virtual;overload;
    Function CreateSnapshotsResource : TSnapshotsResource;virtual;overload;
    Function CreateSslCertificatesResource(AOwner : TComponent) : TSslCertificatesResource;virtual;overload;
    Function CreateSslCertificatesResource : TSslCertificatesResource;virtual;overload;
    Function CreateSubnetworksResource(AOwner : TComponent) : TSubnetworksResource;virtual;overload;
    Function CreateSubnetworksResource : TSubnetworksResource;virtual;overload;
    Function CreateTargetHttpProxiesResource(AOwner : TComponent) : TTargetHttpProxiesResource;virtual;overload;
    Function CreateTargetHttpProxiesResource : TTargetHttpProxiesResource;virtual;overload;
    Function CreateTargetHttpsProxiesResource(AOwner : TComponent) : TTargetHttpsProxiesResource;virtual;overload;
    Function CreateTargetHttpsProxiesResource : TTargetHttpsProxiesResource;virtual;overload;
    Function CreateTargetInstancesResource(AOwner : TComponent) : TTargetInstancesResource;virtual;overload;
    Function CreateTargetInstancesResource : TTargetInstancesResource;virtual;overload;
    Function CreateTargetPoolsResource(AOwner : TComponent) : TTargetPoolsResource;virtual;overload;
    Function CreateTargetPoolsResource : TTargetPoolsResource;virtual;overload;
    Function CreateTargetVpnGatewaysResource(AOwner : TComponent) : TTargetVpnGatewaysResource;virtual;overload;
    Function CreateTargetVpnGatewaysResource : TTargetVpnGatewaysResource;virtual;overload;
    Function CreateUrlMapsResource(AOwner : TComponent) : TUrlMapsResource;virtual;overload;
    Function CreateUrlMapsResource : TUrlMapsResource;virtual;overload;
    Function CreateVpnTunnelsResource(AOwner : TComponent) : TVpnTunnelsResource;virtual;overload;
    Function CreateVpnTunnelsResource : TVpnTunnelsResource;virtual;overload;
    Function CreateZoneOperationsResource(AOwner : TComponent) : TZoneOperationsResource;virtual;overload;
    Function CreateZoneOperationsResource : TZoneOperationsResource;virtual;overload;
    Function CreateZonesResource(AOwner : TComponent) : TZonesResource;virtual;overload;
    Function CreateZonesResource : TZonesResource;virtual;overload;
    //Add default on-demand instances for resources
    Property AddressesResource : TAddressesResource Read GetAddressesInstance;
    Property AutoscalersResource : TAutoscalersResource Read GetAutoscalersInstance;
    Property BackendServicesResource : TBackendServicesResource Read GetBackendServicesInstance;
    Property DiskTypesResource : TDiskTypesResource Read GetDiskTypesInstance;
    Property DisksResource : TDisksResource Read GetDisksInstance;
    Property FirewallsResource : TFirewallsResource Read GetFirewallsInstance;
    Property ForwardingRulesResource : TForwardingRulesResource Read GetForwardingRulesInstance;
    Property GlobalAddressesResource : TGlobalAddressesResource Read GetGlobalAddressesInstance;
    Property GlobalForwardingRulesResource : TGlobalForwardingRulesResource Read GetGlobalForwardingRulesInstance;
    Property GlobalOperationsResource : TGlobalOperationsResource Read GetGlobalOperationsInstance;
    Property HttpHealthChecksResource : THttpHealthChecksResource Read GetHttpHealthChecksInstance;
    Property HttpsHealthChecksResource : THttpsHealthChecksResource Read GetHttpsHealthChecksInstance;
    Property ImagesResource : TImagesResource Read GetImagesInstance;
    Property InstanceGroupManagersResource : TInstanceGroupManagersResource Read GetInstanceGroupManagersInstance;
    Property InstanceGroupsResource : TInstanceGroupsResource Read GetInstanceGroupsInstance;
    Property InstanceTemplatesResource : TInstanceTemplatesResource Read GetInstanceTemplatesInstance;
    Property InstancesResource : TInstancesResource Read GetInstancesInstance;
    Property LicensesResource : TLicensesResource Read GetLicensesInstance;
    Property MachineTypesResource : TMachineTypesResource Read GetMachineTypesInstance;
    Property NetworksResource : TNetworksResource Read GetNetworksInstance;
    Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
    Property RegionOperationsResource : TRegionOperationsResource Read GetRegionOperationsInstance;
    Property RegionsResource : TRegionsResource Read GetRegionsInstance;
    Property RoutesResource : TRoutesResource Read GetRoutesInstance;
    Property SnapshotsResource : TSnapshotsResource Read GetSnapshotsInstance;
    Property SslCertificatesResource : TSslCertificatesResource Read GetSslCertificatesInstance;
    Property SubnetworksResource : TSubnetworksResource Read GetSubnetworksInstance;
    Property TargetHttpProxiesResource : TTargetHttpProxiesResource Read GetTargetHttpProxiesInstance;
    Property TargetHttpsProxiesResource : TTargetHttpsProxiesResource Read GetTargetHttpsProxiesInstance;
    Property TargetInstancesResource : TTargetInstancesResource Read GetTargetInstancesInstance;
    Property TargetPoolsResource : TTargetPoolsResource Read GetTargetPoolsInstance;
    Property TargetVpnGatewaysResource : TTargetVpnGatewaysResource Read GetTargetVpnGatewaysInstance;
    Property UrlMapsResource : TUrlMapsResource Read GetUrlMapsInstance;
    Property VpnTunnelsResource : TVpnTunnelsResource Read GetVpnTunnelsInstance;
    Property ZoneOperationsResource : TZoneOperationsResource Read GetZoneOperationsInstance;
    Property ZonesResource : TZonesResource Read GetZonesInstance;
  end;

implementation


{ --------------------------------------------------------------------
  TAccessConfig
  --------------------------------------------------------------------}


Procedure TAccessConfig.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAccessConfig.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAccessConfig.SetnatIP(AIndex : Integer; const AValue : String); 

begin
  If (FnatIP=AValue) then exit;
  FnatIP:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAccessConfig.Set_type(AIndex : Integer; const AValue : String); 

begin
  If (F_type=AValue) then exit;
  F_type:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TAccessConfig.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_type' : Result:='type';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;




{ --------------------------------------------------------------------
  TAddress
  --------------------------------------------------------------------}


Procedure TAddress.Setaddress(AIndex : Integer; const AValue : String); 

begin
  If (Faddress=AValue) then exit;
  Faddress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddress.Setusers(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fusers=AValue) then exit;
  Fusers:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddress.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'users' : SetLength(Fusers,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAddressAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TAddressAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TAddressAggregatedList
  --------------------------------------------------------------------}


Procedure TAddressAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressAggregatedList.Setitems(AIndex : Integer; const AValue : TAddressAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAddressList
  --------------------------------------------------------------------}


Procedure TAddressList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressList.Setitems(AIndex : Integer; const AValue : TAddressListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddressList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAddressesScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TAddressesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAddressesScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TAddressesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TAddressesScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddressesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAddressesScopedList
  --------------------------------------------------------------------}


Procedure TAddressesScopedList.Setaddresses(AIndex : Integer; const AValue : TAddressesScopedListTypeaddressesArray); 

begin
  If (Faddresses=AValue) then exit;
  Faddresses:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAddressesScopedList.Setwarning(AIndex : Integer; const AValue : TAddressesScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddressesScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'addresses' : SetLength(Faddresses,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAttachedDisk
  --------------------------------------------------------------------}


Procedure TAttachedDisk.SetautoDelete(AIndex : Integer; const AValue : boolean); 

begin
  If (FautoDelete=AValue) then exit;
  FautoDelete:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Setboot(AIndex : Integer; const AValue : boolean); 

begin
  If (Fboot=AValue) then exit;
  Fboot:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.SetdeviceName(AIndex : Integer; const AValue : String); 

begin
  If (FdeviceName=AValue) then exit;
  FdeviceName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Setindex(AIndex : Integer; const AValue : integer); 

begin
  If (Findex=AValue) then exit;
  Findex:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.SetinitializeParams(AIndex : Integer; const AValue : TAttachedDiskInitializeParams); 

begin
  If (FinitializeParams=AValue) then exit;
  FinitializeParams:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Set_interface(AIndex : Integer; const AValue : String); 

begin
  If (F_interface=AValue) then exit;
  F_interface:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Setlicenses(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Flicenses=AValue) then exit;
  Flicenses:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Setmode(AIndex : Integer; const AValue : String); 

begin
  If (Fmode=AValue) then exit;
  Fmode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Setsource(AIndex : Integer; const AValue : String); 

begin
  If (Fsource=AValue) then exit;
  Fsource:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDisk.Set_type(AIndex : Integer; const AValue : String); 

begin
  If (F_type=AValue) then exit;
  F_type:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TAttachedDisk.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_interface' : Result:='interface';
  '_type' : Result:='type';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;

//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAttachedDisk.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'licenses' : SetLength(Flicenses,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAttachedDiskInitializeParams
  --------------------------------------------------------------------}


Procedure TAttachedDiskInitializeParams.SetdiskName(AIndex : Integer; const AValue : String); 

begin
  If (FdiskName=AValue) then exit;
  FdiskName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDiskInitializeParams.SetdiskSizeGb(AIndex : Integer; const AValue : String); 

begin
  If (FdiskSizeGb=AValue) then exit;
  FdiskSizeGb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDiskInitializeParams.SetdiskType(AIndex : Integer; const AValue : String); 

begin
  If (FdiskType=AValue) then exit;
  FdiskType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAttachedDiskInitializeParams.SetsourceImage(AIndex : Integer; const AValue : String); 

begin
  If (FsourceImage=AValue) then exit;
  FsourceImage:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAutoscaler
  --------------------------------------------------------------------}


Procedure TAutoscaler.SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy); 

begin
  If (FautoscalingPolicy=AValue) then exit;
  FautoscalingPolicy:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.Settarget(AIndex : Integer; const AValue : String); 

begin
  If (Ftarget=AValue) then exit;
  Ftarget:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscaler.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAutoscalerAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TAutoscalerAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TAutoscalerAggregatedList
  --------------------------------------------------------------------}


Procedure TAutoscalerAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerAggregatedList.Setitems(AIndex : Integer; const AValue : TAutoscalerAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAutoscalerList
  --------------------------------------------------------------------}


Procedure TAutoscalerList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerList.Setitems(AIndex : Integer; const AValue : TAutoscalerListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalerList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalerList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAutoscalersScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TAutoscalersScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalersScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAutoscalersScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TAutoscalersScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalersScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalersScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalersScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAutoscalersScopedList
  --------------------------------------------------------------------}


Procedure TAutoscalersScopedList.Setautoscalers(AIndex : Integer; const AValue : TAutoscalersScopedListTypeautoscalersArray); 

begin
  If (Fautoscalers=AValue) then exit;
  Fautoscalers:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalersScopedList.Setwarning(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalersScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'autoscalers' : SetLength(Fautoscalers,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAutoscalingPolicy
  --------------------------------------------------------------------}


Procedure TAutoscalingPolicy.SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer); 

begin
  If (FcoolDownPeriodSec=AValue) then exit;
  FcoolDownPeriodSec:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalingPolicy.SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization); 

begin
  If (FcpuUtilization=AValue) then exit;
  FcpuUtilization:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalingPolicy.SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray); 

begin
  If (FcustomMetricUtilizations=AValue) then exit;
  FcustomMetricUtilizations:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalingPolicy.SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization); 

begin
  If (FloadBalancingUtilization=AValue) then exit;
  FloadBalancingUtilization:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalingPolicy.SetmaxNumReplicas(AIndex : Integer; const AValue : integer); 

begin
  If (FmaxNumReplicas=AValue) then exit;
  FmaxNumReplicas:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalingPolicy.SetminNumReplicas(AIndex : Integer; const AValue : integer); 

begin
  If (FminNumReplicas=AValue) then exit;
  FminNumReplicas:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalingPolicy.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'custommetricutilizations' : SetLength(FcustomMetricUtilizations,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAutoscalingPolicyCpuUtilization
  --------------------------------------------------------------------}


Procedure TAutoscalingPolicyCpuUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double); 

begin
  If (FutilizationTarget=AValue) then exit;
  FutilizationTarget:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAutoscalingPolicyCustomMetricUtilization
  --------------------------------------------------------------------}


Procedure TAutoscalingPolicyCustomMetricUtilization.Setmetric(AIndex : Integer; const AValue : String); 

begin
  If (Fmetric=AValue) then exit;
  Fmetric:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double); 

begin
  If (FutilizationTarget=AValue) then exit;
  FutilizationTarget:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTargetType(AIndex : Integer; const AValue : String); 

begin
  If (FutilizationTargetType=AValue) then exit;
  FutilizationTargetType:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TAutoscalingPolicyLoadBalancingUtilization
  --------------------------------------------------------------------}


Procedure TAutoscalingPolicyLoadBalancingUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double); 

begin
  If (FutilizationTarget=AValue) then exit;
  FutilizationTarget:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TBackend
  --------------------------------------------------------------------}


Procedure TBackend.SetbalancingMode(AIndex : Integer; const AValue : String); 

begin
  If (FbalancingMode=AValue) then exit;
  FbalancingMode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackend.SetcapacityScaler(AIndex : Integer; const AValue : integer); 

begin
  If (FcapacityScaler=AValue) then exit;
  FcapacityScaler:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackend.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackend.Setgroup(AIndex : Integer; const AValue : String); 

begin
  If (Fgroup=AValue) then exit;
  Fgroup:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackend.SetmaxRate(AIndex : Integer; const AValue : integer); 

begin
  If (FmaxRate=AValue) then exit;
  FmaxRate:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackend.SetmaxRatePerInstance(AIndex : Integer; const AValue : integer); 

begin
  If (FmaxRatePerInstance=AValue) then exit;
  FmaxRatePerInstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackend.SetmaxUtilization(AIndex : Integer; const AValue : integer); 

begin
  If (FmaxUtilization=AValue) then exit;
  FmaxUtilization:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TBackendService
  --------------------------------------------------------------------}


Procedure TBackendService.Setbackends(AIndex : Integer; const AValue : TBackendServiceTypebackendsArray); 

begin
  If (Fbackends=AValue) then exit;
  Fbackends:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.SethealthChecks(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FhealthChecks=AValue) then exit;
  FhealthChecks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setport(AIndex : Integer; const AValue : integer); 

begin
  If (Fport=AValue) then exit;
  Fport:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.SetportName(AIndex : Integer; const AValue : String); 

begin
  If (FportName=AValue) then exit;
  FportName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setprotocol(AIndex : Integer; const AValue : String); 

begin
  If (Fprotocol=AValue) then exit;
  Fprotocol:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendService.SettimeoutSec(AIndex : Integer; const AValue : integer); 

begin
  If (FtimeoutSec=AValue) then exit;
  FtimeoutSec:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBackendService.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'backends' : SetLength(Fbackends,ALength);
  'healthchecks' : SetLength(FhealthChecks,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TBackendServiceGroupHealth
  --------------------------------------------------------------------}


Procedure TBackendServiceGroupHealth.SethealthStatus(AIndex : Integer; const AValue : TBackendServiceGroupHealthTypehealthStatusArray); 

begin
  If (FhealthStatus=AValue) then exit;
  FhealthStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendServiceGroupHealth.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBackendServiceGroupHealth.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'healthstatus' : SetLength(FhealthStatus,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TBackendServiceList
  --------------------------------------------------------------------}


Procedure TBackendServiceList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendServiceList.Setitems(AIndex : Integer; const AValue : TBackendServiceListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendServiceList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendServiceList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBackendServiceList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBackendServiceList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDeprecationStatus
  --------------------------------------------------------------------}


Procedure TDeprecationStatus.Setdeleted(AIndex : Integer; const AValue : String); 

begin
  If (Fdeleted=AValue) then exit;
  Fdeleted:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeprecationStatus.Setdeprecated(AIndex : Integer; const AValue : String); 

begin
  If (Fdeprecated=AValue) then exit;
  Fdeprecated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeprecationStatus.Setobsolete(AIndex : Integer; const AValue : String); 

begin
  If (Fobsolete=AValue) then exit;
  Fobsolete:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeprecationStatus.Setreplacement(AIndex : Integer; const AValue : String); 

begin
  If (Freplacement=AValue) then exit;
  Freplacement:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDeprecationStatus.Setstate(AIndex : Integer; const AValue : String); 

begin
  If (Fstate=AValue) then exit;
  Fstate:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDisk
  --------------------------------------------------------------------}


Procedure TDisk.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetlastAttachTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FlastAttachTimestamp=AValue) then exit;
  FlastAttachTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetlastDetachTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FlastDetachTimestamp=AValue) then exit;
  FlastDetachTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setlicenses(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Flicenses=AValue) then exit;
  Flicenses:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setoptions(AIndex : Integer; const AValue : String); 

begin
  If (Foptions=AValue) then exit;
  Foptions:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetsizeGb(AIndex : Integer; const AValue : String); 

begin
  If (FsizeGb=AValue) then exit;
  FsizeGb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetsourceImage(AIndex : Integer; const AValue : String); 

begin
  If (FsourceImage=AValue) then exit;
  FsourceImage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetsourceImageId(AIndex : Integer; const AValue : String); 

begin
  If (FsourceImageId=AValue) then exit;
  FsourceImageId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetsourceSnapshot(AIndex : Integer; const AValue : String); 

begin
  If (FsourceSnapshot=AValue) then exit;
  FsourceSnapshot:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.SetsourceSnapshotId(AIndex : Integer; const AValue : String); 

begin
  If (FsourceSnapshotId=AValue) then exit;
  FsourceSnapshotId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Set_type(AIndex : Integer; const AValue : String); 

begin
  If (F_type=AValue) then exit;
  F_type:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setusers(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fusers=AValue) then exit;
  Fusers:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisk.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TDisk.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_type' : Result:='type';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;

//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDisk.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'licenses' : SetLength(Flicenses,ALength);
  'users' : SetLength(Fusers,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDiskAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TDiskAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TDiskAggregatedList
  --------------------------------------------------------------------}


Procedure TDiskAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskAggregatedList.Setitems(AIndex : Integer; const AValue : TDiskAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDiskList
  --------------------------------------------------------------------}


Procedure TDiskList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskList.Setitems(AIndex : Integer; const AValue : TDiskListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDiskMoveRequest
  --------------------------------------------------------------------}


Procedure TDiskMoveRequest.SetdestinationZone(AIndex : Integer; const AValue : String); 

begin
  If (FdestinationZone=AValue) then exit;
  FdestinationZone:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskMoveRequest.SettargetDisk(AIndex : Integer; const AValue : String); 

begin
  If (FtargetDisk=AValue) then exit;
  FtargetDisk:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDiskType
  --------------------------------------------------------------------}


Procedure TDiskType.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.SetdefaultDiskSizeGb(AIndex : Integer; const AValue : String); 

begin
  If (FdefaultDiskSizeGb=AValue) then exit;
  FdefaultDiskSizeGb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); 

begin
  If (Fdeprecated=AValue) then exit;
  Fdeprecated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.SetvalidDiskSize(AIndex : Integer; const AValue : String); 

begin
  If (FvalidDiskSize=AValue) then exit;
  FvalidDiskSize:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskType.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDiskTypeAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TDiskTypeAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TDiskTypeAggregatedList
  --------------------------------------------------------------------}


Procedure TDiskTypeAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeAggregatedList.Setitems(AIndex : Integer; const AValue : TDiskTypeAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDiskTypeList
  --------------------------------------------------------------------}


Procedure TDiskTypeList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeList.Setitems(AIndex : Integer; const AValue : TDiskTypeListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypeList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskTypeList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDiskTypesScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TDiskTypesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDiskTypesScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TDiskTypesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskTypesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDiskTypesScopedList
  --------------------------------------------------------------------}


Procedure TDiskTypesScopedList.SetdiskTypes(AIndex : Integer; const AValue : TDiskTypesScopedListTypediskTypesArray); 

begin
  If (FdiskTypes=AValue) then exit;
  FdiskTypes:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDiskTypesScopedList.Setwarning(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskTypesScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'disktypes' : SetLength(FdiskTypes,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDisksResizeRequest
  --------------------------------------------------------------------}


Procedure TDisksResizeRequest.SetsizeGb(AIndex : Integer; const AValue : String); 

begin
  If (FsizeGb=AValue) then exit;
  FsizeGb:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDisksScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TDisksScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisksScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TDisksScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TDisksScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisksScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TDisksScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisksScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDisksScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TDisksScopedList
  --------------------------------------------------------------------}


Procedure TDisksScopedList.Setdisks(AIndex : Integer; const AValue : TDisksScopedListTypedisksArray); 

begin
  If (Fdisks=AValue) then exit;
  Fdisks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TDisksScopedList.Setwarning(AIndex : Integer; const AValue : TDisksScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDisksScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'disks' : SetLength(Fdisks,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TFirewallTypeallowedItem
  --------------------------------------------------------------------}


Procedure TFirewallTypeallowedItem.SetIPProtocol(AIndex : Integer; const AValue : String); 

begin
  If (FIPProtocol=AValue) then exit;
  FIPProtocol:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewallTypeallowedItem.Setports(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fports=AValue) then exit;
  Fports:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFirewallTypeallowedItem.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'ports' : SetLength(Fports,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TFirewall
  --------------------------------------------------------------------}


Procedure TFirewall.Setallowed(AIndex : Integer; const AValue : TFirewallTypeallowedArray); 

begin
  If (Fallowed=AValue) then exit;
  Fallowed:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.Setnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fnetwork=AValue) then exit;
  Fnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.SetsourceRanges(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FsourceRanges=AValue) then exit;
  FsourceRanges:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.SetsourceTags(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FsourceTags=AValue) then exit;
  FsourceTags:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewall.SettargetTags(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FtargetTags=AValue) then exit;
  FtargetTags:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFirewall.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'allowed' : SetLength(Fallowed,ALength);
  'sourceranges' : SetLength(FsourceRanges,ALength);
  'sourcetags' : SetLength(FsourceTags,ALength);
  'targettags' : SetLength(FtargetTags,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TFirewallList
  --------------------------------------------------------------------}


Procedure TFirewallList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewallList.Setitems(AIndex : Integer; const AValue : TFirewallListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewallList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewallList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TFirewallList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFirewallList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TForwardingRule
  --------------------------------------------------------------------}


Procedure TForwardingRule.SetIPAddress(AIndex : Integer; const AValue : String); 

begin
  If (FIPAddress=AValue) then exit;
  FIPAddress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.SetIPProtocol(AIndex : Integer; const AValue : String); 

begin
  If (FIPProtocol=AValue) then exit;
  FIPProtocol:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.SetportRange(AIndex : Integer; const AValue : String); 

begin
  If (FportRange=AValue) then exit;
  FportRange:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRule.Settarget(AIndex : Integer; const AValue : String); 

begin
  If (Ftarget=AValue) then exit;
  Ftarget:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TForwardingRuleAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TForwardingRuleAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TForwardingRuleAggregatedList
  --------------------------------------------------------------------}


Procedure TForwardingRuleAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleAggregatedList.Setitems(AIndex : Integer; const AValue : TForwardingRuleAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TForwardingRuleList
  --------------------------------------------------------------------}


Procedure TForwardingRuleList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleList.Setitems(AIndex : Integer; const AValue : TForwardingRuleListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRuleList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TForwardingRuleList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TForwardingRulesScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TForwardingRulesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRulesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TForwardingRulesScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TForwardingRulesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRulesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRulesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TForwardingRulesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TForwardingRulesScopedList
  --------------------------------------------------------------------}


Procedure TForwardingRulesScopedList.SetforwardingRules(AIndex : Integer; const AValue : TForwardingRulesScopedListTypeforwardingRulesArray); 

begin
  If (FforwardingRules=AValue) then exit;
  FforwardingRules:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TForwardingRulesScopedList.Setwarning(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TForwardingRulesScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'forwardingrules' : SetLength(FforwardingRules,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  THealthCheckReference
  --------------------------------------------------------------------}


Procedure THealthCheckReference.SethealthCheck(AIndex : Integer; const AValue : String); 

begin
  If (FhealthCheck=AValue) then exit;
  FhealthCheck:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  THealthStatus
  --------------------------------------------------------------------}


Procedure THealthStatus.SethealthState(AIndex : Integer; const AValue : String); 

begin
  If (FhealthState=AValue) then exit;
  FhealthState:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THealthStatus.Setinstance(AIndex : Integer; const AValue : String); 

begin
  If (Finstance=AValue) then exit;
  Finstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THealthStatus.SetipAddress(AIndex : Integer; const AValue : String); 

begin
  If (FipAddress=AValue) then exit;
  FipAddress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THealthStatus.Setport(AIndex : Integer; const AValue : integer); 

begin
  If (Fport=AValue) then exit;
  Fport:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  THostRule
  --------------------------------------------------------------------}


Procedure THostRule.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THostRule.Sethosts(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fhosts=AValue) then exit;
  Fhosts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THostRule.SetpathMatcher(AIndex : Integer; const AValue : String); 

begin
  If (FpathMatcher=AValue) then exit;
  FpathMatcher:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure THostRule.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'hosts' : SetLength(Fhosts,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  THttpHealthCheck
  --------------------------------------------------------------------}


Procedure THttpHealthCheck.SetcheckIntervalSec(AIndex : Integer; const AValue : integer); 

begin
  If (FcheckIntervalSec=AValue) then exit;
  FcheckIntervalSec:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer); 

begin
  If (FhealthyThreshold=AValue) then exit;
  FhealthyThreshold:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.Sethost(AIndex : Integer; const AValue : String); 

begin
  If (Fhost=AValue) then exit;
  Fhost:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.Setport(AIndex : Integer; const AValue : integer); 

begin
  If (Fport=AValue) then exit;
  Fport:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.SetrequestPath(AIndex : Integer; const AValue : String); 

begin
  If (FrequestPath=AValue) then exit;
  FrequestPath:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.SettimeoutSec(AIndex : Integer; const AValue : integer); 

begin
  If (FtimeoutSec=AValue) then exit;
  FtimeoutSec:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer); 

begin
  If (FunhealthyThreshold=AValue) then exit;
  FunhealthyThreshold:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  THttpHealthCheckList
  --------------------------------------------------------------------}


Procedure THttpHealthCheckList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheckList.Setitems(AIndex : Integer; const AValue : THttpHealthCheckListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheckList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheckList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpHealthCheckList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure THttpHealthCheckList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  THttpsHealthCheck
  --------------------------------------------------------------------}


Procedure THttpsHealthCheck.SetcheckIntervalSec(AIndex : Integer; const AValue : integer); 

begin
  If (FcheckIntervalSec=AValue) then exit;
  FcheckIntervalSec:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer); 

begin
  If (FhealthyThreshold=AValue) then exit;
  FhealthyThreshold:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.Sethost(AIndex : Integer; const AValue : String); 

begin
  If (Fhost=AValue) then exit;
  Fhost:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.Setport(AIndex : Integer; const AValue : integer); 

begin
  If (Fport=AValue) then exit;
  Fport:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.SetrequestPath(AIndex : Integer; const AValue : String); 

begin
  If (FrequestPath=AValue) then exit;
  FrequestPath:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.SettimeoutSec(AIndex : Integer; const AValue : integer); 

begin
  If (FtimeoutSec=AValue) then exit;
  FtimeoutSec:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer); 

begin
  If (FunhealthyThreshold=AValue) then exit;
  FunhealthyThreshold:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  THttpsHealthCheckList
  --------------------------------------------------------------------}


Procedure THttpsHealthCheckList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheckList.Setitems(AIndex : Integer; const AValue : THttpsHealthCheckListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheckList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheckList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure THttpsHealthCheckList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure THttpsHealthCheckList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TImageTyperawDisk
  --------------------------------------------------------------------}


Procedure TImageTyperawDisk.SetcontainerType(AIndex : Integer; const AValue : String); 

begin
  If (FcontainerType=AValue) then exit;
  FcontainerType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageTyperawDisk.Setsha1Checksum(AIndex : Integer; const AValue : String); 

begin
  If (Fsha1Checksum=AValue) then exit;
  Fsha1Checksum:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageTyperawDisk.Setsource(AIndex : Integer; const AValue : String); 

begin
  If (Fsource=AValue) then exit;
  Fsource:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TImage
  --------------------------------------------------------------------}


Procedure TImage.SetarchiveSizeBytes(AIndex : Integer; const AValue : String); 

begin
  If (FarchiveSizeBytes=AValue) then exit;
  FarchiveSizeBytes:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); 

begin
  If (Fdeprecated=AValue) then exit;
  Fdeprecated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.SetdiskSizeGb(AIndex : Integer; const AValue : String); 

begin
  If (FdiskSizeGb=AValue) then exit;
  FdiskSizeGb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setfamily(AIndex : Integer; const AValue : String); 

begin
  If (Ffamily=AValue) then exit;
  Ffamily:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setlicenses(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Flicenses=AValue) then exit;
  Flicenses:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.SetrawDisk(AIndex : Integer; const AValue : TImageTyperawDisk); 

begin
  If (FrawDisk=AValue) then exit;
  FrawDisk:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.SetsourceDisk(AIndex : Integer; const AValue : String); 

begin
  If (FsourceDisk=AValue) then exit;
  FsourceDisk:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.SetsourceDiskId(AIndex : Integer; const AValue : String); 

begin
  If (FsourceDiskId=AValue) then exit;
  FsourceDiskId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.SetsourceType(AIndex : Integer; const AValue : String); 

begin
  If (FsourceType=AValue) then exit;
  FsourceType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImage.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TImage.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'licenses' : SetLength(Flicenses,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TImageList
  --------------------------------------------------------------------}


Procedure TImageList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageList.Setitems(AIndex : Integer; const AValue : TImageListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TImageList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TImageList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstance
  --------------------------------------------------------------------}


Procedure TInstance.SetcanIpForward(AIndex : Integer; const AValue : boolean); 

begin
  If (FcanIpForward=AValue) then exit;
  FcanIpForward:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetcpuPlatform(AIndex : Integer; const AValue : String); 

begin
  If (FcpuPlatform=AValue) then exit;
  FcpuPlatform:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setdisks(AIndex : Integer; const AValue : TInstanceTypedisksArray); 

begin
  If (Fdisks=AValue) then exit;
  Fdisks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetmachineType(AIndex : Integer; const AValue : String); 

begin
  If (FmachineType=AValue) then exit;
  FmachineType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setmetadata(AIndex : Integer; const AValue : TMetadata); 

begin
  If (Fmetadata=AValue) then exit;
  Fmetadata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetnetworkInterfaces(AIndex : Integer; const AValue : TInstanceTypenetworkInterfacesArray); 

begin
  If (FnetworkInterfaces=AValue) then exit;
  FnetworkInterfaces:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setscheduling(AIndex : Integer; const AValue : TScheduling); 

begin
  If (Fscheduling=AValue) then exit;
  Fscheduling:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetserviceAccounts(AIndex : Integer; const AValue : TInstanceTypeserviceAccountsArray); 

begin
  If (FserviceAccounts=AValue) then exit;
  FserviceAccounts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.SetstatusMessage(AIndex : Integer; const AValue : String); 

begin
  If (FstatusMessage=AValue) then exit;
  FstatusMessage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Settags(AIndex : Integer; const AValue : TTags); 

begin
  If (Ftags=AValue) then exit;
  Ftags:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstance.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstance.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'disks' : SetLength(Fdisks,ALength);
  'networkinterfaces' : SetLength(FnetworkInterfaces,ALength);
  'serviceaccounts' : SetLength(FserviceAccounts,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TInstanceAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TInstanceAggregatedList
  --------------------------------------------------------------------}


Procedure TInstanceAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroup
  --------------------------------------------------------------------}


Procedure TInstanceGroup.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupTypenamedPortsArray); 

begin
  If (FnamedPorts=AValue) then exit;
  FnamedPorts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fnetwork=AValue) then exit;
  Fnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setsize(AIndex : Integer; const AValue : integer); 

begin
  If (Fsize=AValue) then exit;
  Fsize:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setsubnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fsubnetwork=AValue) then exit;
  Fsubnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroup.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroup.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'namedports' : SetLength(FnamedPorts,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TInstanceGroupAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TInstanceGroupAggregatedList
  --------------------------------------------------------------------}


Procedure TInstanceGroupAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceGroupAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroupList
  --------------------------------------------------------------------}


Procedure TInstanceGroupList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupList.Setitems(AIndex : Integer; const AValue : TInstanceGroupListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManager
  --------------------------------------------------------------------}


Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; const AValue : String); 

begin
  If (FbaseInstanceName=AValue) then exit;
  FbaseInstanceName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SetcurrentActions(AIndex : Integer; const AValue : TInstanceGroupManagerActionsSummary); 

begin
  If (FcurrentActions=AValue) then exit;
  FcurrentActions:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SetinstanceGroup(AIndex : Integer; const AValue : String); 

begin
  If (FinstanceGroup=AValue) then exit;
  FinstanceGroup:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SetinstanceTemplate(AIndex : Integer; const AValue : String); 

begin
  If (FinstanceTemplate=AValue) then exit;
  FinstanceTemplate:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupManagerTypenamedPortsArray); 

begin
  If (FnamedPorts=AValue) then exit;
  FnamedPorts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SettargetPools(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FtargetPools=AValue) then exit;
  FtargetPools:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.SettargetSize(AIndex : Integer; const AValue : integer); 

begin
  If (FtargetSize=AValue) then exit;
  FtargetSize:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManager.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManager.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'namedports' : SetLength(FnamedPorts,ALength);
  'targetpools' : SetLength(FtargetPools,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagerActionsSummary
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagerActionsSummary.Setabandoning(AIndex : Integer; const AValue : integer); 

begin
  If (Fabandoning=AValue) then exit;
  Fabandoning:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerActionsSummary.Setcreating(AIndex : Integer; const AValue : integer); 

begin
  If (Fcreating=AValue) then exit;
  Fcreating:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerActionsSummary.Setdeleting(AIndex : Integer; const AValue : integer); 

begin
  If (Fdeleting=AValue) then exit;
  Fdeleting:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerActionsSummary.Setnone(AIndex : Integer; const AValue : integer); 

begin
  If (Fnone=AValue) then exit;
  Fnone:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerActionsSummary.Setrecreating(AIndex : Integer; const AValue : integer); 

begin
  If (Frecreating=AValue) then exit;
  Frecreating:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerActionsSummary.Setrefreshing(AIndex : Integer; const AValue : integer); 

begin
  If (Frefreshing=AValue) then exit;
  Frefreshing:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerActionsSummary.Setrestarting(AIndex : Integer; const AValue : integer); 

begin
  If (Frestarting=AValue) then exit;
  Frestarting:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroupManagerAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TInstanceGroupManagerAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TInstanceGroupManagerAggregatedList
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagerAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroupManagerList
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagerList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagerList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagerList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagersAbandonInstancesRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersAbandonInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersAbandonInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagersDeleteInstancesRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersDeleteInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersDeleteInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagersListManagedInstancesResponse
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersListManagedInstancesResponse.SetmanagedInstances(AIndex : Integer; const AValue : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray); 

begin
  If (FmanagedInstances=AValue) then exit;
  FmanagedInstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersListManagedInstancesResponse.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'managedinstances' : SetLength(FmanagedInstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagersRecreateInstancesRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersRecreateInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersRecreateInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagersScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagersScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroupManagersScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagersScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagersScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagersScopedList
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersScopedList.SetinstanceGroupManagers(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray); 

begin
  If (FinstanceGroupManagers=AValue) then exit;
  FinstanceGroupManagers:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagersScopedList.Setwarning(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instancegroupmanagers' : SetLength(FinstanceGroupManagers,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupManagersSetInstanceTemplateRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersSetInstanceTemplateRequest.SetinstanceTemplate(AIndex : Integer; const AValue : String); 

begin
  If (FinstanceTemplate=AValue) then exit;
  FinstanceTemplate:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroupManagersSetTargetPoolsRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupManagersSetTargetPoolsRequest.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupManagersSetTargetPoolsRequest.SettargetPools(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FtargetPools=AValue) then exit;
  FtargetPools:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersSetTargetPoolsRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'targetpools' : SetLength(FtargetPools,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupsAddInstancesRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupsAddInstancesRequest.Setinstances(AIndex : Integer; const AValue : TInstanceGroupsAddInstancesRequestTypeinstancesArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsAddInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupsListInstances
  --------------------------------------------------------------------}


Procedure TInstanceGroupsListInstances.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsListInstances.Setitems(AIndex : Integer; const AValue : TInstanceGroupsListInstancesTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsListInstances.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsListInstances.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsListInstances.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsListInstances.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupsListInstancesRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupsListInstancesRequest.SetinstanceState(AIndex : Integer; const AValue : String); 

begin
  If (FinstanceState=AValue) then exit;
  FinstanceState:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroupsRemoveInstancesRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupsRemoveInstancesRequest.Setinstances(AIndex : Integer; const AValue : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsRemoveInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupsScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TInstanceGroupsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceGroupsScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TInstanceGroupsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupsScopedList
  --------------------------------------------------------------------}


Procedure TInstanceGroupsScopedList.SetinstanceGroups(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypeinstanceGroupsArray); 

begin
  If (FinstanceGroups=AValue) then exit;
  FinstanceGroups:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsScopedList.Setwarning(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instancegroups' : SetLength(FinstanceGroups,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceGroupsSetNamedPortsRequest
  --------------------------------------------------------------------}


Procedure TInstanceGroupsSetNamedPortsRequest.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceGroupsSetNamedPortsRequest.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray); 

begin
  If (FnamedPorts=AValue) then exit;
  FnamedPorts:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsSetNamedPortsRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'namedports' : SetLength(FnamedPorts,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceList
  --------------------------------------------------------------------}


Procedure TInstanceList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceList.Setitems(AIndex : Integer; const AValue : TInstanceListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceMoveRequest
  --------------------------------------------------------------------}


Procedure TInstanceMoveRequest.SetdestinationZone(AIndex : Integer; const AValue : String); 

begin
  If (FdestinationZone=AValue) then exit;
  FdestinationZone:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceMoveRequest.SettargetInstance(AIndex : Integer; const AValue : String); 

begin
  If (FtargetInstance=AValue) then exit;
  FtargetInstance:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceProperties
  --------------------------------------------------------------------}


Procedure TInstanceProperties.SetcanIpForward(AIndex : Integer; const AValue : boolean); 

begin
  If (FcanIpForward=AValue) then exit;
  FcanIpForward:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.Setdisks(AIndex : Integer; const AValue : TInstancePropertiesTypedisksArray); 

begin
  If (Fdisks=AValue) then exit;
  Fdisks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.SetmachineType(AIndex : Integer; const AValue : String); 

begin
  If (FmachineType=AValue) then exit;
  FmachineType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.Setmetadata(AIndex : Integer; const AValue : TMetadata); 

begin
  If (Fmetadata=AValue) then exit;
  Fmetadata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.SetnetworkInterfaces(AIndex : Integer; const AValue : TInstancePropertiesTypenetworkInterfacesArray); 

begin
  If (FnetworkInterfaces=AValue) then exit;
  FnetworkInterfaces:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.Setscheduling(AIndex : Integer; const AValue : TScheduling); 

begin
  If (Fscheduling=AValue) then exit;
  Fscheduling:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.SetserviceAccounts(AIndex : Integer; const AValue : TInstancePropertiesTypeserviceAccountsArray); 

begin
  If (FserviceAccounts=AValue) then exit;
  FserviceAccounts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceProperties.Settags(AIndex : Integer; const AValue : TTags); 

begin
  If (Ftags=AValue) then exit;
  Ftags:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceProperties.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'disks' : SetLength(Fdisks,ALength);
  'networkinterfaces' : SetLength(FnetworkInterfaces,ALength);
  'serviceaccounts' : SetLength(FserviceAccounts,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceReference
  --------------------------------------------------------------------}


Procedure TInstanceReference.Setinstance(AIndex : Integer; const AValue : String); 

begin
  If (Finstance=AValue) then exit;
  Finstance:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceTemplate
  --------------------------------------------------------------------}


Procedure TInstanceTemplate.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplate.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplate.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplate.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplate.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplate.Setproperties(AIndex : Integer; const AValue : TInstanceProperties); 

begin
  If (Fproperties=AValue) then exit;
  Fproperties:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplate.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstanceTemplateList
  --------------------------------------------------------------------}


Procedure TInstanceTemplateList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplateList.Setitems(AIndex : Integer; const AValue : TInstanceTemplateListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplateList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplateList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceTemplateList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceTemplateList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstanceWithNamedPorts
  --------------------------------------------------------------------}


Procedure TInstanceWithNamedPorts.Setinstance(AIndex : Integer; const AValue : String); 

begin
  If (Finstance=AValue) then exit;
  Finstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceWithNamedPorts.SetnamedPorts(AIndex : Integer; const AValue : TInstanceWithNamedPortsTypenamedPortsArray); 

begin
  If (FnamedPorts=AValue) then exit;
  FnamedPorts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstanceWithNamedPorts.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceWithNamedPorts.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'namedports' : SetLength(FnamedPorts,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstancesScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TInstancesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstancesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TInstancesScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TInstancesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstancesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstancesScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstancesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstancesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstancesScopedList
  --------------------------------------------------------------------}


Procedure TInstancesScopedList.Setinstances(AIndex : Integer; const AValue : TInstancesScopedListTypeinstancesArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TInstancesScopedList.Setwarning(AIndex : Integer; const AValue : TInstancesScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstancesScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TInstancesSetMachineTypeRequest
  --------------------------------------------------------------------}


Procedure TInstancesSetMachineTypeRequest.SetmachineType(AIndex : Integer; const AValue : String); 

begin
  If (FmachineType=AValue) then exit;
  FmachineType:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TLicense
  --------------------------------------------------------------------}


Procedure TLicense.SetchargesUseFee(AIndex : Integer; const AValue : boolean); 

begin
  If (FchargesUseFee=AValue) then exit;
  FchargesUseFee:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLicense.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLicense.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TLicense.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TMachineTypeTypescratchDisksItem
  --------------------------------------------------------------------}


Procedure TMachineTypeTypescratchDisksItem.SetdiskGb(AIndex : Integer; const AValue : integer); 

begin
  If (FdiskGb=AValue) then exit;
  FdiskGb:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TMachineType
  --------------------------------------------------------------------}


Procedure TMachineType.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); 

begin
  If (Fdeprecated=AValue) then exit;
  Fdeprecated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.SetguestCpus(AIndex : Integer; const AValue : integer); 

begin
  If (FguestCpus=AValue) then exit;
  FguestCpus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.SetimageSpaceGb(AIndex : Integer; const AValue : integer); 

begin
  If (FimageSpaceGb=AValue) then exit;
  FimageSpaceGb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.SetmaximumPersistentDisks(AIndex : Integer; const AValue : integer); 

begin
  If (FmaximumPersistentDisks=AValue) then exit;
  FmaximumPersistentDisks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.SetmaximumPersistentDisksSizeGb(AIndex : Integer; const AValue : String); 

begin
  If (FmaximumPersistentDisksSizeGb=AValue) then exit;
  FmaximumPersistentDisksSizeGb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.SetmemoryMb(AIndex : Integer; const AValue : integer); 

begin
  If (FmemoryMb=AValue) then exit;
  FmemoryMb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.SetscratchDisks(AIndex : Integer; const AValue : TMachineTypeTypescratchDisksArray); 

begin
  If (FscratchDisks=AValue) then exit;
  FscratchDisks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineType.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineType.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'scratchdisks' : SetLength(FscratchDisks,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TMachineTypeAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TMachineTypeAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TMachineTypeAggregatedList
  --------------------------------------------------------------------}


Procedure TMachineTypeAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeAggregatedList.Setitems(AIndex : Integer; const AValue : TMachineTypeAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TMachineTypeList
  --------------------------------------------------------------------}


Procedure TMachineTypeList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeList.Setitems(AIndex : Integer; const AValue : TMachineTypeListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypeList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineTypeList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TMachineTypesScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TMachineTypesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TMachineTypesScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TMachineTypesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineTypesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TMachineTypesScopedList
  --------------------------------------------------------------------}


Procedure TMachineTypesScopedList.SetmachineTypes(AIndex : Integer; const AValue : TMachineTypesScopedListTypemachineTypesArray); 

begin
  If (FmachineTypes=AValue) then exit;
  FmachineTypes:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMachineTypesScopedList.Setwarning(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineTypesScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'machinetypes' : SetLength(FmachineTypes,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TManagedInstance
  --------------------------------------------------------------------}


Procedure TManagedInstance.SetcurrentAction(AIndex : Integer; const AValue : String); 

begin
  If (FcurrentAction=AValue) then exit;
  FcurrentAction:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManagedInstance.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManagedInstance.Setinstance(AIndex : Integer; const AValue : String); 

begin
  If (Finstance=AValue) then exit;
  Finstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManagedInstance.SetinstanceStatus(AIndex : Integer; const AValue : String); 

begin
  If (FinstanceStatus=AValue) then exit;
  FinstanceStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManagedInstance.SetlastAttempt(AIndex : Integer; const AValue : TManagedInstanceLastAttempt); 

begin
  If (FlastAttempt=AValue) then exit;
  FlastAttempt:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem
  --------------------------------------------------------------------}


Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 

begin
  If (Flocation=AValue) then exit;
  Flocation:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TManagedInstanceLastAttemptTypeerrors
  --------------------------------------------------------------------}


Procedure TManagedInstanceLastAttemptTypeerrors.Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray); 

begin
  If (Ferrors=AValue) then exit;
  Ferrors:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TManagedInstanceLastAttemptTypeerrors.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'errors' : SetLength(Ferrors,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TManagedInstanceLastAttempt
  --------------------------------------------------------------------}


Procedure TManagedInstanceLastAttempt.Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrors); 

begin
  If (Ferrors=AValue) then exit;
  Ferrors:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TMetadataTypeitemsItem
  --------------------------------------------------------------------}


Procedure TMetadataTypeitemsItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMetadataTypeitemsItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TMetadata
  --------------------------------------------------------------------}


Procedure TMetadata.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMetadata.Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TMetadata.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMetadata.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TNamedPort
  --------------------------------------------------------------------}


Procedure TNamedPort.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNamedPort.Setport(AIndex : Integer; const AValue : integer); 

begin
  If (Fport=AValue) then exit;
  Fport:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TNetwork
  --------------------------------------------------------------------}


Procedure TNetwork.SetIPv4Range(AIndex : Integer; const AValue : String); 

begin
  If (FIPv4Range=AValue) then exit;
  FIPv4Range:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.SetautoCreateSubnetworks(AIndex : Integer; const AValue : boolean); 

begin
  If (FautoCreateSubnetworks=AValue) then exit;
  FautoCreateSubnetworks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.SetgatewayIPv4(AIndex : Integer; const AValue : String); 

begin
  If (FgatewayIPv4=AValue) then exit;
  FgatewayIPv4:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetwork.Setsubnetworks(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fsubnetworks=AValue) then exit;
  Fsubnetworks:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetwork.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'subnetworks' : SetLength(Fsubnetworks,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TNetworkInterface
  --------------------------------------------------------------------}


Procedure TNetworkInterface.SetaccessConfigs(AIndex : Integer; const AValue : TNetworkInterfaceTypeaccessConfigsArray); 

begin
  If (FaccessConfigs=AValue) then exit;
  FaccessConfigs:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkInterface.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkInterface.Setnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fnetwork=AValue) then exit;
  Fnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkInterface.SetnetworkIP(AIndex : Integer; const AValue : String); 

begin
  If (FnetworkIP=AValue) then exit;
  FnetworkIP:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkInterface.Setsubnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fsubnetwork=AValue) then exit;
  Fsubnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetworkInterface.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'accessconfigs' : SetLength(FaccessConfigs,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TNetworkList
  --------------------------------------------------------------------}


Procedure TNetworkList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkList.Setitems(AIndex : Integer; const AValue : TNetworkListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TNetworkList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetworkList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationTypeerrorTypeerrorsItem
  --------------------------------------------------------------------}


Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 

begin
  If (Flocation=AValue) then exit;
  Flocation:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TOperationTypeerror
  --------------------------------------------------------------------}


Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); 

begin
  If (Ferrors=AValue) then exit;
  Ferrors:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'errors' : SetLength(Ferrors,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationTypewarningsItemTypedataItem
  --------------------------------------------------------------------}


Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TOperationTypewarningsItem
  --------------------------------------------------------------------}


Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperation
  --------------------------------------------------------------------}


Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 

begin
  If (FclientOperationId=AValue) then exit;
  FclientOperationId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 

begin
  If (FendTime=AValue) then exit;
  FendTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror); 

begin
  If (Ferror=AValue) then exit;
  Ferror:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 

begin
  If (FhttpErrorMessage=AValue) then exit;
  FhttpErrorMessage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); 

begin
  If (FhttpErrorStatusCode=AValue) then exit;
  FhttpErrorStatusCode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 

begin
  If (FinsertTime=AValue) then exit;
  FinsertTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 

begin
  If (FoperationType=AValue) then exit;
  FoperationType:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer); 

begin
  If (Fprogress=AValue) then exit;
  Fprogress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 

begin
  If (FstartTime=AValue) then exit;
  FstartTime:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 

begin
  If (FstatusMessage=AValue) then exit;
  FstatusMessage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 

begin
  If (FtargetId=AValue) then exit;
  FtargetId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 

begin
  If (FtargetLink=AValue) then exit;
  FtargetLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 

begin
  If (Fuser=AValue) then exit;
  Fuser:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); 

begin
  If (Fwarnings=AValue) then exit;
  Fwarnings:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'warnings' : SetLength(Fwarnings,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TOperationAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TOperationAggregatedList
  --------------------------------------------------------------------}


Procedure TOperationAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationAggregatedList.Setitems(AIndex : Integer; const AValue : TOperationAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TOperationList
  --------------------------------------------------------------------}


Procedure TOperationList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationsScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TOperationsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TOperationsScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TOperationsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TOperationsScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TOperationsScopedList
  --------------------------------------------------------------------}


Procedure TOperationsScopedList.Setoperations(AIndex : Integer; const AValue : TOperationsScopedListTypeoperationsArray); 

begin
  If (Foperations=AValue) then exit;
  Foperations:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TOperationsScopedList.Setwarning(AIndex : Integer; const AValue : TOperationsScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationsScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'operations' : SetLength(Foperations,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPathMatcher
  --------------------------------------------------------------------}


Procedure TPathMatcher.SetdefaultService(AIndex : Integer; const AValue : String); 

begin
  If (FdefaultService=AValue) then exit;
  FdefaultService:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPathMatcher.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPathMatcher.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPathMatcher.SetpathRules(AIndex : Integer; const AValue : TPathMatcherTypepathRulesArray); 

begin
  If (FpathRules=AValue) then exit;
  FpathRules:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPathMatcher.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'pathrules' : SetLength(FpathRules,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPathRule
  --------------------------------------------------------------------}


Procedure TPathRule.Setpaths(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fpaths=AValue) then exit;
  Fpaths:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPathRule.Setservice(AIndex : Integer; const AValue : String); 

begin
  If (Fservice=AValue) then exit;
  Fservice:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPathRule.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'paths' : SetLength(Fpaths,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TProject
  --------------------------------------------------------------------}


Procedure TProject.SetcommonInstanceMetadata(AIndex : Integer; const AValue : TMetadata); 

begin
  If (FcommonInstanceMetadata=AValue) then exit;
  FcommonInstanceMetadata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.SetenabledFeatures(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FenabledFeatures=AValue) then exit;
  FenabledFeatures:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.Setquotas(AIndex : Integer; const AValue : TProjectTypequotasArray); 

begin
  If (Fquotas=AValue) then exit;
  Fquotas:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TProject.SetusageExportLocation(AIndex : Integer; const AValue : TUsageExportLocation); 

begin
  If (FusageExportLocation=AValue) then exit;
  FusageExportLocation:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TProject.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'enabledfeatures' : SetLength(FenabledFeatures,ALength);
  'quotas' : SetLength(Fquotas,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TQuota
  --------------------------------------------------------------------}


Procedure TQuota.Setlimit(AIndex : Integer; const AValue : double); 

begin
  If (Flimit=AValue) then exit;
  Flimit:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuota.Setmetric(AIndex : Integer; const AValue : String); 

begin
  If (Fmetric=AValue) then exit;
  Fmetric:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TQuota.Setusage(AIndex : Integer; const AValue : double); 

begin
  If (Fusage=AValue) then exit;
  Fusage:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRegion
  --------------------------------------------------------------------}


Procedure TRegion.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); 

begin
  If (Fdeprecated=AValue) then exit;
  Fdeprecated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setquotas(AIndex : Integer; const AValue : TRegionTypequotasArray); 

begin
  If (Fquotas=AValue) then exit;
  Fquotas:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegion.Setzones(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fzones=AValue) then exit;
  Fzones:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRegion.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'quotas' : SetLength(Fquotas,ALength);
  'zones' : SetLength(Fzones,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRegionList
  --------------------------------------------------------------------}


Procedure TRegionList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegionList.Setitems(AIndex : Integer; const AValue : TRegionListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegionList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegionList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRegionList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRegionList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TResourceGroupReference
  --------------------------------------------------------------------}


Procedure TResourceGroupReference.Setgroup(AIndex : Integer; const AValue : String); 

begin
  If (Fgroup=AValue) then exit;
  Fgroup:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRouteTypewarningsItemTypedataItem
  --------------------------------------------------------------------}


Procedure TRouteTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRouteTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TRouteTypewarningsItem
  --------------------------------------------------------------------}


Procedure TRouteTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRouteTypewarningsItem.Setdata(AIndex : Integer; const AValue : TRouteTypewarningsItemTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRouteTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRouteTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRoute
  --------------------------------------------------------------------}


Procedure TRoute.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.SetdestRange(AIndex : Integer; const AValue : String); 

begin
  If (FdestRange=AValue) then exit;
  FdestRange:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Setnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fnetwork=AValue) then exit;
  Fnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.SetnextHopGateway(AIndex : Integer; const AValue : String); 

begin
  If (FnextHopGateway=AValue) then exit;
  FnextHopGateway:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.SetnextHopInstance(AIndex : Integer; const AValue : String); 

begin
  If (FnextHopInstance=AValue) then exit;
  FnextHopInstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.SetnextHopIp(AIndex : Integer; const AValue : String); 

begin
  If (FnextHopIp=AValue) then exit;
  FnextHopIp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.SetnextHopNetwork(AIndex : Integer; const AValue : String); 

begin
  If (FnextHopNetwork=AValue) then exit;
  FnextHopNetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.SetnextHopVpnTunnel(AIndex : Integer; const AValue : String); 

begin
  If (FnextHopVpnTunnel=AValue) then exit;
  FnextHopVpnTunnel:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Setpriority(AIndex : Integer; const AValue : integer); 

begin
  If (Fpriority=AValue) then exit;
  Fpriority:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Settags(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Ftags=AValue) then exit;
  Ftags:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRoute.Setwarnings(AIndex : Integer; const AValue : TRouteTypewarningsArray); 

begin
  If (Fwarnings=AValue) then exit;
  Fwarnings:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoute.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'tags' : SetLength(Ftags,ALength);
  'warnings' : SetLength(Fwarnings,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TRouteList
  --------------------------------------------------------------------}


Procedure TRouteList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRouteList.Setitems(AIndex : Integer; const AValue : TRouteListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRouteList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRouteList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TRouteList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRouteList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TScheduling
  --------------------------------------------------------------------}


Procedure TScheduling.SetautomaticRestart(AIndex : Integer; const AValue : boolean); 

begin
  If (FautomaticRestart=AValue) then exit;
  FautomaticRestart:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TScheduling.SetonHostMaintenance(AIndex : Integer; const AValue : String); 

begin
  If (FonHostMaintenance=AValue) then exit;
  FonHostMaintenance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TScheduling.Setpreemptible(AIndex : Integer; const AValue : boolean); 

begin
  If (Fpreemptible=AValue) then exit;
  Fpreemptible:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TSerialPortOutput
  --------------------------------------------------------------------}


Procedure TSerialPortOutput.Setcontents(AIndex : Integer; const AValue : String); 

begin
  If (Fcontents=AValue) then exit;
  Fcontents:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSerialPortOutput.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSerialPortOutput.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TServiceAccount
  --------------------------------------------------------------------}


Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String); 

begin
  If (Femail=AValue) then exit;
  Femail:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TServiceAccount.Setscopes(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fscopes=AValue) then exit;
  Fscopes:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TServiceAccount.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'scopes' : SetLength(Fscopes,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TSnapshot
  --------------------------------------------------------------------}


Procedure TSnapshot.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetdiskSizeGb(AIndex : Integer; const AValue : String); 

begin
  If (FdiskSizeGb=AValue) then exit;
  FdiskSizeGb:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setlicenses(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Flicenses=AValue) then exit;
  Flicenses:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetsourceDisk(AIndex : Integer; const AValue : String); 

begin
  If (FsourceDisk=AValue) then exit;
  FsourceDisk:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetsourceDiskId(AIndex : Integer; const AValue : String); 

begin
  If (FsourceDiskId=AValue) then exit;
  FsourceDiskId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetstorageBytes(AIndex : Integer; const AValue : String); 

begin
  If (FstorageBytes=AValue) then exit;
  FstorageBytes:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshot.SetstorageBytesStatus(AIndex : Integer; const AValue : String); 

begin
  If (FstorageBytesStatus=AValue) then exit;
  FstorageBytesStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSnapshot.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'licenses' : SetLength(Flicenses,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TSnapshotList
  --------------------------------------------------------------------}


Procedure TSnapshotList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotList.Setitems(AIndex : Integer; const AValue : TSnapshotListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSnapshotList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSnapshotList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TSslCertificate
  --------------------------------------------------------------------}


Procedure TSslCertificate.Setcertificate(AIndex : Integer; const AValue : String); 

begin
  If (Fcertificate=AValue) then exit;
  Fcertificate:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificate.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificate.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificate.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificate.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificate.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificate.SetprivateKey(AIndex : Integer; const AValue : String); 

begin
  If (FprivateKey=AValue) then exit;
  FprivateKey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificate.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TSslCertificateList
  --------------------------------------------------------------------}


Procedure TSslCertificateList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificateList.Setitems(AIndex : Integer; const AValue : TSslCertificateListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificateList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificateList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSslCertificateList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSslCertificateList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TSubnetwork
  --------------------------------------------------------------------}


Procedure TSubnetwork.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.SetgatewayAddress(AIndex : Integer; const AValue : String); 

begin
  If (FgatewayAddress=AValue) then exit;
  FgatewayAddress:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.SetipCidrRange(AIndex : Integer; const AValue : String); 

begin
  If (FipCidrRange=AValue) then exit;
  FipCidrRange:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.Setnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fnetwork=AValue) then exit;
  Fnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetwork.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TSubnetworkAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TSubnetworkAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TSubnetworkAggregatedList
  --------------------------------------------------------------------}


Procedure TSubnetworkAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkAggregatedList.Setitems(AIndex : Integer; const AValue : TSubnetworkAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TSubnetworkList
  --------------------------------------------------------------------}


Procedure TSubnetworkList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkList.Setitems(AIndex : Integer; const AValue : TSubnetworkListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworkList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSubnetworkList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TSubnetworksScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TSubnetworksScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworksScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TSubnetworksScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TSubnetworksScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworksScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworksScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSubnetworksScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TSubnetworksScopedList
  --------------------------------------------------------------------}


Procedure TSubnetworksScopedList.Setsubnetworks(AIndex : Integer; const AValue : TSubnetworksScopedListTypesubnetworksArray); 

begin
  If (Fsubnetworks=AValue) then exit;
  Fsubnetworks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TSubnetworksScopedList.Setwarning(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSubnetworksScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'subnetworks' : SetLength(Fsubnetworks,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTags
  --------------------------------------------------------------------}


Procedure TTags.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTags.Setitems(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTags.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetHttpProxy
  --------------------------------------------------------------------}


Procedure TTargetHttpProxy.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxy.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxy.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxy.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxy.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxy.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxy.SeturlMap(AIndex : Integer; const AValue : String); 

begin
  If (FurlMap=AValue) then exit;
  FurlMap:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetHttpProxyList
  --------------------------------------------------------------------}


Procedure TTargetHttpProxyList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxyList.Setitems(AIndex : Integer; const AValue : TTargetHttpProxyListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxyList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxyList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpProxyList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpProxyList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetHttpsProxiesSetSslCertificatesRequest
  --------------------------------------------------------------------}


Procedure TTargetHttpsProxiesSetSslCertificatesRequest.SetsslCertificates(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FsslCertificates=AValue) then exit;
  FsslCertificates:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpsProxiesSetSslCertificatesRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'sslcertificates' : SetLength(FsslCertificates,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetHttpsProxy
  --------------------------------------------------------------------}


Procedure TTargetHttpsProxy.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxy.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxy.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxy.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxy.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxy.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxy.SetsslCertificates(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FsslCertificates=AValue) then exit;
  FsslCertificates:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxy.SeturlMap(AIndex : Integer; const AValue : String); 

begin
  If (FurlMap=AValue) then exit;
  FurlMap:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpsProxy.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'sslcertificates' : SetLength(FsslCertificates,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetHttpsProxyList
  --------------------------------------------------------------------}


Procedure TTargetHttpsProxyList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxyList.Setitems(AIndex : Integer; const AValue : TTargetHttpsProxyListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxyList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxyList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetHttpsProxyList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpsProxyList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetInstance
  --------------------------------------------------------------------}


Procedure TTargetInstance.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.Setinstance(AIndex : Integer; const AValue : String); 

begin
  If (Finstance=AValue) then exit;
  Finstance:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.SetnatPolicy(AIndex : Integer; const AValue : String); 

begin
  If (FnatPolicy=AValue) then exit;
  FnatPolicy:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstance.Setzone(AIndex : Integer; const AValue : String); 

begin
  If (Fzone=AValue) then exit;
  Fzone:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetInstanceAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TTargetInstanceAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TTargetInstanceAggregatedList
  --------------------------------------------------------------------}


Procedure TTargetInstanceAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetInstanceAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetInstanceList
  --------------------------------------------------------------------}


Procedure TTargetInstanceList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceList.Setitems(AIndex : Integer; const AValue : TTargetInstanceListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstanceList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetInstanceList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetInstancesScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TTargetInstancesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstancesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetInstancesScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TTargetInstancesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstancesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstancesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetInstancesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetInstancesScopedList
  --------------------------------------------------------------------}


Procedure TTargetInstancesScopedList.SettargetInstances(AIndex : Integer; const AValue : TTargetInstancesScopedListTypetargetInstancesArray); 

begin
  If (FtargetInstances=AValue) then exit;
  FtargetInstances:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetInstancesScopedList.Setwarning(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetInstancesScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'targetinstances' : SetLength(FtargetInstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPool
  --------------------------------------------------------------------}


Procedure TTargetPool.SetbackupPool(AIndex : Integer; const AValue : String); 

begin
  If (FbackupPool=AValue) then exit;
  FbackupPool:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.SetfailoverRatio(AIndex : Integer; const AValue : integer); 

begin
  If (FfailoverRatio=AValue) then exit;
  FfailoverRatio:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.SethealthChecks(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FhealthChecks=AValue) then exit;
  FhealthChecks:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.Setinstances(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPool.SetsessionAffinity(AIndex : Integer; const AValue : String); 

begin
  If (FsessionAffinity=AValue) then exit;
  FsessionAffinity:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPool.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'healthchecks' : SetLength(FhealthChecks,ALength);
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TTargetPoolAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TTargetPoolAggregatedList
  --------------------------------------------------------------------}


Procedure TTargetPoolAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetPoolAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetPoolInstanceHealth
  --------------------------------------------------------------------}


Procedure TTargetPoolInstanceHealth.SethealthStatus(AIndex : Integer; const AValue : TTargetPoolInstanceHealthTypehealthStatusArray); 

begin
  If (FhealthStatus=AValue) then exit;
  FhealthStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolInstanceHealth.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolInstanceHealth.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'healthstatus' : SetLength(FhealthStatus,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolList
  --------------------------------------------------------------------}


Procedure TTargetPoolList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolList.Setitems(AIndex : Integer; const AValue : TTargetPoolListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolsAddHealthCheckRequest
  --------------------------------------------------------------------}


Procedure TTargetPoolsAddHealthCheckRequest.SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray); 

begin
  If (FhealthChecks=AValue) then exit;
  FhealthChecks:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsAddHealthCheckRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'healthchecks' : SetLength(FhealthChecks,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolsAddInstanceRequest
  --------------------------------------------------------------------}


Procedure TTargetPoolsAddInstanceRequest.Setinstances(AIndex : Integer; const AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsAddInstanceRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolsRemoveHealthCheckRequest
  --------------------------------------------------------------------}


Procedure TTargetPoolsRemoveHealthCheckRequest.SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray); 

begin
  If (FhealthChecks=AValue) then exit;
  FhealthChecks:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsRemoveHealthCheckRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'healthchecks' : SetLength(FhealthChecks,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolsRemoveInstanceRequest
  --------------------------------------------------------------------}


Procedure TTargetPoolsRemoveInstanceRequest.Setinstances(AIndex : Integer; const AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray); 

begin
  If (Finstances=AValue) then exit;
  Finstances:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsRemoveInstanceRequest.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'instances' : SetLength(Finstances,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolsScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TTargetPoolsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetPoolsScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TTargetPoolsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetPoolsScopedList
  --------------------------------------------------------------------}


Procedure TTargetPoolsScopedList.SettargetPools(AIndex : Integer; const AValue : TTargetPoolsScopedListTypetargetPoolsArray); 

begin
  If (FtargetPools=AValue) then exit;
  FtargetPools:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetPoolsScopedList.Setwarning(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'targetpools' : SetLength(FtargetPools,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetReference
  --------------------------------------------------------------------}


Procedure TTargetReference.Settarget(AIndex : Integer; const AValue : String); 

begin
  If (Ftarget=AValue) then exit;
  Ftarget:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetVpnGateway
  --------------------------------------------------------------------}


Procedure TTargetVpnGateway.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.SetforwardingRules(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FforwardingRules=AValue) then exit;
  FforwardingRules:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Setnetwork(AIndex : Integer; const AValue : String); 

begin
  If (Fnetwork=AValue) then exit;
  Fnetwork:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGateway.Settunnels(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Ftunnels=AValue) then exit;
  Ftunnels:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGateway.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'forwardingrules' : SetLength(FforwardingRules,ALength);
  'tunnels' : SetLength(Ftunnels,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetVpnGatewayAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TTargetVpnGatewayAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TTargetVpnGatewayAggregatedList
  --------------------------------------------------------------------}


Procedure TTargetVpnGatewayAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetVpnGatewayList
  --------------------------------------------------------------------}


Procedure TTargetVpnGatewayList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayList.Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewayList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGatewayList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetVpnGatewaysScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TTargetVpnGatewaysScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewaysScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TTargetVpnGatewaysScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TTargetVpnGatewaysScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewaysScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewaysScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGatewaysScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTargetVpnGatewaysScopedList
  --------------------------------------------------------------------}


Procedure TTargetVpnGatewaysScopedList.SettargetVpnGateways(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray); 

begin
  If (FtargetVpnGateways=AValue) then exit;
  FtargetVpnGateways:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTargetVpnGatewaysScopedList.Setwarning(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGatewaysScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'targetvpngateways' : SetLength(FtargetVpnGateways,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTestFailure
  --------------------------------------------------------------------}


Procedure TTestFailure.SetactualService(AIndex : Integer; const AValue : String); 

begin
  If (FactualService=AValue) then exit;
  FactualService:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTestFailure.SetexpectedService(AIndex : Integer; const AValue : String); 

begin
  If (FexpectedService=AValue) then exit;
  FexpectedService:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTestFailure.Sethost(AIndex : Integer; const AValue : String); 

begin
  If (Fhost=AValue) then exit;
  Fhost:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTestFailure.Setpath(AIndex : Integer; const AValue : String); 

begin
  If (Fpath=AValue) then exit;
  Fpath:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUrlMap
  --------------------------------------------------------------------}


Procedure TUrlMap.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.SetdefaultService(AIndex : Integer; const AValue : String); 

begin
  If (FdefaultService=AValue) then exit;
  FdefaultService:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.Setfingerprint(AIndex : Integer; const AValue : String); 

begin
  If (Ffingerprint=AValue) then exit;
  Ffingerprint:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.SethostRules(AIndex : Integer; const AValue : TUrlMapTypehostRulesArray); 

begin
  If (FhostRules=AValue) then exit;
  FhostRules:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.SetpathMatchers(AIndex : Integer; const AValue : TUrlMapTypepathMatchersArray); 

begin
  If (FpathMatchers=AValue) then exit;
  FpathMatchers:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMap.Settests(AIndex : Integer; const AValue : TUrlMapTypetestsArray); 

begin
  If (Ftests=AValue) then exit;
  Ftests:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TUrlMap.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'hostrules' : SetLength(FhostRules,ALength);
  'pathmatchers' : SetLength(FpathMatchers,ALength);
  'tests' : SetLength(Ftests,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TUrlMapList
  --------------------------------------------------------------------}


Procedure TUrlMapList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapList.Setitems(AIndex : Integer; const AValue : TUrlMapListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TUrlMapList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TUrlMapReference
  --------------------------------------------------------------------}


Procedure TUrlMapReference.SeturlMap(AIndex : Integer; const AValue : String); 

begin
  If (FurlMap=AValue) then exit;
  FurlMap:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUrlMapTest
  --------------------------------------------------------------------}


Procedure TUrlMapTest.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapTest.Sethost(AIndex : Integer; const AValue : String); 

begin
  If (Fhost=AValue) then exit;
  Fhost:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapTest.Setpath(AIndex : Integer; const AValue : String); 

begin
  If (Fpath=AValue) then exit;
  Fpath:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapTest.Setservice(AIndex : Integer; const AValue : String); 

begin
  If (Fservice=AValue) then exit;
  Fservice:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUrlMapValidationResult
  --------------------------------------------------------------------}


Procedure TUrlMapValidationResult.SetloadErrors(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FloadErrors=AValue) then exit;
  FloadErrors:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapValidationResult.SetloadSucceeded(AIndex : Integer; const AValue : boolean); 

begin
  If (FloadSucceeded=AValue) then exit;
  FloadSucceeded:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapValidationResult.SettestFailures(AIndex : Integer; const AValue : TUrlMapValidationResultTypetestFailuresArray); 

begin
  If (FtestFailures=AValue) then exit;
  FtestFailures:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUrlMapValidationResult.SettestPassed(AIndex : Integer; const AValue : boolean); 

begin
  If (FtestPassed=AValue) then exit;
  FtestPassed:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TUrlMapValidationResult.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'loaderrors' : SetLength(FloadErrors,ALength);
  'testfailures' : SetLength(FtestFailures,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TUrlMapsValidateRequest
  --------------------------------------------------------------------}


Procedure TUrlMapsValidateRequest.Setresource(AIndex : Integer; const AValue : TUrlMap); 

begin
  If (Fresource=AValue) then exit;
  Fresource:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUrlMapsValidateResponse
  --------------------------------------------------------------------}


Procedure TUrlMapsValidateResponse.Setresult(AIndex : Integer; const AValue : TUrlMapValidationResult); 

begin
  If (Fresult=AValue) then exit;
  Fresult:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUsageExportLocation
  --------------------------------------------------------------------}


Procedure TUsageExportLocation.SetbucketName(AIndex : Integer; const AValue : String); 

begin
  If (FbucketName=AValue) then exit;
  FbucketName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUsageExportLocation.SetreportNamePrefix(AIndex : Integer; const AValue : String); 

begin
  If (FreportNamePrefix=AValue) then exit;
  FreportNamePrefix:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TVpnTunnel
  --------------------------------------------------------------------}


Procedure TVpnTunnel.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SetdetailedStatus(AIndex : Integer; const AValue : String); 

begin
  If (FdetailedStatus=AValue) then exit;
  FdetailedStatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SetikeVersion(AIndex : Integer; const AValue : integer); 

begin
  If (FikeVersion=AValue) then exit;
  FikeVersion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SetlocalTrafficSelector(AIndex : Integer; const AValue : TStringArray); 

begin
  If (FlocalTrafficSelector=AValue) then exit;
  FlocalTrafficSelector:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SetpeerIp(AIndex : Integer; const AValue : String); 

begin
  If (FpeerIp=AValue) then exit;
  FpeerIp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SetsharedSecret(AIndex : Integer; const AValue : String); 

begin
  If (FsharedSecret=AValue) then exit;
  FsharedSecret:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SetsharedSecretHash(AIndex : Integer; const AValue : String); 

begin
  If (FsharedSecretHash=AValue) then exit;
  FsharedSecretHash:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnel.SettargetVpnGateway(AIndex : Integer; const AValue : String); 

begin
  If (FtargetVpnGateway=AValue) then exit;
  FtargetVpnGateway:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnel.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'localtrafficselector' : SetLength(FlocalTrafficSelector,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TVpnTunnelAggregatedListTypeitems
  --------------------------------------------------------------------}


Class Function TVpnTunnelAggregatedListTypeitems.AllowAdditionalProperties : Boolean;

begin
  Result:=True;
end;



{ --------------------------------------------------------------------
  TVpnTunnelAggregatedList
  --------------------------------------------------------------------}


Procedure TVpnTunnelAggregatedList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelAggregatedList.Setitems(AIndex : Integer; const AValue : TVpnTunnelAggregatedListTypeitems); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelAggregatedList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelAggregatedList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TVpnTunnelList
  --------------------------------------------------------------------}


Procedure TVpnTunnelList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelList.Setitems(AIndex : Integer; const AValue : TVpnTunnelListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnelList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TVpnTunnelsScopedListTypewarningTypedataItem
  --------------------------------------------------------------------}


Procedure TVpnTunnelsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String); 

begin
  If (Fkey=AValue) then exit;
  Fkey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 

begin
  If (Fvalue=AValue) then exit;
  Fvalue:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TVpnTunnelsScopedListTypewarning
  --------------------------------------------------------------------}


Procedure TVpnTunnelsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String); 

begin
  If (Fcode=AValue) then exit;
  Fcode:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarningTypedataArray); 

begin
  If (Fdata=AValue) then exit;
  Fdata:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String); 

begin
  If (Fmessage=AValue) then exit;
  Fmessage:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnelsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'data' : SetLength(Fdata,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TVpnTunnelsScopedList
  --------------------------------------------------------------------}


Procedure TVpnTunnelsScopedList.SetvpnTunnels(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypevpnTunnelsArray); 

begin
  If (FvpnTunnels=AValue) then exit;
  FvpnTunnels:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TVpnTunnelsScopedList.Setwarning(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarning); 

begin
  If (Fwarning=AValue) then exit;
  Fwarning:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnelsScopedList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'vpntunnels' : SetLength(FvpnTunnels,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TZone
  --------------------------------------------------------------------}


Procedure TZone.SetcreationTimestamp(AIndex : Integer; const AValue : String); 

begin
  If (FcreationTimestamp=AValue) then exit;
  FcreationTimestamp:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); 

begin
  If (Fdeprecated=AValue) then exit;
  Fdeprecated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.Setregion(AIndex : Integer; const AValue : String); 

begin
  If (Fregion=AValue) then exit;
  Fregion:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZone.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TZoneList
  --------------------------------------------------------------------}


Procedure TZoneList.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZoneList.Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZoneList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZoneList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TZoneList.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TZoneList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TAddressesResource
  --------------------------------------------------------------------}


Class Function TAddressesResource.ResourceName : String;

begin
  Result:='addresses';
end;

Class Function TAddressesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TAddressesResource.AggregatedList(project: string; AQuery : string = '') : TAddressAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/addresses';
  _Methodid   = 'compute.addresses.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAddressAggregatedList) as TAddressAggregatedList;
end;


Function TAddressesResource.AggregatedList(project: string; AQuery : TAddressesaggregatedListOptions) : TAddressAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TAddressesResource.Delete(address: string; project: string; region: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/regions/{region}/addresses/{address}';
  _Methodid   = 'compute.addresses.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['address',address,'project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TAddressesResource.Get(address: string; project: string; region: string) : TAddress;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/addresses/{address}';
  _Methodid   = 'compute.addresses.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['address',address,'project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAddress) as TAddress;
end;

Function TAddressesResource.Insert(project: string; region: string; aAddress : TAddress) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/addresses';
  _Methodid   = 'compute.addresses.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aAddress,TOperation) as TOperation;
end;

Function TAddressesResource.List(project: string; region: string; AQuery : string = '') : TAddressList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/addresses';
  _Methodid   = 'compute.addresses.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAddressList) as TAddressList;
end;


Function TAddressesResource.List(project: string; region: string; AQuery : TAddresseslistOptions) : TAddressList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,region,_Q);
end;



{ --------------------------------------------------------------------
  TAutoscalersResource
  --------------------------------------------------------------------}


Class Function TAutoscalersResource.ResourceName : String;

begin
  Result:='autoscalers';
end;

Class Function TAutoscalersResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TAutoscalersResource.AggregatedList(project: string; AQuery : string = '') : TAutoscalerAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/autoscalers';
  _Methodid   = 'compute.autoscalers.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAutoscalerAggregatedList) as TAutoscalerAggregatedList;
end;


Function TAutoscalersResource.AggregatedList(project: string; AQuery : TAutoscalersaggregatedListOptions) : TAutoscalerAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TAutoscalersResource.Delete(autoscaler: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/zones/{zone}/autoscalers/{autoscaler}';
  _Methodid   = 'compute.autoscalers.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['autoscaler',autoscaler,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TAutoscalersResource.Get(autoscaler: string; project: string; zone: string) : TAutoscaler;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/autoscalers/{autoscaler}';
  _Methodid   = 'compute.autoscalers.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['autoscaler',autoscaler,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAutoscaler) as TAutoscaler;
end;

Function TAutoscalersResource.Insert(project: string; zone: string; aAutoscaler : TAutoscaler) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/autoscalers';
  _Methodid   = 'compute.autoscalers.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aAutoscaler,TOperation) as TOperation;
end;

Function TAutoscalersResource.List(project: string; zone: string; AQuery : string = '') : TAutoscalerList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/autoscalers';
  _Methodid   = 'compute.autoscalers.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAutoscalerList) as TAutoscalerList;
end;


Function TAutoscalersResource.List(project: string; zone: string; AQuery : TAutoscalerslistOptions) : TAutoscalerList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;

Function TAutoscalersResource.Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'PATCH';
  _Path       = '{project}/zones/{zone}/autoscalers';
  _Methodid   = 'compute.autoscalers.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAutoscaler,TOperation) as TOperation;
end;


Function TAutoscalersResource.Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalerspatchOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'autoscaler',AQuery.autoscaler);
  Result:=Patch(project,zone,aAutoscaler,_Q);
end;

Function TAutoscalersResource.Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'PUT';
  _Path       = '{project}/zones/{zone}/autoscalers';
  _Methodid   = 'compute.autoscalers.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAutoscaler,TOperation) as TOperation;
end;


Function TAutoscalersResource.Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalersupdateOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'autoscaler',AQuery.autoscaler);
  Result:=Update(project,zone,aAutoscaler,_Q);
end;



{ --------------------------------------------------------------------
  TBackendServicesResource
  --------------------------------------------------------------------}


Class Function TBackendServicesResource.ResourceName : String;

begin
  Result:='backendServices';
end;

Class Function TBackendServicesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TBackendServicesResource.Delete(backendService: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/backendServices/{backendService}';
  _Methodid   = 'compute.backendServices.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TBackendServicesResource.Get(backendService: string; project: string) : TBackendService;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/backendServices/{backendService}';
  _Methodid   = 'compute.backendServices.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TBackendService) as TBackendService;
end;

Function TBackendServicesResource.GetHealth(backendService: string; project: string; aResourceGroupReference : TResourceGroupReference) : TBackendServiceGroupHealth;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/backendServices/{backendService}/getHealth';
  _Methodid   = 'compute.backendServices.getHealth';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aResourceGroupReference,TBackendServiceGroupHealth) as TBackendServiceGroupHealth;
end;

Function TBackendServicesResource.Insert(project: string; aBackendService : TBackendService) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/backendServices';
  _Methodid   = 'compute.backendServices.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aBackendService,TOperation) as TOperation;
end;

Function TBackendServicesResource.List(project: string; AQuery : string = '') : TBackendServiceList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/backendServices';
  _Methodid   = 'compute.backendServices.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBackendServiceList) as TBackendServiceList;
end;


Function TBackendServicesResource.List(project: string; AQuery : TBackendServiceslistOptions) : TBackendServiceList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function TBackendServicesResource.Patch(backendService: string; project: string; aBackendService : TBackendService) : TOperation;

Const
  _HTTPMethod = 'PATCH';
  _Path       = '{project}/global/backendServices/{backendService}';
  _Methodid   = 'compute.backendServices.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aBackendService,TOperation) as TOperation;
end;

Function TBackendServicesResource.Update(backendService: string; project: string; aBackendService : TBackendService) : TOperation;

Const
  _HTTPMethod = 'PUT';
  _Path       = '{project}/global/backendServices/{backendService}';
  _Methodid   = 'compute.backendServices.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aBackendService,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TDiskTypesResource
  --------------------------------------------------------------------}


Class Function TDiskTypesResource.ResourceName : String;

begin
  Result:='diskTypes';
end;

Class Function TDiskTypesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TDiskTypesResource.AggregatedList(project: string; AQuery : string = '') : TDiskTypeAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/diskTypes';
  _Methodid   = 'compute.diskTypes.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskTypeAggregatedList) as TDiskTypeAggregatedList;
end;


Function TDiskTypesResource.AggregatedList(project: string; AQuery : TDiskTypesaggregatedListOptions) : TDiskTypeAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TDiskTypesResource.Get(diskType: string; project: string; zone: string) : TDiskType;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/diskTypes/{diskType}';
  _Methodid   = 'compute.diskTypes.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['diskType',diskType,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDiskType) as TDiskType;
end;

Function TDiskTypesResource.List(project: string; zone: string; AQuery : string = '') : TDiskTypeList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/diskTypes';
  _Methodid   = 'compute.diskTypes.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskTypeList) as TDiskTypeList;
end;


Function TDiskTypesResource.List(project: string; zone: string; AQuery : TDiskTypeslistOptions) : TDiskTypeList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;



{ --------------------------------------------------------------------
  TDisksResource
  --------------------------------------------------------------------}


Class Function TDisksResource.ResourceName : String;

begin
  Result:='disks';
end;

Class Function TDisksResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TDisksResource.AggregatedList(project: string; AQuery : string = '') : TDiskAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/disks';
  _Methodid   = 'compute.disks.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskAggregatedList) as TDiskAggregatedList;
end;


Function TDisksResource.AggregatedList(project: string; AQuery : TDisksaggregatedListOptions) : TDiskAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TDisksResource.CreateSnapshot(disk: string; project: string; zone: string; aSnapshot : TSnapshot) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/disks/{disk}/createSnapshot';
  _Methodid   = 'compute.disks.createSnapshot';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aSnapshot,TOperation) as TOperation;
end;

Function TDisksResource.Delete(disk: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/zones/{zone}/disks/{disk}';
  _Methodid   = 'compute.disks.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TDisksResource.Get(disk: string; project: string; zone: string) : TDisk;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/disks/{disk}';
  _Methodid   = 'compute.disks.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDisk) as TDisk;
end;

Function TDisksResource.Insert(project: string; zone: string; aDisk : TDisk; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/disks';
  _Methodid   = 'compute.disks.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDisk,TOperation) as TOperation;
end;


Function TDisksResource.Insert(project: string; zone: string; aDisk : TDisk; AQuery : TDisksinsertOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'sourceImage',AQuery.sourceImage);
  Result:=Insert(project,zone,aDisk,_Q);
end;

Function TDisksResource.List(project: string; zone: string; AQuery : string = '') : TDiskList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/disks';
  _Methodid   = 'compute.disks.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskList) as TDiskList;
end;


Function TDisksResource.List(project: string; zone: string; AQuery : TDiskslistOptions) : TDiskList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;

Function TDisksResource.Resize(disk: string; project: string; zone: string; aDisksResizeRequest : TDisksResizeRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/disks/{disk}/resize';
  _Methodid   = 'compute.disks.resize';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aDisksResizeRequest,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TFirewallsResource
  --------------------------------------------------------------------}


Class Function TFirewallsResource.ResourceName : String;

begin
  Result:='firewalls';
end;

Class Function TFirewallsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TFirewallsResource.Delete(firewall: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/firewalls/{firewall}';
  _Methodid   = 'compute.firewalls.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TFirewallsResource.Get(firewall: string; project: string) : TFirewall;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/firewalls/{firewall}';
  _Methodid   = 'compute.firewalls.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFirewall) as TFirewall;
end;

Function TFirewallsResource.Insert(project: string; aFirewall : TFirewall) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/firewalls';
  _Methodid   = 'compute.firewalls.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aFirewall,TOperation) as TOperation;
end;

Function TFirewallsResource.List(project: string; AQuery : string = '') : TFirewallList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/firewalls';
  _Methodid   = 'compute.firewalls.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFirewallList) as TFirewallList;
end;


Function TFirewallsResource.List(project: string; AQuery : TFirewallslistOptions) : TFirewallList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function TFirewallsResource.Patch(firewall: string; project: string; aFirewall : TFirewall) : TOperation;

Const
  _HTTPMethod = 'PATCH';
  _Path       = '{project}/global/firewalls/{firewall}';
  _Methodid   = 'compute.firewalls.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aFirewall,TOperation) as TOperation;
end;

Function TFirewallsResource.Update(firewall: string; project: string; aFirewall : TFirewall) : TOperation;

Const
  _HTTPMethod = 'PUT';
  _Path       = '{project}/global/firewalls/{firewall}';
  _Methodid   = 'compute.firewalls.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aFirewall,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TForwardingRulesResource
  --------------------------------------------------------------------}


Class Function TForwardingRulesResource.ResourceName : String;

begin
  Result:='forwardingRules';
end;

Class Function TForwardingRulesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TForwardingRulesResource.AggregatedList(project: string; AQuery : string = '') : TForwardingRuleAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/forwardingRules';
  _Methodid   = 'compute.forwardingRules.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TForwardingRuleAggregatedList) as TForwardingRuleAggregatedList;
end;


Function TForwardingRulesResource.AggregatedList(project: string; AQuery : TForwardingRulesaggregatedListOptions) : TForwardingRuleAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TForwardingRulesResource.Delete(forwardingRule: string; project: string; region: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/regions/{region}/forwardingRules/{forwardingRule}';
  _Methodid   = 'compute.forwardingRules.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TForwardingRulesResource.Get(forwardingRule: string; project: string; region: string) : TForwardingRule;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/forwardingRules/{forwardingRule}';
  _Methodid   = 'compute.forwardingRules.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TForwardingRule) as TForwardingRule;
end;

Function TForwardingRulesResource.Insert(project: string; region: string; aForwardingRule : TForwardingRule) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/forwardingRules';
  _Methodid   = 'compute.forwardingRules.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aForwardingRule,TOperation) as TOperation;
end;

Function TForwardingRulesResource.List(project: string; region: string; AQuery : string = '') : TForwardingRuleList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/forwardingRules';
  _Methodid   = 'compute.forwardingRules.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TForwardingRuleList) as TForwardingRuleList;
end;


Function TForwardingRulesResource.List(project: string; region: string; AQuery : TForwardingRuleslistOptions) : TForwardingRuleList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,region,_Q);
end;

Function TForwardingRulesResource.SetTarget(forwardingRule: string; project: string; region: string; aTargetReference : TTargetReference) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/forwardingRules/{forwardingRule}/setTarget';
  _Methodid   = 'compute.forwardingRules.setTarget';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetReference,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TGlobalAddressesResource
  --------------------------------------------------------------------}


Class Function TGlobalAddressesResource.ResourceName : String;

begin
  Result:='globalAddresses';
end;

Class Function TGlobalAddressesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TGlobalAddressesResource.Delete(address: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/addresses/{address}';
  _Methodid   = 'compute.globalAddresses.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['address',address,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TGlobalAddressesResource.Get(address: string; project: string) : TAddress;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/addresses/{address}';
  _Methodid   = 'compute.globalAddresses.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['address',address,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAddress) as TAddress;
end;

Function TGlobalAddressesResource.Insert(project: string; aAddress : TAddress) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/addresses';
  _Methodid   = 'compute.globalAddresses.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aAddress,TOperation) as TOperation;
end;

Function TGlobalAddressesResource.List(project: string; AQuery : string = '') : TAddressList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/addresses';
  _Methodid   = 'compute.globalAddresses.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAddressList) as TAddressList;
end;


Function TGlobalAddressesResource.List(project: string; AQuery : TGlobalAddresseslistOptions) : TAddressList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TGlobalForwardingRulesResource
  --------------------------------------------------------------------}


Class Function TGlobalForwardingRulesResource.ResourceName : String;

begin
  Result:='globalForwardingRules';
end;

Class Function TGlobalForwardingRulesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TGlobalForwardingRulesResource.Delete(forwardingRule: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/forwardingRules/{forwardingRule}';
  _Methodid   = 'compute.globalForwardingRules.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TGlobalForwardingRulesResource.Get(forwardingRule: string; project: string) : TForwardingRule;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/forwardingRules/{forwardingRule}';
  _Methodid   = 'compute.globalForwardingRules.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TForwardingRule) as TForwardingRule;
end;

Function TGlobalForwardingRulesResource.Insert(project: string; aForwardingRule : TForwardingRule) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/forwardingRules';
  _Methodid   = 'compute.globalForwardingRules.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aForwardingRule,TOperation) as TOperation;
end;

Function TGlobalForwardingRulesResource.List(project: string; AQuery : string = '') : TForwardingRuleList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/forwardingRules';
  _Methodid   = 'compute.globalForwardingRules.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TForwardingRuleList) as TForwardingRuleList;
end;


Function TGlobalForwardingRulesResource.List(project: string; AQuery : TGlobalForwardingRuleslistOptions) : TForwardingRuleList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function TGlobalForwardingRulesResource.SetTarget(forwardingRule: string; project: string; aTargetReference : TTargetReference) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/forwardingRules/{forwardingRule}/setTarget';
  _Methodid   = 'compute.globalForwardingRules.setTarget';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetReference,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TGlobalOperationsResource
  --------------------------------------------------------------------}


Class Function TGlobalOperationsResource.ResourceName : String;

begin
  Result:='globalOperations';
end;

Class Function TGlobalOperationsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TGlobalOperationsResource.AggregatedList(project: string; AQuery : string = '') : TOperationAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/operations';
  _Methodid   = 'compute.globalOperations.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationAggregatedList) as TOperationAggregatedList;
end;


Function TGlobalOperationsResource.AggregatedList(project: string; AQuery : TGlobalOperationsaggregatedListOptions) : TOperationAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Procedure TGlobalOperationsResource.Delete(operation: string; project: string);

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/operations/{operation}';
  _Methodid   = 'compute.globalOperations.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['operation',operation,'project',project]);
  ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;

Function TGlobalOperationsResource.Get(operation: string; project: string) : TOperation;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/operations/{operation}';
  _Methodid   = 'compute.globalOperations.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['operation',operation,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TGlobalOperationsResource.List(project: string; AQuery : string = '') : TOperationList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/operations';
  _Methodid   = 'compute.globalOperations.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
end;


Function TGlobalOperationsResource.List(project: string; AQuery : TGlobalOperationslistOptions) : TOperationList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  THttpHealthChecksResource
  --------------------------------------------------------------------}


Class Function THttpHealthChecksResource.ResourceName : String;

begin
  Result:='httpHealthChecks';
end;

Class Function THttpHealthChecksResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function THttpHealthChecksResource.Delete(httpHealthCheck: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/httpHealthChecks/{httpHealthCheck}';
  _Methodid   = 'compute.httpHealthChecks.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function THttpHealthChecksResource.Get(httpHealthCheck: string; project: string) : THttpHealthCheck;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/httpHealthChecks/{httpHealthCheck}';
  _Methodid   = 'compute.httpHealthChecks.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,THttpHealthCheck) as THttpHealthCheck;
end;

Function THttpHealthChecksResource.Insert(project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/httpHealthChecks';
  _Methodid   = 'compute.httpHealthChecks.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aHttpHealthCheck,TOperation) as TOperation;
end;

Function THttpHealthChecksResource.List(project: string; AQuery : string = '') : THttpHealthCheckList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/httpHealthChecks';
  _Methodid   = 'compute.httpHealthChecks.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,THttpHealthCheckList) as THttpHealthCheckList;
end;


Function THttpHealthChecksResource.List(project: string; AQuery : THttpHealthCheckslistOptions) : THttpHealthCheckList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function THttpHealthChecksResource.Patch(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;

Const
  _HTTPMethod = 'PATCH';
  _Path       = '{project}/global/httpHealthChecks/{httpHealthCheck}';
  _Methodid   = 'compute.httpHealthChecks.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aHttpHealthCheck,TOperation) as TOperation;
end;

Function THttpHealthChecksResource.Update(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;

Const
  _HTTPMethod = 'PUT';
  _Path       = '{project}/global/httpHealthChecks/{httpHealthCheck}';
  _Methodid   = 'compute.httpHealthChecks.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aHttpHealthCheck,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  THttpsHealthChecksResource
  --------------------------------------------------------------------}


Class Function THttpsHealthChecksResource.ResourceName : String;

begin
  Result:='httpsHealthChecks';
end;

Class Function THttpsHealthChecksResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function THttpsHealthChecksResource.Delete(httpsHealthCheck: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
  _Methodid   = 'compute.httpsHealthChecks.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function THttpsHealthChecksResource.Get(httpsHealthCheck: string; project: string) : THttpsHealthCheck;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
  _Methodid   = 'compute.httpsHealthChecks.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,THttpsHealthCheck) as THttpsHealthCheck;
end;

Function THttpsHealthChecksResource.Insert(project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/httpsHealthChecks';
  _Methodid   = 'compute.httpsHealthChecks.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
end;

Function THttpsHealthChecksResource.List(project: string; AQuery : string = '') : THttpsHealthCheckList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/httpsHealthChecks';
  _Methodid   = 'compute.httpsHealthChecks.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,THttpsHealthCheckList) as THttpsHealthCheckList;
end;


Function THttpsHealthChecksResource.List(project: string; AQuery : THttpsHealthCheckslistOptions) : THttpsHealthCheckList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function THttpsHealthChecksResource.Patch(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;

Const
  _HTTPMethod = 'PATCH';
  _Path       = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
  _Methodid   = 'compute.httpsHealthChecks.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
end;

Function THttpsHealthChecksResource.Update(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;

Const
  _HTTPMethod = 'PUT';
  _Path       = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
  _Methodid   = 'compute.httpsHealthChecks.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TImagesResource
  --------------------------------------------------------------------}


Class Function TImagesResource.ResourceName : String;

begin
  Result:='images';
end;

Class Function TImagesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TImagesResource.Delete(image: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/images/{image}';
  _Methodid   = 'compute.images.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['image',image,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TImagesResource.Deprecate(image: string; project: string; aDeprecationStatus : TDeprecationStatus) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/images/{image}/deprecate';
  _Methodid   = 'compute.images.deprecate';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['image',image,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aDeprecationStatus,TOperation) as TOperation;
end;

Function TImagesResource.Get(image: string; project: string) : TImage;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/images/{image}';
  _Methodid   = 'compute.images.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['image',image,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImage) as TImage;
end;

Function TImagesResource.GetFromFamily(family: string; project: string) : TImage;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/images/family/{family}';
  _Methodid   = 'compute.images.getFromFamily';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['family',family,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImage) as TImage;
end;

Function TImagesResource.Insert(project: string; aImage : TImage) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/images';
  _Methodid   = 'compute.images.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aImage,TOperation) as TOperation;
end;

Function TImagesResource.List(project: string; AQuery : string = '') : TImageList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/images';
  _Methodid   = 'compute.images.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TImageList) as TImageList;
end;


Function TImagesResource.List(project: string; AQuery : TImageslistOptions) : TImageList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TInstanceGroupManagersResource
  --------------------------------------------------------------------}


Class Function TInstanceGroupManagersResource.ResourceName : String;

begin
  Result:='instanceGroupManagers';
end;

Class Function TInstanceGroupManagersResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TInstanceGroupManagersResource.AbandonInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersAbandonInstancesRequest : TInstanceGroupManagersAbandonInstancesRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/abandonInstances';
  _Methodid   = 'compute.instanceGroupManagers.abandonInstances';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersAbandonInstancesRequest,TOperation) as TOperation;
end;

Function TInstanceGroupManagersResource.AggregatedList(project: string; AQuery : string = '') : TInstanceGroupManagerAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/instanceGroupManagers';
  _Methodid   = 'compute.instanceGroupManagers.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupManagerAggregatedList) as TInstanceGroupManagerAggregatedList;
end;


Function TInstanceGroupManagersResource.AggregatedList(project: string; AQuery : TInstanceGroupManagersaggregatedListOptions) : TInstanceGroupManagerAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TInstanceGroupManagersResource.Delete(instanceGroupManager: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}';
  _Methodid   = 'compute.instanceGroupManagers.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TInstanceGroupManagersResource.DeleteInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersDeleteInstancesRequest : TInstanceGroupManagersDeleteInstancesRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/deleteInstances';
  _Methodid   = 'compute.instanceGroupManagers.deleteInstances';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersDeleteInstancesRequest,TOperation) as TOperation;
end;

Function TInstanceGroupManagersResource.Get(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManager;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}';
  _Methodid   = 'compute.instanceGroupManagers.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroupManager) as TInstanceGroupManager;
end;

Function TInstanceGroupManagersResource.Insert(project: string; zone: string; aInstanceGroupManager : TInstanceGroupManager) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers';
  _Methodid   = 'compute.instanceGroupManagers.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManager,TOperation) as TOperation;
end;

Function TInstanceGroupManagersResource.List(project: string; zone: string; AQuery : string = '') : TInstanceGroupManagerList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers';
  _Methodid   = 'compute.instanceGroupManagers.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupManagerList) as TInstanceGroupManagerList;
end;


Function TInstanceGroupManagersResource.List(project: string; zone: string; AQuery : TInstanceGroupManagerslistOptions) : TInstanceGroupManagerList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;

Function TInstanceGroupManagersResource.ListManagedInstances(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManagersListManagedInstancesResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/listManagedInstances';
  _Methodid   = 'compute.instanceGroupManagers.listManagedInstances';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroupManagersListManagedInstancesResponse) as TInstanceGroupManagersListManagedInstancesResponse;
end;

Function TInstanceGroupManagersResource.RecreateInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersRecreateInstancesRequest : TInstanceGroupManagersRecreateInstancesRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/recreateInstances';
  _Methodid   = 'compute.instanceGroupManagers.recreateInstances';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersRecreateInstancesRequest,TOperation) as TOperation;
end;

Function TInstanceGroupManagersResource.Resize(instanceGroupManager: string; project: string; zone: string; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/resize';
  _Methodid   = 'compute.instanceGroupManagers.resize';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;


Function TInstanceGroupManagersResource.Resize(instanceGroupManager: string; project: string; zone: string; AQuery : TInstanceGroupManagersresizeOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'size',AQuery.size);
  Result:=Resize(instanceGroupManager,project,zone,_Q);
end;

Function TInstanceGroupManagersResource.SetInstanceTemplate(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetInstanceTemplateRequest : TInstanceGroupManagersSetInstanceTemplateRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/setInstanceTemplate';
  _Methodid   = 'compute.instanceGroupManagers.setInstanceTemplate';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersSetInstanceTemplateRequest,TOperation) as TOperation;
end;

Function TInstanceGroupManagersResource.SetTargetPools(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetTargetPoolsRequest : TInstanceGroupManagersSetTargetPoolsRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/setTargetPools';
  _Methodid   = 'compute.instanceGroupManagers.setTargetPools';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersSetTargetPoolsRequest,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TInstanceGroupsResource
  --------------------------------------------------------------------}


Class Function TInstanceGroupsResource.ResourceName : String;

begin
  Result:='instanceGroups';
end;

Class Function TInstanceGroupsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TInstanceGroupsResource.AddInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsAddInstancesRequest : TInstanceGroupsAddInstancesRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/addInstances';
  _Methodid   = 'compute.instanceGroups.addInstances';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsAddInstancesRequest,TOperation) as TOperation;
end;

Function TInstanceGroupsResource.AggregatedList(project: string; AQuery : string = '') : TInstanceGroupAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/instanceGroups';
  _Methodid   = 'compute.instanceGroups.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupAggregatedList) as TInstanceGroupAggregatedList;
end;


Function TInstanceGroupsResource.AggregatedList(project: string; AQuery : TInstanceGroupsaggregatedListOptions) : TInstanceGroupAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TInstanceGroupsResource.Delete(instanceGroup: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/zones/{zone}/instanceGroups/{instanceGroup}';
  _Methodid   = 'compute.instanceGroups.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TInstanceGroupsResource.Get(instanceGroup: string; project: string; zone: string) : TInstanceGroup;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/instanceGroups/{instanceGroup}';
  _Methodid   = 'compute.instanceGroups.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroup) as TInstanceGroup;
end;

Function TInstanceGroupsResource.Insert(project: string; zone: string; aInstanceGroup : TInstanceGroup) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroups';
  _Methodid   = 'compute.instanceGroups.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroup,TOperation) as TOperation;
end;

Function TInstanceGroupsResource.List(project: string; zone: string; AQuery : string = '') : TInstanceGroupList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/instanceGroups';
  _Methodid   = 'compute.instanceGroups.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupList) as TInstanceGroupList;
end;


Function TInstanceGroupsResource.List(project: string; zone: string; AQuery : TInstanceGroupslistOptions) : TInstanceGroupList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;

Function TInstanceGroupsResource.ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : string = '') : TInstanceGroupsListInstances;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/listInstances';
  _Methodid   = 'compute.instanceGroups.listInstances';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInstanceGroupsListInstancesRequest,TInstanceGroupsListInstances) as TInstanceGroupsListInstances;
end;


Function TInstanceGroupsResource.ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : TInstanceGroupslistInstancesOptions) : TInstanceGroupsListInstances;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=ListInstances(instanceGroup,project,zone,aInstanceGroupsListInstancesRequest,_Q);
end;

Function TInstanceGroupsResource.RemoveInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsRemoveInstancesRequest : TInstanceGroupsRemoveInstancesRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/removeInstances';
  _Methodid   = 'compute.instanceGroups.removeInstances';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsRemoveInstancesRequest,TOperation) as TOperation;
end;

Function TInstanceGroupsResource.SetNamedPorts(instanceGroup: string; project: string; zone: string; aInstanceGroupsSetNamedPortsRequest : TInstanceGroupsSetNamedPortsRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/setNamedPorts';
  _Methodid   = 'compute.instanceGroups.setNamedPorts';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsSetNamedPortsRequest,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TInstanceTemplatesResource
  --------------------------------------------------------------------}


Class Function TInstanceTemplatesResource.ResourceName : String;

begin
  Result:='instanceTemplates';
end;

Class Function TInstanceTemplatesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TInstanceTemplatesResource.Delete(instanceTemplate: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/instanceTemplates/{instanceTemplate}';
  _Methodid   = 'compute.instanceTemplates.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceTemplate',instanceTemplate,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TInstanceTemplatesResource.Get(instanceTemplate: string; project: string) : TInstanceTemplate;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/instanceTemplates/{instanceTemplate}';
  _Methodid   = 'compute.instanceTemplates.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instanceTemplate',instanceTemplate,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceTemplate) as TInstanceTemplate;
end;

Function TInstanceTemplatesResource.Insert(project: string; aInstanceTemplate : TInstanceTemplate) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/instanceTemplates';
  _Methodid   = 'compute.instanceTemplates.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceTemplate,TOperation) as TOperation;
end;

Function TInstanceTemplatesResource.List(project: string; AQuery : string = '') : TInstanceTemplateList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/instanceTemplates';
  _Methodid   = 'compute.instanceTemplates.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceTemplateList) as TInstanceTemplateList;
end;


Function TInstanceTemplatesResource.List(project: string; AQuery : TInstanceTemplateslistOptions) : TInstanceTemplateList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TInstancesResource
  --------------------------------------------------------------------}


Class Function TInstancesResource.ResourceName : String;

begin
  Result:='instances';
end;

Class Function TInstancesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TInstancesResource.AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/addAccessConfig';
  _Methodid   = 'compute.instances.addAccessConfig';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccessConfig,TOperation) as TOperation;
end;


Function TInstancesResource.AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : TInstancesaddAccessConfigOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'networkInterface',AQuery.networkInterface);
  Result:=AddAccessConfig(instance,project,zone,aAccessConfig,_Q);
end;

Function TInstancesResource.AggregatedList(project: string; AQuery : string = '') : TInstanceAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/instances';
  _Methodid   = 'compute.instances.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceAggregatedList) as TInstanceAggregatedList;
end;


Function TInstancesResource.AggregatedList(project: string; AQuery : TInstancesaggregatedListOptions) : TInstanceAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TInstancesResource.AttachDisk(instance: string; project: string; zone: string; aAttachedDisk : TAttachedDisk) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/attachDisk';
  _Methodid   = 'compute.instances.attachDisk';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aAttachedDisk,TOperation) as TOperation;
end;

Function TInstancesResource.Delete(instance: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/zones/{zone}/instances/{instance}';
  _Methodid   = 'compute.instances.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TInstancesResource.DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/deleteAccessConfig';
  _Methodid   = 'compute.instances.deleteAccessConfig';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;


Function TInstancesResource.DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : TInstancesdeleteAccessConfigOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'accessConfig',AQuery.accessConfig);
  AddToQuery(_Q,'networkInterface',AQuery.networkInterface);
  Result:=DeleteAccessConfig(instance,project,zone,_Q);
end;

Function TInstancesResource.DetachDisk(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/detachDisk';
  _Methodid   = 'compute.instances.detachDisk';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;


Function TInstancesResource.DetachDisk(instance: string; project: string; zone: string; AQuery : TInstancesdetachDiskOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'deviceName',AQuery.deviceName);
  Result:=DetachDisk(instance,project,zone,_Q);
end;

Function TInstancesResource.Get(instance: string; project: string; zone: string) : TInstance;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/instances/{instance}';
  _Methodid   = 'compute.instances.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstance) as TInstance;
end;

Function TInstancesResource.GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : string = '') : TSerialPortOutput;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/instances/{instance}/serialPort';
  _Methodid   = 'compute.instances.getSerialPortOutput';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSerialPortOutput) as TSerialPortOutput;
end;


Function TInstancesResource.GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : TInstancesgetSerialPortOutputOptions) : TSerialPortOutput;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'port',AQuery.port);
  Result:=GetSerialPortOutput(instance,project,zone,_Q);
end;

Function TInstancesResource.Insert(project: string; zone: string; aInstance : TInstance) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances';
  _Methodid   = 'compute.instances.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstance,TOperation) as TOperation;
end;

Function TInstancesResource.List(project: string; zone: string; AQuery : string = '') : TInstanceList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/instances';
  _Methodid   = 'compute.instances.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceList) as TInstanceList;
end;


Function TInstancesResource.List(project: string; zone: string; AQuery : TInstanceslistOptions) : TInstanceList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;

Function TInstancesResource.Reset(instance: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/reset';
  _Methodid   = 'compute.instances.reset';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TInstancesResource.SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/setDiskAutoDelete';
  _Methodid   = 'compute.instances.setDiskAutoDelete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;


Function TInstancesResource.SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : TInstancessetDiskAutoDeleteOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'autoDelete',AQuery.autoDelete);
  AddToQuery(_Q,'deviceName',AQuery.deviceName);
  Result:=SetDiskAutoDelete(instance,project,zone,_Q);
end;

Function TInstancesResource.SetMachineType(instance: string; project: string; zone: string; aInstancesSetMachineTypeRequest : TInstancesSetMachineTypeRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/setMachineType';
  _Methodid   = 'compute.instances.setMachineType';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstancesSetMachineTypeRequest,TOperation) as TOperation;
end;

Function TInstancesResource.SetMetadata(instance: string; project: string; zone: string; aMetadata : TMetadata) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/setMetadata';
  _Methodid   = 'compute.instances.setMetadata';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aMetadata,TOperation) as TOperation;
end;

Function TInstancesResource.SetScheduling(instance: string; project: string; zone: string; aScheduling : TScheduling) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/setScheduling';
  _Methodid   = 'compute.instances.setScheduling';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aScheduling,TOperation) as TOperation;
end;

Function TInstancesResource.SetTags(instance: string; project: string; zone: string; aTags : TTags) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/setTags';
  _Methodid   = 'compute.instances.setTags';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTags,TOperation) as TOperation;
end;

Function TInstancesResource.Start(instance: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/start';
  _Methodid   = 'compute.instances.start';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TInstancesResource.Stop(instance: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/instances/{instance}/stop';
  _Methodid   = 'compute.instances.stop';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TLicensesResource
  --------------------------------------------------------------------}


Class Function TLicensesResource.ResourceName : String;

begin
  Result:='licenses';
end;

Class Function TLicensesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TLicensesResource.Get(license: string; project: string) : TLicense;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/licenses/{license}';
  _Methodid   = 'compute.licenses.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['license',license,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TLicense) as TLicense;
end;



{ --------------------------------------------------------------------
  TMachineTypesResource
  --------------------------------------------------------------------}


Class Function TMachineTypesResource.ResourceName : String;

begin
  Result:='machineTypes';
end;

Class Function TMachineTypesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TMachineTypesResource.AggregatedList(project: string; AQuery : string = '') : TMachineTypeAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/machineTypes';
  _Methodid   = 'compute.machineTypes.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMachineTypeAggregatedList) as TMachineTypeAggregatedList;
end;


Function TMachineTypesResource.AggregatedList(project: string; AQuery : TMachineTypesaggregatedListOptions) : TMachineTypeAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TMachineTypesResource.Get(machineType: string; project: string; zone: string) : TMachineType;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/machineTypes/{machineType}';
  _Methodid   = 'compute.machineTypes.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['machineType',machineType,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMachineType) as TMachineType;
end;

Function TMachineTypesResource.List(project: string; zone: string; AQuery : string = '') : TMachineTypeList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/machineTypes';
  _Methodid   = 'compute.machineTypes.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMachineTypeList) as TMachineTypeList;
end;


Function TMachineTypesResource.List(project: string; zone: string; AQuery : TMachineTypeslistOptions) : TMachineTypeList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;



{ --------------------------------------------------------------------
  TNetworksResource
  --------------------------------------------------------------------}


Class Function TNetworksResource.ResourceName : String;

begin
  Result:='networks';
end;

Class Function TNetworksResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TNetworksResource.Delete(network: string; project: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/networks/{network}';
  _Methodid   = 'compute.networks.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['network',network,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TNetworksResource.Get(network: string; project: string) : TNetwork;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/networks/{network}';
  _Methodid   = 'compute.networks.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['network',network,'project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TNetwork) as TNetwork;
end;

Function TNetworksResource.Insert(project: string; aNetwork : TNetwork) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/networks';
  _Methodid   = 'compute.networks.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aNetwork,TOperation) as TOperation;
end;

Function TNetworksResource.List(project: string; AQuery : string = '') : TNetworkList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/networks';
  _Methodid   = 'compute.networks.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TNetworkList) as TNetworkList;
end;


Function TNetworksResource.List(project: string; AQuery : TNetworkslistOptions) : TNetworkList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TProjectsResource
  --------------------------------------------------------------------}


Class Function TProjectsResource.ResourceName : String;

begin
  Result:='projects';
end;

Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TProjectsResource.Get(project: string) : TProject;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}';
  _Methodid   = 'compute.projects.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProject) as TProject;
end;

Function TProjectsResource.MoveDisk(project: string; aDiskMoveRequest : TDiskMoveRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/moveDisk';
  _Methodid   = 'compute.projects.moveDisk';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aDiskMoveRequest,TOperation) as TOperation;
end;

Function TProjectsResource.MoveInstance(project: string; aInstanceMoveRequest : TInstanceMoveRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/moveInstance';
  _Methodid   = 'compute.projects.moveInstance';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceMoveRequest,TOperation) as TOperation;
end;

Function TProjectsResource.SetCommonInstanceMetadata(project: string; aMetadata : TMetadata) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/setCommonInstanceMetadata';
  _Methodid   = 'compute.projects.setCommonInstanceMetadata';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aMetadata,TOperation) as TOperation;
end;

Function TProjectsResource.SetUsageExportBucket(project: string; aUsageExportLocation : TUsageExportLocation) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/setUsageExportBucket';
  _Methodid   = 'compute.projects.setUsageExportBucket';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aUsageExportLocation,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TRegionOperationsResource
  --------------------------------------------------------------------}


Class Function TRegionOperationsResource.ResourceName : String;

begin
  Result:='regionOperations';
end;

Class Function TRegionOperationsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Procedure TRegionOperationsResource.Delete(operation: string; project: string; region: string);

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/regions/{region}/operations/{operation}';
  _Methodid   = 'compute.regionOperations.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['operation',operation,'project',project,'region',region]);
  ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;

Function TRegionOperationsResource.Get(operation: string; project: string; region: string) : TOperation;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/operations/{operation}';
  _Methodid   = 'compute.regionOperations.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['operation',operation,'project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TRegionOperationsResource.List(project: string; region: string; AQuery : string = '') : TOperationList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/operations';
  _Methodid   = 'compute.regionOperations.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
end;


Function TRegionOperationsResource.List(project: string; region: string; AQuery : TRegionOperationslistOptions) : TOperationList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,region,_Q);
end;



{ --------------------------------------------------------------------
  TRegionsResource
  --------------------------------------------------------------------}


Class Function TRegionsResource.ResourceName : String;

begin
  Result:='regions';
end;

Class Function TRegionsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TRegionsResource.Get(project: string; region: string) : TRegion;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}';
  _Methodid   = 'compute.regions.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRegion) as TRegion;
end;

Function TRegionsResource.List(project: string; AQuery : string = '') : TRegionList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions';
  _Methodid   = 'compute.regions.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRegionList) as TRegionList;
end;


Function TRegionsResource.List(project: string; AQuery : TRegionslistOptions) : TRegionList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TRoutesResource
  --------------------------------------------------------------------}


Class Function TRoutesResource.ResourceName : String;

begin
  Result:='routes';
end;

Class Function TRoutesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TRoutesResource.Delete(project: string; route: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/routes/{route}';
  _Methodid   = 'compute.routes.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'route',route]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TRoutesResource.Get(project: string; route: string) : TRoute;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/routes/{route}';
  _Methodid   = 'compute.routes.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'route',route]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRoute) as TRoute;
end;

Function TRoutesResource.Insert(project: string; aRoute : TRoute) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/routes';
  _Methodid   = 'compute.routes.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aRoute,TOperation) as TOperation;
end;

Function TRoutesResource.List(project: string; AQuery : string = '') : TRouteList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/routes';
  _Methodid   = 'compute.routes.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRouteList) as TRouteList;
end;


Function TRoutesResource.List(project: string; AQuery : TRouteslistOptions) : TRouteList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TSnapshotsResource
  --------------------------------------------------------------------}


Class Function TSnapshotsResource.ResourceName : String;

begin
  Result:='snapshots';
end;

Class Function TSnapshotsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TSnapshotsResource.Delete(project: string; snapshot: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/snapshots/{snapshot}';
  _Methodid   = 'compute.snapshots.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'snapshot',snapshot]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TSnapshotsResource.Get(project: string; snapshot: string) : TSnapshot;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/snapshots/{snapshot}';
  _Methodid   = 'compute.snapshots.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'snapshot',snapshot]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSnapshot) as TSnapshot;
end;

Function TSnapshotsResource.List(project: string; AQuery : string = '') : TSnapshotList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/snapshots';
  _Methodid   = 'compute.snapshots.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSnapshotList) as TSnapshotList;
end;


Function TSnapshotsResource.List(project: string; AQuery : TSnapshotslistOptions) : TSnapshotList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TSslCertificatesResource
  --------------------------------------------------------------------}


Class Function TSslCertificatesResource.ResourceName : String;

begin
  Result:='sslCertificates';
end;

Class Function TSslCertificatesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TSslCertificatesResource.Delete(project: string; sslCertificate: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/sslCertificates/{sslCertificate}';
  _Methodid   = 'compute.sslCertificates.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'sslCertificate',sslCertificate]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TSslCertificatesResource.Get(project: string; sslCertificate: string) : TSslCertificate;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/sslCertificates/{sslCertificate}';
  _Methodid   = 'compute.sslCertificates.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'sslCertificate',sslCertificate]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSslCertificate) as TSslCertificate;
end;

Function TSslCertificatesResource.Insert(project: string; aSslCertificate : TSslCertificate) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/sslCertificates';
  _Methodid   = 'compute.sslCertificates.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aSslCertificate,TOperation) as TOperation;
end;

Function TSslCertificatesResource.List(project: string; AQuery : string = '') : TSslCertificateList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/sslCertificates';
  _Methodid   = 'compute.sslCertificates.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSslCertificateList) as TSslCertificateList;
end;


Function TSslCertificatesResource.List(project: string; AQuery : TSslCertificateslistOptions) : TSslCertificateList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TSubnetworksResource
  --------------------------------------------------------------------}


Class Function TSubnetworksResource.ResourceName : String;

begin
  Result:='subnetworks';
end;

Class Function TSubnetworksResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TSubnetworksResource.AggregatedList(project: string; AQuery : string = '') : TSubnetworkAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/subnetworks';
  _Methodid   = 'compute.subnetworks.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSubnetworkAggregatedList) as TSubnetworkAggregatedList;
end;


Function TSubnetworksResource.AggregatedList(project: string; AQuery : TSubnetworksaggregatedListOptions) : TSubnetworkAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TSubnetworksResource.Delete(project: string; region: string; subnetwork: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/regions/{region}/subnetworks/{subnetwork}';
  _Methodid   = 'compute.subnetworks.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'subnetwork',subnetwork]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TSubnetworksResource.Get(project: string; region: string; subnetwork: string) : TSubnetwork;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/subnetworks/{subnetwork}';
  _Methodid   = 'compute.subnetworks.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'subnetwork',subnetwork]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSubnetwork) as TSubnetwork;
end;

Function TSubnetworksResource.Insert(project: string; region: string; aSubnetwork : TSubnetwork) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/subnetworks';
  _Methodid   = 'compute.subnetworks.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aSubnetwork,TOperation) as TOperation;
end;

Function TSubnetworksResource.List(project: string; region: string; AQuery : string = '') : TSubnetworkList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/subnetworks';
  _Methodid   = 'compute.subnetworks.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSubnetworkList) as TSubnetworkList;
end;


Function TSubnetworksResource.List(project: string; region: string; AQuery : TSubnetworkslistOptions) : TSubnetworkList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,region,_Q);
end;



{ --------------------------------------------------------------------
  TTargetHttpProxiesResource
  --------------------------------------------------------------------}


Class Function TTargetHttpProxiesResource.ResourceName : String;

begin
  Result:='targetHttpProxies';
end;

Class Function TTargetHttpProxiesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TTargetHttpProxiesResource.Delete(project: string; targetHttpProxy: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/targetHttpProxies/{targetHttpProxy}';
  _Methodid   = 'compute.targetHttpProxies.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetHttpProxy',targetHttpProxy]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TTargetHttpProxiesResource.Get(project: string; targetHttpProxy: string) : TTargetHttpProxy;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/targetHttpProxies/{targetHttpProxy}';
  _Methodid   = 'compute.targetHttpProxies.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetHttpProxy',targetHttpProxy]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetHttpProxy) as TTargetHttpProxy;
end;

Function TTargetHttpProxiesResource.Insert(project: string; aTargetHttpProxy : TTargetHttpProxy) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/targetHttpProxies';
  _Methodid   = 'compute.targetHttpProxies.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpProxy,TOperation) as TOperation;
end;

Function TTargetHttpProxiesResource.List(project: string; AQuery : string = '') : TTargetHttpProxyList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/targetHttpProxies';
  _Methodid   = 'compute.targetHttpProxies.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetHttpProxyList) as TTargetHttpProxyList;
end;


Function TTargetHttpProxiesResource.List(project: string; AQuery : TTargetHttpProxieslistOptions) : TTargetHttpProxyList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function TTargetHttpProxiesResource.SetUrlMap(project: string; targetHttpProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/targetHttpProxies/{targetHttpProxy}/setUrlMap';
  _Methodid   = 'compute.targetHttpProxies.setUrlMap';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetHttpProxy',targetHttpProxy]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMapReference,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TTargetHttpsProxiesResource
  --------------------------------------------------------------------}


Class Function TTargetHttpsProxiesResource.ResourceName : String;

begin
  Result:='targetHttpsProxies';
end;

Class Function TTargetHttpsProxiesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TTargetHttpsProxiesResource.Delete(project: string; targetHttpsProxy: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/targetHttpsProxies/{targetHttpsProxy}';
  _Methodid   = 'compute.targetHttpsProxies.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TTargetHttpsProxiesResource.Get(project: string; targetHttpsProxy: string) : TTargetHttpsProxy;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/targetHttpsProxies/{targetHttpsProxy}';
  _Methodid   = 'compute.targetHttpsProxies.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetHttpsProxy) as TTargetHttpsProxy;
end;

Function TTargetHttpsProxiesResource.Insert(project: string; aTargetHttpsProxy : TTargetHttpsProxy) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/targetHttpsProxies';
  _Methodid   = 'compute.targetHttpsProxies.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpsProxy,TOperation) as TOperation;
end;

Function TTargetHttpsProxiesResource.List(project: string; AQuery : string = '') : TTargetHttpsProxyList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/targetHttpsProxies';
  _Methodid   = 'compute.targetHttpsProxies.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetHttpsProxyList) as TTargetHttpsProxyList;
end;


Function TTargetHttpsProxiesResource.List(project: string; AQuery : TTargetHttpsProxieslistOptions) : TTargetHttpsProxyList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function TTargetHttpsProxiesResource.SetSslCertificates(project: string; targetHttpsProxy: string; aTargetHttpsProxiesSetSslCertificatesRequest : TTargetHttpsProxiesSetSslCertificatesRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/targetHttpsProxies/{targetHttpsProxy}/setSslCertificates';
  _Methodid   = 'compute.targetHttpsProxies.setSslCertificates';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpsProxiesSetSslCertificatesRequest,TOperation) as TOperation;
end;

Function TTargetHttpsProxiesResource.SetUrlMap(project: string; targetHttpsProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/targetHttpsProxies/{targetHttpsProxy}/setUrlMap';
  _Methodid   = 'compute.targetHttpsProxies.setUrlMap';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMapReference,TOperation) as TOperation;
end;



{ --------------------------------------------------------------------
  TTargetInstancesResource
  --------------------------------------------------------------------}


Class Function TTargetInstancesResource.ResourceName : String;

begin
  Result:='targetInstances';
end;

Class Function TTargetInstancesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TTargetInstancesResource.AggregatedList(project: string; AQuery : string = '') : TTargetInstanceAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/targetInstances';
  _Methodid   = 'compute.targetInstances.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetInstanceAggregatedList) as TTargetInstanceAggregatedList;
end;


Function TTargetInstancesResource.AggregatedList(project: string; AQuery : TTargetInstancesaggregatedListOptions) : TTargetInstanceAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TTargetInstancesResource.Delete(project: string; targetInstance: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/zones/{zone}/targetInstances/{targetInstance}';
  _Methodid   = 'compute.targetInstances.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetInstance',targetInstance,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TTargetInstancesResource.Get(project: string; targetInstance: string; zone: string) : TTargetInstance;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/targetInstances/{targetInstance}';
  _Methodid   = 'compute.targetInstances.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'targetInstance',targetInstance,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetInstance) as TTargetInstance;
end;

Function TTargetInstancesResource.Insert(project: string; zone: string; aTargetInstance : TTargetInstance) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/zones/{zone}/targetInstances';
  _Methodid   = 'compute.targetInstances.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetInstance,TOperation) as TOperation;
end;

Function TTargetInstancesResource.List(project: string; zone: string; AQuery : string = '') : TTargetInstanceList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/targetInstances';
  _Methodid   = 'compute.targetInstances.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetInstanceList) as TTargetInstanceList;
end;


Function TTargetInstancesResource.List(project: string; zone: string; AQuery : TTargetInstanceslistOptions) : TTargetInstanceList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;



{ --------------------------------------------------------------------
  TTargetPoolsResource
  --------------------------------------------------------------------}


Class Function TTargetPoolsResource.ResourceName : String;

begin
  Result:='targetPools';
end;

Class Function TTargetPoolsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TTargetPoolsResource.AddHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsAddHealthCheckRequest : TTargetPoolsAddHealthCheckRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}/addHealthCheck';
  _Methodid   = 'compute.targetPools.addHealthCheck';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsAddHealthCheckRequest,TOperation) as TOperation;
end;

Function TTargetPoolsResource.AddInstance(project: string; region: string; targetPool: string; aTargetPoolsAddInstanceRequest : TTargetPoolsAddInstanceRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}/addInstance';
  _Methodid   = 'compute.targetPools.addInstance';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsAddInstanceRequest,TOperation) as TOperation;
end;

Function TTargetPoolsResource.AggregatedList(project: string; AQuery : string = '') : TTargetPoolAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/targetPools';
  _Methodid   = 'compute.targetPools.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetPoolAggregatedList) as TTargetPoolAggregatedList;
end;


Function TTargetPoolsResource.AggregatedList(project: string; AQuery : TTargetPoolsaggregatedListOptions) : TTargetPoolAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TTargetPoolsResource.Delete(project: string; region: string; targetPool: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}';
  _Methodid   = 'compute.targetPools.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TTargetPoolsResource.Get(project: string; region: string; targetPool: string) : TTargetPool;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}';
  _Methodid   = 'compute.targetPools.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetPool) as TTargetPool;
end;

Function TTargetPoolsResource.GetHealth(project: string; region: string; targetPool: string; aInstanceReference : TInstanceReference) : TTargetPoolInstanceHealth;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}/getHealth';
  _Methodid   = 'compute.targetPools.getHealth';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceReference,TTargetPoolInstanceHealth) as TTargetPoolInstanceHealth;
end;

Function TTargetPoolsResource.Insert(project: string; region: string; aTargetPool : TTargetPool) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetPools';
  _Methodid   = 'compute.targetPools.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPool,TOperation) as TOperation;
end;

Function TTargetPoolsResource.List(project: string; region: string; AQuery : string = '') : TTargetPoolList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/targetPools';
  _Methodid   = 'compute.targetPools.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetPoolList) as TTargetPoolList;
end;


Function TTargetPoolsResource.List(project: string; region: string; AQuery : TTargetPoolslistOptions) : TTargetPoolList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,region,_Q);
end;

Function TTargetPoolsResource.RemoveHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsRemoveHealthCheckRequest : TTargetPoolsRemoveHealthCheckRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}/removeHealthCheck';
  _Methodid   = 'compute.targetPools.removeHealthCheck';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsRemoveHealthCheckRequest,TOperation) as TOperation;
end;

Function TTargetPoolsResource.RemoveInstance(project: string; region: string; targetPool: string; aTargetPoolsRemoveInstanceRequest : TTargetPoolsRemoveInstanceRequest) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}/removeInstance';
  _Methodid   = 'compute.targetPools.removeInstance';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsRemoveInstanceRequest,TOperation) as TOperation;
end;

Function TTargetPoolsResource.SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : string = '') : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetPools/{targetPool}/setBackup';
  _Methodid   = 'compute.targetPools.setBackup';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTargetReference,TOperation) as TOperation;
end;


Function TTargetPoolsResource.SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : TTargetPoolssetBackupOptions) : TOperation;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'failoverRatio',AQuery.failoverRatio);
  Result:=SetBackup(project,region,targetPool,aTargetReference,_Q);
end;



{ --------------------------------------------------------------------
  TTargetVpnGatewaysResource
  --------------------------------------------------------------------}


Class Function TTargetVpnGatewaysResource.ResourceName : String;

begin
  Result:='targetVpnGateways';
end;

Class Function TTargetVpnGatewaysResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TTargetVpnGatewaysResource.AggregatedList(project: string; AQuery : string = '') : TTargetVpnGatewayAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/targetVpnGateways';
  _Methodid   = 'compute.targetVpnGateways.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetVpnGatewayAggregatedList) as TTargetVpnGatewayAggregatedList;
end;


Function TTargetVpnGatewaysResource.AggregatedList(project: string; AQuery : TTargetVpnGatewaysaggregatedListOptions) : TTargetVpnGatewayAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TTargetVpnGatewaysResource.Delete(project: string; region: string; targetVpnGateway: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/regions/{region}/targetVpnGateways/{targetVpnGateway}';
  _Methodid   = 'compute.targetVpnGateways.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetVpnGateway',targetVpnGateway]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TTargetVpnGatewaysResource.Get(project: string; region: string; targetVpnGateway: string) : TTargetVpnGateway;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/targetVpnGateways/{targetVpnGateway}';
  _Methodid   = 'compute.targetVpnGateways.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'targetVpnGateway',targetVpnGateway]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetVpnGateway) as TTargetVpnGateway;
end;

Function TTargetVpnGatewaysResource.Insert(project: string; region: string; aTargetVpnGateway : TTargetVpnGateway) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/targetVpnGateways';
  _Methodid   = 'compute.targetVpnGateways.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aTargetVpnGateway,TOperation) as TOperation;
end;

Function TTargetVpnGatewaysResource.List(project: string; region: string; AQuery : string = '') : TTargetVpnGatewayList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/targetVpnGateways';
  _Methodid   = 'compute.targetVpnGateways.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetVpnGatewayList) as TTargetVpnGatewayList;
end;


Function TTargetVpnGatewaysResource.List(project: string; region: string; AQuery : TTargetVpnGatewayslistOptions) : TTargetVpnGatewayList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,region,_Q);
end;



{ --------------------------------------------------------------------
  TUrlMapsResource
  --------------------------------------------------------------------}


Class Function TUrlMapsResource.ResourceName : String;

begin
  Result:='urlMaps';
end;

Class Function TUrlMapsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TUrlMapsResource.Delete(project: string; urlMap: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/global/urlMaps/{urlMap}';
  _Methodid   = 'compute.urlMaps.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TUrlMapsResource.Get(project: string; urlMap: string) : TUrlMap;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/urlMaps/{urlMap}';
  _Methodid   = 'compute.urlMaps.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUrlMap) as TUrlMap;
end;

Function TUrlMapsResource.Insert(project: string; aUrlMap : TUrlMap) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/urlMaps';
  _Methodid   = 'compute.urlMaps.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMap,TOperation) as TOperation;
end;

Function TUrlMapsResource.List(project: string; AQuery : string = '') : TUrlMapList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/global/urlMaps';
  _Methodid   = 'compute.urlMaps.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TUrlMapList) as TUrlMapList;
end;


Function TUrlMapsResource.List(project: string; AQuery : TUrlMapslistOptions) : TUrlMapList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;

Function TUrlMapsResource.Patch(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;

Const
  _HTTPMethod = 'PATCH';
  _Path       = '{project}/global/urlMaps/{urlMap}';
  _Methodid   = 'compute.urlMaps.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMap,TOperation) as TOperation;
end;

Function TUrlMapsResource.Update(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;

Const
  _HTTPMethod = 'PUT';
  _Path       = '{project}/global/urlMaps/{urlMap}';
  _Methodid   = 'compute.urlMaps.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMap,TOperation) as TOperation;
end;

Function TUrlMapsResource.Validate(project: string; urlMap: string; aUrlMapsValidateRequest : TUrlMapsValidateRequest) : TUrlMapsValidateResponse;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/global/urlMaps/{urlMap}/validate';
  _Methodid   = 'compute.urlMaps.validate';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMapsValidateRequest,TUrlMapsValidateResponse) as TUrlMapsValidateResponse;
end;



{ --------------------------------------------------------------------
  TVpnTunnelsResource
  --------------------------------------------------------------------}


Class Function TVpnTunnelsResource.ResourceName : String;

begin
  Result:='vpnTunnels';
end;

Class Function TVpnTunnelsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TVpnTunnelsResource.AggregatedList(project: string; AQuery : string = '') : TVpnTunnelAggregatedList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/aggregated/vpnTunnels';
  _Methodid   = 'compute.vpnTunnels.aggregatedList';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVpnTunnelAggregatedList) as TVpnTunnelAggregatedList;
end;


Function TVpnTunnelsResource.AggregatedList(project: string; AQuery : TVpnTunnelsaggregatedListOptions) : TVpnTunnelAggregatedList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=AggregatedList(project,_Q);
end;

Function TVpnTunnelsResource.Delete(project: string; region: string; vpnTunnel: string) : TOperation;

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/regions/{region}/vpnTunnels/{vpnTunnel}';
  _Methodid   = 'compute.vpnTunnels.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'vpnTunnel',vpnTunnel]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TVpnTunnelsResource.Get(project: string; region: string; vpnTunnel: string) : TVpnTunnel;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/vpnTunnels/{vpnTunnel}';
  _Methodid   = 'compute.vpnTunnels.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region,'vpnTunnel',vpnTunnel]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVpnTunnel) as TVpnTunnel;
end;

Function TVpnTunnelsResource.Insert(project: string; region: string; aVpnTunnel : TVpnTunnel) : TOperation;

Const
  _HTTPMethod = 'POST';
  _Path       = '{project}/regions/{region}/vpnTunnels';
  _Methodid   = 'compute.vpnTunnels.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,'',aVpnTunnel,TOperation) as TOperation;
end;

Function TVpnTunnelsResource.List(project: string; region: string; AQuery : string = '') : TVpnTunnelList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/regions/{region}/vpnTunnels';
  _Methodid   = 'compute.vpnTunnels.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'region',region]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVpnTunnelList) as TVpnTunnelList;
end;


Function TVpnTunnelsResource.List(project: string; region: string; AQuery : TVpnTunnelslistOptions) : TVpnTunnelList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,region,_Q);
end;



{ --------------------------------------------------------------------
  TZoneOperationsResource
  --------------------------------------------------------------------}


Class Function TZoneOperationsResource.ResourceName : String;

begin
  Result:='zoneOperations';
end;

Class Function TZoneOperationsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Procedure TZoneOperationsResource.Delete(operation: string; project: string; zone: string);

Const
  _HTTPMethod = 'DELETE';
  _Path       = '{project}/zones/{zone}/operations/{operation}';
  _Methodid   = 'compute.zoneOperations.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['operation',operation,'project',project,'zone',zone]);
  ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;

Function TZoneOperationsResource.Get(operation: string; project: string; zone: string) : TOperation;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/operations/{operation}';
  _Methodid   = 'compute.zoneOperations.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['operation',operation,'project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;

Function TZoneOperationsResource.List(project: string; zone: string; AQuery : string = '') : TOperationList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}/operations';
  _Methodid   = 'compute.zoneOperations.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
end;


Function TZoneOperationsResource.List(project: string; zone: string; AQuery : TZoneOperationslistOptions) : TOperationList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,zone,_Q);
end;



{ --------------------------------------------------------------------
  TZonesResource
  --------------------------------------------------------------------}


Class Function TZonesResource.ResourceName : String;

begin
  Result:='zones';
end;

Class Function TZonesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TcomputeAPI;
end;

Function TZonesResource.Get(project: string; zone: string) : TZone;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones/{zone}';
  _Methodid   = 'compute.zones.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TZone) as TZone;
end;

Function TZonesResource.List(project: string; AQuery : string = '') : TZoneList;

Const
  _HTTPMethod = 'GET';
  _Path       = '{project}/zones';
  _Methodid   = 'compute.zones.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['project',project]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TZoneList) as TZoneList;
end;


Function TZonesResource.List(project: string; AQuery : TZoneslistOptions) : TZoneList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'filter',AQuery.filter);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  Result:=List(project,_Q);
end;



{ --------------------------------------------------------------------
  TComputeAPI
  --------------------------------------------------------------------}

Class Function TComputeAPI.APIName : String;

begin
  Result:='compute';
end;

Class Function TComputeAPI.APIVersion : String;

begin
  Result:='v1';
end;

Class Function TComputeAPI.APIRevision : String;

begin
  Result:='20160509';
end;

Class Function TComputeAPI.APIID : String;

begin
  Result:='compute:v1';
end;

Class Function TComputeAPI.APITitle : String;

begin
  Result:='Compute Engine API';
end;

Class Function TComputeAPI.APIDescription : String;

begin
  Result:='Creates and runs virtual machines on Google Cloud Platform.';
end;

Class Function TComputeAPI.APIOwnerDomain : String;

begin
  Result:='google.com';
end;

Class Function TComputeAPI.APIOwnerName : String;

begin
  Result:='Google';
end;

Class Function TComputeAPI.APIIcon16 : String;

begin
  Result:='https://www.google.com/images/icons/product/compute_engine-16.png';
end;

Class Function TComputeAPI.APIIcon32 : String;

begin
  Result:='https://www.google.com/images/icons/product/compute_engine-32.png';
end;

Class Function TComputeAPI.APIdocumentationLink : String;

begin
  Result:='https://developers.google.com/compute/docs/reference/latest/';
end;

Class Function TComputeAPI.APIrootUrl : string;

begin
  Result:='https://www.googleapis.com/';
end;

Class Function TComputeAPI.APIbasePath : string;

begin
  Result:='/compute/v1/projects/';
end;

Class Function TComputeAPI.APIbaseURL : String;

begin
  Result:='https://www.googleapis.com/compute/v1/projects/';
end;

Class Function TComputeAPI.APIProtocol : string;

begin
  Result:='rest';
end;

Class Function TComputeAPI.APIservicePath : string;

begin
  Result:='compute/v1/projects/';
end;

Class Function TComputeAPI.APIbatchPath : String;

begin
  Result:='batch';
end;

Class Function TComputeAPI.APIAuthScopes : TScopeInfoArray;

begin
  SetLength(Result,6);
  Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
  Result[0].Description:='View and manage your data across Google Cloud Platform services';
  Result[1].Name:='https://www.googleapis.com/auth/compute';
  Result[1].Description:='View and manage your Google Compute Engine resources';
  Result[2].Name:='https://www.googleapis.com/auth/compute.readonly';
  Result[2].Description:='View your Google Compute Engine resources';
  Result[3].Name:='https://www.googleapis.com/auth/devstorage.full_control';
  Result[3].Description:='Manage your data and permissions in Google Cloud Storage';
  Result[4].Name:='https://www.googleapis.com/auth/devstorage.read_only';
  Result[4].Description:='View your data in Google Cloud Storage';
  Result[5].Name:='https://www.googleapis.com/auth/devstorage.read_write';
  Result[5].Description:='Manage your data in Google Cloud Storage';
  
end;

Class Function TComputeAPI.APINeedsAuth : Boolean;

begin
  Result:=True;
end;

Class Procedure TComputeAPI.RegisterAPIResources;

begin
  TAccessConfig.RegisterObject;
  TAddress.RegisterObject;
  TAddressAggregatedListTypeitems.RegisterObject;
  TAddressAggregatedList.RegisterObject;
  TAddressList.RegisterObject;
  TAddressesScopedListTypewarningTypedataItem.RegisterObject;
  TAddressesScopedListTypewarning.RegisterObject;
  TAddressesScopedList.RegisterObject;
  TAttachedDisk.RegisterObject;
  TAttachedDiskInitializeParams.RegisterObject;
  TAutoscaler.RegisterObject;
  TAutoscalerAggregatedListTypeitems.RegisterObject;
  TAutoscalerAggregatedList.RegisterObject;
  TAutoscalerList.RegisterObject;
  TAutoscalersScopedListTypewarningTypedataItem.RegisterObject;
  TAutoscalersScopedListTypewarning.RegisterObject;
  TAutoscalersScopedList.RegisterObject;
  TAutoscalingPolicy.RegisterObject;
  TAutoscalingPolicyCpuUtilization.RegisterObject;
  TAutoscalingPolicyCustomMetricUtilization.RegisterObject;
  TAutoscalingPolicyLoadBalancingUtilization.RegisterObject;
  TBackend.RegisterObject;
  TBackendService.RegisterObject;
  TBackendServiceGroupHealth.RegisterObject;
  TBackendServiceList.RegisterObject;
  TDeprecationStatus.RegisterObject;
  TDisk.RegisterObject;
  TDiskAggregatedListTypeitems.RegisterObject;
  TDiskAggregatedList.RegisterObject;
  TDiskList.RegisterObject;
  TDiskMoveRequest.RegisterObject;
  TDiskType.RegisterObject;
  TDiskTypeAggregatedListTypeitems.RegisterObject;
  TDiskTypeAggregatedList.RegisterObject;
  TDiskTypeList.RegisterObject;
  TDiskTypesScopedListTypewarningTypedataItem.RegisterObject;
  TDiskTypesScopedListTypewarning.RegisterObject;
  TDiskTypesScopedList.RegisterObject;
  TDisksResizeRequest.RegisterObject;
  TDisksScopedListTypewarningTypedataItem.RegisterObject;
  TDisksScopedListTypewarning.RegisterObject;
  TDisksScopedList.RegisterObject;
  TFirewallTypeallowedItem.RegisterObject;
  TFirewall.RegisterObject;
  TFirewallList.RegisterObject;
  TForwardingRule.RegisterObject;
  TForwardingRuleAggregatedListTypeitems.RegisterObject;
  TForwardingRuleAggregatedList.RegisterObject;
  TForwardingRuleList.RegisterObject;
  TForwardingRulesScopedListTypewarningTypedataItem.RegisterObject;
  TForwardingRulesScopedListTypewarning.RegisterObject;
  TForwardingRulesScopedList.RegisterObject;
  THealthCheckReference.RegisterObject;
  THealthStatus.RegisterObject;
  THostRule.RegisterObject;
  THttpHealthCheck.RegisterObject;
  THttpHealthCheckList.RegisterObject;
  THttpsHealthCheck.RegisterObject;
  THttpsHealthCheckList.RegisterObject;
  TImageTyperawDisk.RegisterObject;
  TImage.RegisterObject;
  TImageList.RegisterObject;
  TInstance.RegisterObject;
  TInstanceAggregatedListTypeitems.RegisterObject;
  TInstanceAggregatedList.RegisterObject;
  TInstanceGroup.RegisterObject;
  TInstanceGroupAggregatedListTypeitems.RegisterObject;
  TInstanceGroupAggregatedList.RegisterObject;
  TInstanceGroupList.RegisterObject;
  TInstanceGroupManager.RegisterObject;
  TInstanceGroupManagerActionsSummary.RegisterObject;
  TInstanceGroupManagerAggregatedListTypeitems.RegisterObject;
  TInstanceGroupManagerAggregatedList.RegisterObject;
  TInstanceGroupManagerList.RegisterObject;
  TInstanceGroupManagersAbandonInstancesRequest.RegisterObject;
  TInstanceGroupManagersDeleteInstancesRequest.RegisterObject;
  TInstanceGroupManagersListManagedInstancesResponse.RegisterObject;
  TInstanceGroupManagersRecreateInstancesRequest.RegisterObject;
  TInstanceGroupManagersScopedListTypewarningTypedataItem.RegisterObject;
  TInstanceGroupManagersScopedListTypewarning.RegisterObject;
  TInstanceGroupManagersScopedList.RegisterObject;
  TInstanceGroupManagersSetInstanceTemplateRequest.RegisterObject;
  TInstanceGroupManagersSetTargetPoolsRequest.RegisterObject;
  TInstanceGroupsAddInstancesRequest.RegisterObject;
  TInstanceGroupsListInstances.RegisterObject;
  TInstanceGroupsListInstancesRequest.RegisterObject;
  TInstanceGroupsRemoveInstancesRequest.RegisterObject;
  TInstanceGroupsScopedListTypewarningTypedataItem.RegisterObject;
  TInstanceGroupsScopedListTypewarning.RegisterObject;
  TInstanceGroupsScopedList.RegisterObject;
  TInstanceGroupsSetNamedPortsRequest.RegisterObject;
  TInstanceList.RegisterObject;
  TInstanceMoveRequest.RegisterObject;
  TInstanceProperties.RegisterObject;
  TInstanceReference.RegisterObject;
  TInstanceTemplate.RegisterObject;
  TInstanceTemplateList.RegisterObject;
  TInstanceWithNamedPorts.RegisterObject;
  TInstancesScopedListTypewarningTypedataItem.RegisterObject;
  TInstancesScopedListTypewarning.RegisterObject;
  TInstancesScopedList.RegisterObject;
  TInstancesSetMachineTypeRequest.RegisterObject;
  TLicense.RegisterObject;
  TMachineTypeTypescratchDisksItem.RegisterObject;
  TMachineType.RegisterObject;
  TMachineTypeAggregatedListTypeitems.RegisterObject;
  TMachineTypeAggregatedList.RegisterObject;
  TMachineTypeList.RegisterObject;
  TMachineTypesScopedListTypewarningTypedataItem.RegisterObject;
  TMachineTypesScopedListTypewarning.RegisterObject;
  TMachineTypesScopedList.RegisterObject;
  TManagedInstance.RegisterObject;
  TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.RegisterObject;
  TManagedInstanceLastAttemptTypeerrors.RegisterObject;
  TManagedInstanceLastAttempt.RegisterObject;
  TMetadataTypeitemsItem.RegisterObject;
  TMetadata.RegisterObject;
  TNamedPort.RegisterObject;
  TNetwork.RegisterObject;
  TNetworkInterface.RegisterObject;
  TNetworkList.RegisterObject;
  TOperationTypeerrorTypeerrorsItem.RegisterObject;
  TOperationTypeerror.RegisterObject;
  TOperationTypewarningsItemTypedataItem.RegisterObject;
  TOperationTypewarningsItem.RegisterObject;
  TOperation.RegisterObject;
  TOperationAggregatedListTypeitems.RegisterObject;
  TOperationAggregatedList.RegisterObject;
  TOperationList.RegisterObject;
  TOperationsScopedListTypewarningTypedataItem.RegisterObject;
  TOperationsScopedListTypewarning.RegisterObject;
  TOperationsScopedList.RegisterObject;
  TPathMatcher.RegisterObject;
  TPathRule.RegisterObject;
  TProject.RegisterObject;
  TQuota.RegisterObject;
  TRegion.RegisterObject;
  TRegionList.RegisterObject;
  TResourceGroupReference.RegisterObject;
  TRouteTypewarningsItemTypedataItem.RegisterObject;
  TRouteTypewarningsItem.RegisterObject;
  TRoute.RegisterObject;
  TRouteList.RegisterObject;
  TScheduling.RegisterObject;
  TSerialPortOutput.RegisterObject;
  TServiceAccount.RegisterObject;
  TSnapshot.RegisterObject;
  TSnapshotList.RegisterObject;
  TSslCertificate.RegisterObject;
  TSslCertificateList.RegisterObject;
  TSubnetwork.RegisterObject;
  TSubnetworkAggregatedListTypeitems.RegisterObject;
  TSubnetworkAggregatedList.RegisterObject;
  TSubnetworkList.RegisterObject;
  TSubnetworksScopedListTypewarningTypedataItem.RegisterObject;
  TSubnetworksScopedListTypewarning.RegisterObject;
  TSubnetworksScopedList.RegisterObject;
  TTags.RegisterObject;
  TTargetHttpProxy.RegisterObject;
  TTargetHttpProxyList.RegisterObject;
  TTargetHttpsProxiesSetSslCertificatesRequest.RegisterObject;
  TTargetHttpsProxy.RegisterObject;
  TTargetHttpsProxyList.RegisterObject;
  TTargetInstance.RegisterObject;
  TTargetInstanceAggregatedListTypeitems.RegisterObject;
  TTargetInstanceAggregatedList.RegisterObject;
  TTargetInstanceList.RegisterObject;
  TTargetInstancesScopedListTypewarningTypedataItem.RegisterObject;
  TTargetInstancesScopedListTypewarning.RegisterObject;
  TTargetInstancesScopedList.RegisterObject;
  TTargetPool.RegisterObject;
  TTargetPoolAggregatedListTypeitems.RegisterObject;
  TTargetPoolAggregatedList.RegisterObject;
  TTargetPoolInstanceHealth.RegisterObject;
  TTargetPoolList.RegisterObject;
  TTargetPoolsAddHealthCheckRequest.RegisterObject;
  TTargetPoolsAddInstanceRequest.RegisterObject;
  TTargetPoolsRemoveHealthCheckRequest.RegisterObject;
  TTargetPoolsRemoveInstanceRequest.RegisterObject;
  TTargetPoolsScopedListTypewarningTypedataItem.RegisterObject;
  TTargetPoolsScopedListTypewarning.RegisterObject;
  TTargetPoolsScopedList.RegisterObject;
  TTargetReference.RegisterObject;
  TTargetVpnGateway.RegisterObject;
  TTargetVpnGatewayAggregatedListTypeitems.RegisterObject;
  TTargetVpnGatewayAggregatedList.RegisterObject;
  TTargetVpnGatewayList.RegisterObject;
  TTargetVpnGatewaysScopedListTypewarningTypedataItem.RegisterObject;
  TTargetVpnGatewaysScopedListTypewarning.RegisterObject;
  TTargetVpnGatewaysScopedList.RegisterObject;
  TTestFailure.RegisterObject;
  TUrlMap.RegisterObject;
  TUrlMapList.RegisterObject;
  TUrlMapReference.RegisterObject;
  TUrlMapTest.RegisterObject;
  TUrlMapValidationResult.RegisterObject;
  TUrlMapsValidateRequest.RegisterObject;
  TUrlMapsValidateResponse.RegisterObject;
  TUsageExportLocation.RegisterObject;
  TVpnTunnel.RegisterObject;
  TVpnTunnelAggregatedListTypeitems.RegisterObject;
  TVpnTunnelAggregatedList.RegisterObject;
  TVpnTunnelList.RegisterObject;
  TVpnTunnelsScopedListTypewarningTypedataItem.RegisterObject;
  TVpnTunnelsScopedListTypewarning.RegisterObject;
  TVpnTunnelsScopedList.RegisterObject;
  TZone.RegisterObject;
  TZoneList.RegisterObject;
end;


Function TComputeAPI.GetAddressesInstance : TAddressesResource;

begin
  if (FAddressesInstance=Nil) then
    FAddressesInstance:=CreateAddressesResource;
  Result:=FAddressesInstance;
end;

Function TComputeAPI.CreateAddressesResource : TAddressesResource;

begin
  Result:=CreateAddressesResource(Self);
end;


Function TComputeAPI.CreateAddressesResource(AOwner : TComponent) : TAddressesResource;

begin
  Result:=TAddressesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetAutoscalersInstance : TAutoscalersResource;

begin
  if (FAutoscalersInstance=Nil) then
    FAutoscalersInstance:=CreateAutoscalersResource;
  Result:=FAutoscalersInstance;
end;

Function TComputeAPI.CreateAutoscalersResource : TAutoscalersResource;

begin
  Result:=CreateAutoscalersResource(Self);
end;


Function TComputeAPI.CreateAutoscalersResource(AOwner : TComponent) : TAutoscalersResource;

begin
  Result:=TAutoscalersResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetBackendServicesInstance : TBackendServicesResource;

begin
  if (FBackendServicesInstance=Nil) then
    FBackendServicesInstance:=CreateBackendServicesResource;
  Result:=FBackendServicesInstance;
end;

Function TComputeAPI.CreateBackendServicesResource : TBackendServicesResource;

begin
  Result:=CreateBackendServicesResource(Self);
end;


Function TComputeAPI.CreateBackendServicesResource(AOwner : TComponent) : TBackendServicesResource;

begin
  Result:=TBackendServicesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetDiskTypesInstance : TDiskTypesResource;

begin
  if (FDiskTypesInstance=Nil) then
    FDiskTypesInstance:=CreateDiskTypesResource;
  Result:=FDiskTypesInstance;
end;

Function TComputeAPI.CreateDiskTypesResource : TDiskTypesResource;

begin
  Result:=CreateDiskTypesResource(Self);
end;


Function TComputeAPI.CreateDiskTypesResource(AOwner : TComponent) : TDiskTypesResource;

begin
  Result:=TDiskTypesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetDisksInstance : TDisksResource;

begin
  if (FDisksInstance=Nil) then
    FDisksInstance:=CreateDisksResource;
  Result:=FDisksInstance;
end;

Function TComputeAPI.CreateDisksResource : TDisksResource;

begin
  Result:=CreateDisksResource(Self);
end;


Function TComputeAPI.CreateDisksResource(AOwner : TComponent) : TDisksResource;

begin
  Result:=TDisksResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetFirewallsInstance : TFirewallsResource;

begin
  if (FFirewallsInstance=Nil) then
    FFirewallsInstance:=CreateFirewallsResource;
  Result:=FFirewallsInstance;
end;

Function TComputeAPI.CreateFirewallsResource : TFirewallsResource;

begin
  Result:=CreateFirewallsResource(Self);
end;


Function TComputeAPI.CreateFirewallsResource(AOwner : TComponent) : TFirewallsResource;

begin
  Result:=TFirewallsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetForwardingRulesInstance : TForwardingRulesResource;

begin
  if (FForwardingRulesInstance=Nil) then
    FForwardingRulesInstance:=CreateForwardingRulesResource;
  Result:=FForwardingRulesInstance;
end;

Function TComputeAPI.CreateForwardingRulesResource : TForwardingRulesResource;

begin
  Result:=CreateForwardingRulesResource(Self);
end;


Function TComputeAPI.CreateForwardingRulesResource(AOwner : TComponent) : TForwardingRulesResource;

begin
  Result:=TForwardingRulesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetGlobalAddressesInstance : TGlobalAddressesResource;

begin
  if (FGlobalAddressesInstance=Nil) then
    FGlobalAddressesInstance:=CreateGlobalAddressesResource;
  Result:=FGlobalAddressesInstance;
end;

Function TComputeAPI.CreateGlobalAddressesResource : TGlobalAddressesResource;

begin
  Result:=CreateGlobalAddressesResource(Self);
end;


Function TComputeAPI.CreateGlobalAddressesResource(AOwner : TComponent) : TGlobalAddressesResource;

begin
  Result:=TGlobalAddressesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;

begin
  if (FGlobalForwardingRulesInstance=Nil) then
    FGlobalForwardingRulesInstance:=CreateGlobalForwardingRulesResource;
  Result:=FGlobalForwardingRulesInstance;
end;

Function TComputeAPI.CreateGlobalForwardingRulesResource : TGlobalForwardingRulesResource;

begin
  Result:=CreateGlobalForwardingRulesResource(Self);
end;


Function TComputeAPI.CreateGlobalForwardingRulesResource(AOwner : TComponent) : TGlobalForwardingRulesResource;

begin
  Result:=TGlobalForwardingRulesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetGlobalOperationsInstance : TGlobalOperationsResource;

begin
  if (FGlobalOperationsInstance=Nil) then
    FGlobalOperationsInstance:=CreateGlobalOperationsResource;
  Result:=FGlobalOperationsInstance;
end;

Function TComputeAPI.CreateGlobalOperationsResource : TGlobalOperationsResource;

begin
  Result:=CreateGlobalOperationsResource(Self);
end;


Function TComputeAPI.CreateGlobalOperationsResource(AOwner : TComponent) : TGlobalOperationsResource;

begin
  Result:=TGlobalOperationsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetHttpHealthChecksInstance : THttpHealthChecksResource;

begin
  if (FHttpHealthChecksInstance=Nil) then
    FHttpHealthChecksInstance:=CreateHttpHealthChecksResource;
  Result:=FHttpHealthChecksInstance;
end;

Function TComputeAPI.CreateHttpHealthChecksResource : THttpHealthChecksResource;

begin
  Result:=CreateHttpHealthChecksResource(Self);
end;


Function TComputeAPI.CreateHttpHealthChecksResource(AOwner : TComponent) : THttpHealthChecksResource;

begin
  Result:=THttpHealthChecksResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetHttpsHealthChecksInstance : THttpsHealthChecksResource;

begin
  if (FHttpsHealthChecksInstance=Nil) then
    FHttpsHealthChecksInstance:=CreateHttpsHealthChecksResource;
  Result:=FHttpsHealthChecksInstance;
end;

Function TComputeAPI.CreateHttpsHealthChecksResource : THttpsHealthChecksResource;

begin
  Result:=CreateHttpsHealthChecksResource(Self);
end;


Function TComputeAPI.CreateHttpsHealthChecksResource(AOwner : TComponent) : THttpsHealthChecksResource;

begin
  Result:=THttpsHealthChecksResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetImagesInstance : TImagesResource;

begin
  if (FImagesInstance=Nil) then
    FImagesInstance:=CreateImagesResource;
  Result:=FImagesInstance;
end;

Function TComputeAPI.CreateImagesResource : TImagesResource;

begin
  Result:=CreateImagesResource(Self);
end;


Function TComputeAPI.CreateImagesResource(AOwner : TComponent) : TImagesResource;

begin
  Result:=TImagesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetInstanceGroupManagersInstance : TInstanceGroupManagersResource;

begin
  if (FInstanceGroupManagersInstance=Nil) then
    FInstanceGroupManagersInstance:=CreateInstanceGroupManagersResource;
  Result:=FInstanceGroupManagersInstance;
end;

Function TComputeAPI.CreateInstanceGroupManagersResource : TInstanceGroupManagersResource;

begin
  Result:=CreateInstanceGroupManagersResource(Self);
end;


Function TComputeAPI.CreateInstanceGroupManagersResource(AOwner : TComponent) : TInstanceGroupManagersResource;

begin
  Result:=TInstanceGroupManagersResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetInstanceGroupsInstance : TInstanceGroupsResource;

begin
  if (FInstanceGroupsInstance=Nil) then
    FInstanceGroupsInstance:=CreateInstanceGroupsResource;
  Result:=FInstanceGroupsInstance;
end;

Function TComputeAPI.CreateInstanceGroupsResource : TInstanceGroupsResource;

begin
  Result:=CreateInstanceGroupsResource(Self);
end;


Function TComputeAPI.CreateInstanceGroupsResource(AOwner : TComponent) : TInstanceGroupsResource;

begin
  Result:=TInstanceGroupsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetInstanceTemplatesInstance : TInstanceTemplatesResource;

begin
  if (FInstanceTemplatesInstance=Nil) then
    FInstanceTemplatesInstance:=CreateInstanceTemplatesResource;
  Result:=FInstanceTemplatesInstance;
end;

Function TComputeAPI.CreateInstanceTemplatesResource : TInstanceTemplatesResource;

begin
  Result:=CreateInstanceTemplatesResource(Self);
end;


Function TComputeAPI.CreateInstanceTemplatesResource(AOwner : TComponent) : TInstanceTemplatesResource;

begin
  Result:=TInstanceTemplatesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetInstancesInstance : TInstancesResource;

begin
  if (FInstancesInstance=Nil) then
    FInstancesInstance:=CreateInstancesResource;
  Result:=FInstancesInstance;
end;

Function TComputeAPI.CreateInstancesResource : TInstancesResource;

begin
  Result:=CreateInstancesResource(Self);
end;


Function TComputeAPI.CreateInstancesResource(AOwner : TComponent) : TInstancesResource;

begin
  Result:=TInstancesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetLicensesInstance : TLicensesResource;

begin
  if (FLicensesInstance=Nil) then
    FLicensesInstance:=CreateLicensesResource;
  Result:=FLicensesInstance;
end;

Function TComputeAPI.CreateLicensesResource : TLicensesResource;

begin
  Result:=CreateLicensesResource(Self);
end;


Function TComputeAPI.CreateLicensesResource(AOwner : TComponent) : TLicensesResource;

begin
  Result:=TLicensesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetMachineTypesInstance : TMachineTypesResource;

begin
  if (FMachineTypesInstance=Nil) then
    FMachineTypesInstance:=CreateMachineTypesResource;
  Result:=FMachineTypesInstance;
end;

Function TComputeAPI.CreateMachineTypesResource : TMachineTypesResource;

begin
  Result:=CreateMachineTypesResource(Self);
end;


Function TComputeAPI.CreateMachineTypesResource(AOwner : TComponent) : TMachineTypesResource;

begin
  Result:=TMachineTypesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetNetworksInstance : TNetworksResource;

begin
  if (FNetworksInstance=Nil) then
    FNetworksInstance:=CreateNetworksResource;
  Result:=FNetworksInstance;
end;

Function TComputeAPI.CreateNetworksResource : TNetworksResource;

begin
  Result:=CreateNetworksResource(Self);
end;


Function TComputeAPI.CreateNetworksResource(AOwner : TComponent) : TNetworksResource;

begin
  Result:=TNetworksResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetProjectsInstance : TProjectsResource;

begin
  if (FProjectsInstance=Nil) then
    FProjectsInstance:=CreateProjectsResource;
  Result:=FProjectsInstance;
end;

Function TComputeAPI.CreateProjectsResource : TProjectsResource;

begin
  Result:=CreateProjectsResource(Self);
end;


Function TComputeAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;

begin
  Result:=TProjectsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetRegionOperationsInstance : TRegionOperationsResource;

begin
  if (FRegionOperationsInstance=Nil) then
    FRegionOperationsInstance:=CreateRegionOperationsResource;
  Result:=FRegionOperationsInstance;
end;

Function TComputeAPI.CreateRegionOperationsResource : TRegionOperationsResource;

begin
  Result:=CreateRegionOperationsResource(Self);
end;


Function TComputeAPI.CreateRegionOperationsResource(AOwner : TComponent) : TRegionOperationsResource;

begin
  Result:=TRegionOperationsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetRegionsInstance : TRegionsResource;

begin
  if (FRegionsInstance=Nil) then
    FRegionsInstance:=CreateRegionsResource;
  Result:=FRegionsInstance;
end;

Function TComputeAPI.CreateRegionsResource : TRegionsResource;

begin
  Result:=CreateRegionsResource(Self);
end;


Function TComputeAPI.CreateRegionsResource(AOwner : TComponent) : TRegionsResource;

begin
  Result:=TRegionsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetRoutesInstance : TRoutesResource;

begin
  if (FRoutesInstance=Nil) then
    FRoutesInstance:=CreateRoutesResource;
  Result:=FRoutesInstance;
end;

Function TComputeAPI.CreateRoutesResource : TRoutesResource;

begin
  Result:=CreateRoutesResource(Self);
end;


Function TComputeAPI.CreateRoutesResource(AOwner : TComponent) : TRoutesResource;

begin
  Result:=TRoutesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetSnapshotsInstance : TSnapshotsResource;

begin
  if (FSnapshotsInstance=Nil) then
    FSnapshotsInstance:=CreateSnapshotsResource;
  Result:=FSnapshotsInstance;
end;

Function TComputeAPI.CreateSnapshotsResource : TSnapshotsResource;

begin
  Result:=CreateSnapshotsResource(Self);
end;


Function TComputeAPI.CreateSnapshotsResource(AOwner : TComponent) : TSnapshotsResource;

begin
  Result:=TSnapshotsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetSslCertificatesInstance : TSslCertificatesResource;

begin
  if (FSslCertificatesInstance=Nil) then
    FSslCertificatesInstance:=CreateSslCertificatesResource;
  Result:=FSslCertificatesInstance;
end;

Function TComputeAPI.CreateSslCertificatesResource : TSslCertificatesResource;

begin
  Result:=CreateSslCertificatesResource(Self);
end;


Function TComputeAPI.CreateSslCertificatesResource(AOwner : TComponent) : TSslCertificatesResource;

begin
  Result:=TSslCertificatesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetSubnetworksInstance : TSubnetworksResource;

begin
  if (FSubnetworksInstance=Nil) then
    FSubnetworksInstance:=CreateSubnetworksResource;
  Result:=FSubnetworksInstance;
end;

Function TComputeAPI.CreateSubnetworksResource : TSubnetworksResource;

begin
  Result:=CreateSubnetworksResource(Self);
end;


Function TComputeAPI.CreateSubnetworksResource(AOwner : TComponent) : TSubnetworksResource;

begin
  Result:=TSubnetworksResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetTargetHttpProxiesInstance : TTargetHttpProxiesResource;

begin
  if (FTargetHttpProxiesInstance=Nil) then
    FTargetHttpProxiesInstance:=CreateTargetHttpProxiesResource;
  Result:=FTargetHttpProxiesInstance;
end;

Function TComputeAPI.CreateTargetHttpProxiesResource : TTargetHttpProxiesResource;

begin
  Result:=CreateTargetHttpProxiesResource(Self);
end;


Function TComputeAPI.CreateTargetHttpProxiesResource(AOwner : TComponent) : TTargetHttpProxiesResource;

begin
  Result:=TTargetHttpProxiesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;

begin
  if (FTargetHttpsProxiesInstance=Nil) then
    FTargetHttpsProxiesInstance:=CreateTargetHttpsProxiesResource;
  Result:=FTargetHttpsProxiesInstance;
end;

Function TComputeAPI.CreateTargetHttpsProxiesResource : TTargetHttpsProxiesResource;

begin
  Result:=CreateTargetHttpsProxiesResource(Self);
end;


Function TComputeAPI.CreateTargetHttpsProxiesResource(AOwner : TComponent) : TTargetHttpsProxiesResource;

begin
  Result:=TTargetHttpsProxiesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetTargetInstancesInstance : TTargetInstancesResource;

begin
  if (FTargetInstancesInstance=Nil) then
    FTargetInstancesInstance:=CreateTargetInstancesResource;
  Result:=FTargetInstancesInstance;
end;

Function TComputeAPI.CreateTargetInstancesResource : TTargetInstancesResource;

begin
  Result:=CreateTargetInstancesResource(Self);
end;


Function TComputeAPI.CreateTargetInstancesResource(AOwner : TComponent) : TTargetInstancesResource;

begin
  Result:=TTargetInstancesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetTargetPoolsInstance : TTargetPoolsResource;

begin
  if (FTargetPoolsInstance=Nil) then
    FTargetPoolsInstance:=CreateTargetPoolsResource;
  Result:=FTargetPoolsInstance;
end;

Function TComputeAPI.CreateTargetPoolsResource : TTargetPoolsResource;

begin
  Result:=CreateTargetPoolsResource(Self);
end;


Function TComputeAPI.CreateTargetPoolsResource(AOwner : TComponent) : TTargetPoolsResource;

begin
  Result:=TTargetPoolsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;

begin
  if (FTargetVpnGatewaysInstance=Nil) then
    FTargetVpnGatewaysInstance:=CreateTargetVpnGatewaysResource;
  Result:=FTargetVpnGatewaysInstance;
end;

Function TComputeAPI.CreateTargetVpnGatewaysResource : TTargetVpnGatewaysResource;

begin
  Result:=CreateTargetVpnGatewaysResource(Self);
end;


Function TComputeAPI.CreateTargetVpnGatewaysResource(AOwner : TComponent) : TTargetVpnGatewaysResource;

begin
  Result:=TTargetVpnGatewaysResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetUrlMapsInstance : TUrlMapsResource;

begin
  if (FUrlMapsInstance=Nil) then
    FUrlMapsInstance:=CreateUrlMapsResource;
  Result:=FUrlMapsInstance;
end;

Function TComputeAPI.CreateUrlMapsResource : TUrlMapsResource;

begin
  Result:=CreateUrlMapsResource(Self);
end;


Function TComputeAPI.CreateUrlMapsResource(AOwner : TComponent) : TUrlMapsResource;

begin
  Result:=TUrlMapsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetVpnTunnelsInstance : TVpnTunnelsResource;

begin
  if (FVpnTunnelsInstance=Nil) then
    FVpnTunnelsInstance:=CreateVpnTunnelsResource;
  Result:=FVpnTunnelsInstance;
end;

Function TComputeAPI.CreateVpnTunnelsResource : TVpnTunnelsResource;

begin
  Result:=CreateVpnTunnelsResource(Self);
end;


Function TComputeAPI.CreateVpnTunnelsResource(AOwner : TComponent) : TVpnTunnelsResource;

begin
  Result:=TVpnTunnelsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetZoneOperationsInstance : TZoneOperationsResource;

begin
  if (FZoneOperationsInstance=Nil) then
    FZoneOperationsInstance:=CreateZoneOperationsResource;
  Result:=FZoneOperationsInstance;
end;

Function TComputeAPI.CreateZoneOperationsResource : TZoneOperationsResource;

begin
  Result:=CreateZoneOperationsResource(Self);
end;


Function TComputeAPI.CreateZoneOperationsResource(AOwner : TComponent) : TZoneOperationsResource;

begin
  Result:=TZoneOperationsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TComputeAPI.GetZonesInstance : TZonesResource;

begin
  if (FZonesInstance=Nil) then
    FZonesInstance:=CreateZonesResource;
  Result:=FZonesInstance;
end;

Function TComputeAPI.CreateZonesResource : TZonesResource;

begin
  Result:=CreateZonesResource(Self);
end;


Function TComputeAPI.CreateZonesResource(AOwner : TComponent) : TZonesResource;

begin
  Result:=TZonesResource.Create(AOwner);
  Result.API:=Self.API;
end;



initialization
  TComputeAPI.RegisterAPI;
end.