* Reduce code size by using const for string in setter routines

git-svn-id: trunk@33294 -

packages/googleapi/src/googleadexchangebuyer.pp

@@ -85,8 +85,8 @@ type
   Protected
     //Property setters
     Procedure SetmaximumQps(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property maximumQps : integer Index 0 Read FmaximumQps Write SetmaximumQps;
@@ -112,10 +112,10 @@ type
   Protected
     //Property setters
     Procedure SetbidderLocation(AIndex : Integer; AValue : TAccountTypebidderLocationArray); virtual;
-    Procedure SetcookieMatchingNid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcookieMatchingUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcookieMatchingNid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcookieMatchingUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure Setid(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaximumActiveCreatives(AIndex : Integer; AValue : integer); virtual;
     Procedure SetmaximumTotalQps(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumberActiveCreatives(AIndex : Integer; AValue : integer); virtual;
@@ -147,7 +147,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TAccountsListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -172,9 +172,9 @@ type
   Protected
     //Property setters
     Procedure SetaccountId(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetaccountName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountName(AIndex : Integer; const AValue : String); virtual;
     Procedure SetbillingId(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -199,7 +199,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TBillingInfoListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -225,12 +225,12 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetbillingId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetbudgetAmount(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcurrencyCode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetbillingId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetbudgetAmount(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property accountId : String Index 0 Read FaccountId Write SetaccountId;
@@ -253,7 +253,7 @@ type
   Protected
     //Property setters
     Procedure Setdetails(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setreason(AIndex : Integer; AValue : String); virtual;
+    Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -276,7 +276,7 @@ type
   Protected
     //Property setters
     Procedure Setdetails(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setreason(AIndex : Integer; AValue : String); virtual;
+    Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -298,7 +298,7 @@ type
     FfilteringStatus : integer;
   Protected
     //Property setters
-    Procedure SetfilteringCount(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfilteringCount(AIndex : Integer; const AValue : String); virtual;
     Procedure SetfilteringStatus(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -317,7 +317,7 @@ type
     Freasons : TCreativeTypefilteringReasonsTypereasonsArray;
   Protected
     //Property setters
-    Procedure Setdate(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdate(AIndex : Integer; const AValue : String); virtual;
     Procedure Setreasons(AIndex : Integer; AValue : TCreativeTypefilteringReasonsTypereasonsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -358,25 +358,25 @@ type
     Fwidth : integer;
   Protected
     //Property setters
-    Procedure SetHTMLSnippet(AIndex : Integer; AValue : String); virtual;
+    Procedure SetHTMLSnippet(AIndex : Integer; const AValue : String); virtual;
     Procedure SetaccountId(AIndex : Integer; AValue : integer); virtual;
     Procedure SetadvertiserId(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetadvertiserName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetagencyId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetadvertiserName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetagencyId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setattribute(AIndex : Integer; AValue : TintegerArray); virtual;
-    Procedure SetbuyerCreativeId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbuyerCreativeId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetclickThroughUrl(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setcorrections(AIndex : Integer; AValue : TCreativeTypecorrectionsArray); virtual;
     Procedure SetdisapprovalReasons(AIndex : Integer; AValue : TCreativeTypedisapprovalReasonsArray); virtual;
     Procedure SetfilteringReasons(AIndex : Integer; AValue : TCreativeTypefilteringReasons); virtual;
     Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetproductCategories(AIndex : Integer; AValue : TintegerArray); virtual;
     Procedure SetrestrictedCategories(AIndex : Integer; AValue : TintegerArray); virtual;
     Procedure SetsensitiveCategories(AIndex : Integer; AValue : TintegerArray); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
     Procedure SetvendorType(AIndex : Integer; AValue : TintegerArray); virtual;
-    Procedure SetvideoURL(AIndex : Integer; AValue : String); virtual;
+    Procedure SetvideoURL(AIndex : Integer; const AValue : String); virtual;
     Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -419,8 +419,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TCreativesListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -454,17 +454,17 @@ type
   Protected
     //Property setters
     Procedure SetaccountId(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setadvertiser(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcurrencyCode(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfixedCpm(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprivateExchangeMinCpm(AIndex : Integer; AValue : String); virtual;
+    Procedure Setadvertiser(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfixedCpm(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 SetprivateExchangeMinCpm(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpublisherBlocksOverriden(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetsellerNetwork(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetsellerNetwork(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property accountId : integer Index 0 Read FaccountId Write SetaccountId;
@@ -493,7 +493,7 @@ type
   Protected
     //Property setters
     Procedure SetdirectDeals(AIndex : Integer; AValue : TDirectDealsListTypedirectDealsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -533,7 +533,7 @@ type
     Procedure SetcookieMatcherStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     Procedure SetcreativeStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     Procedure SethostedMatchStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlatency50thPercentile(AIndex : Integer; AValue : double); virtual;
     Procedure Setlatency85thPercentile(AIndex : Integer; AValue : double); virtual;
     Procedure Setlatency95thPercentile(AIndex : Integer; AValue : double); virtual;
@@ -543,8 +543,8 @@ type
     Procedure SetpixelMatchResponses(AIndex : Integer; AValue : double); virtual;
     Procedure SetquotaConfiguredLimit(AIndex : Integer; AValue : double); virtual;
     Procedure SetquotaThrottledLimit(AIndex : Integer; AValue : double); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure Settimestamp(AIndex : Integer; AValue : String); virtual;
+    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -580,7 +580,7 @@ type
     FperformanceReport : TPerformanceReportListTypeperformanceReportArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetperformanceReport(AIndex : Integer; AValue : TPerformanceReportListTypeperformanceReportArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -603,8 +603,8 @@ type
     Fwidth : String;
   Protected
     //Property setters
-    Procedure Setheight(AIndex : Integer; AValue : String); virtual;
-    Procedure Setwidth(AIndex : Integer; AValue : String); virtual;
+    Procedure Setheight(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setwidth(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property height : String Index 0 Read Fheight Write Setheight;
@@ -623,8 +623,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property token : String Index 0 Read Ftoken Write Settoken;
@@ -643,8 +643,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property token : String Index 0 Read Ftoken Write Settoken;
@@ -683,9 +683,9 @@ type
     Fverticals : TStringArray;
   Protected
     //Property setters
-    Procedure SetbillingId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetconfigId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetconfigName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbillingId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetconfigId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetconfigName(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcreativeType(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setdimensions(AIndex : Integer; AValue : TPretargetingConfigTypedimensionsArray); virtual;
     Procedure SetexcludedContentLabels(AIndex : Integer; AValue : TStringArray); virtual;
@@ -695,7 +695,7 @@ type
     Procedure SetexcludedVerticals(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetgeoCriteriaIds(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetisActive(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlanguages(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetmobileCarriers(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetmobileDevices(AIndex : Integer; AValue : TStringArray); virtual;
@@ -749,7 +749,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TPretargetingConfigListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -968,7 +968,7 @@ end;
 
 
 
-Procedure TAccountTypebidderLocationItem.Setregion(AIndex : Integer; AValue : String); 
+Procedure TAccountTypebidderLocationItem.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -978,7 +978,7 @@ end;
 
 
 
-Procedure TAccountTypebidderLocationItem.Seturl(AIndex : Integer; AValue : String); 
+Procedure TAccountTypebidderLocationItem.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -1005,7 +1005,7 @@ end;
 
 
 
-Procedure TAccount.SetcookieMatchingNid(AIndex : Integer; AValue : String); 
+Procedure TAccount.SetcookieMatchingNid(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcookieMatchingNid=AValue) then exit;
@@ -1015,7 +1015,7 @@ end;
 
 
 
-Procedure TAccount.SetcookieMatchingUrl(AIndex : Integer; AValue : String); 
+Procedure TAccount.SetcookieMatchingUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcookieMatchingUrl=AValue) then exit;
@@ -1035,7 +1035,7 @@ end;
 
 
 
-Procedure TAccount.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1105,7 +1105,7 @@ end;
 
 
 
-Procedure TAccountsList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAccountsList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1145,7 +1145,7 @@ end;
 
 
 
-Procedure TBillingInfo.SetaccountName(AIndex : Integer; AValue : String); 
+Procedure TBillingInfo.SetaccountName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountName=AValue) then exit;
@@ -1165,7 +1165,7 @@ end;
 
 
 
-Procedure TBillingInfo.Setkind(AIndex : Integer; AValue : String); 
+Procedure TBillingInfo.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1205,7 +1205,7 @@ end;
 
 
 
-Procedure TBillingInfoList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TBillingInfoList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1235,7 +1235,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBudget.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TBudget.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -1245,7 +1245,7 @@ end;
 
 
 
-Procedure TBudget.SetbillingId(AIndex : Integer; AValue : String); 
+Procedure TBudget.SetbillingId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbillingId=AValue) then exit;
@@ -1255,7 +1255,7 @@ end;
 
 
 
-Procedure TBudget.SetbudgetAmount(AIndex : Integer; AValue : String); 
+Procedure TBudget.SetbudgetAmount(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbudgetAmount=AValue) then exit;
@@ -1265,7 +1265,7 @@ end;
 
 
 
-Procedure TBudget.SetcurrencyCode(AIndex : Integer; AValue : String); 
+Procedure TBudget.SetcurrencyCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -1275,7 +1275,7 @@ end;
 
 
 
-Procedure TBudget.Setid(AIndex : Integer; AValue : String); 
+Procedure TBudget.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1285,7 +1285,7 @@ end;
 
 
 
-Procedure TBudget.Setkind(AIndex : Integer; AValue : String); 
+Procedure TBudget.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1312,7 +1312,7 @@ end;
 
 
 
-Procedure TCreativeTypecorrectionsItem.Setreason(AIndex : Integer; AValue : String); 
+Procedure TCreativeTypecorrectionsItem.Setreason(AIndex : Integer; const AValue : String); 
 
 begin
   If (Freason=AValue) then exit;
@@ -1352,7 +1352,7 @@ end;
 
 
 
-Procedure TCreativeTypedisapprovalReasonsItem.Setreason(AIndex : Integer; AValue : String); 
+Procedure TCreativeTypedisapprovalReasonsItem.Setreason(AIndex : Integer; const AValue : String); 
 
 begin
   If (Freason=AValue) then exit;
@@ -1382,7 +1382,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCreativeTypefilteringReasonsTypereasonsItem.SetfilteringCount(AIndex : Integer; AValue : String); 
+Procedure TCreativeTypefilteringReasonsTypereasonsItem.SetfilteringCount(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfilteringCount=AValue) then exit;
@@ -1409,7 +1409,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCreativeTypefilteringReasons.Setdate(AIndex : Integer; AValue : String); 
+Procedure TCreativeTypefilteringReasons.Setdate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdate=AValue) then exit;
@@ -1449,7 +1449,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCreative.SetHTMLSnippet(AIndex : Integer; AValue : String); 
+Procedure TCreative.SetHTMLSnippet(AIndex : Integer; const AValue : String); 
 
 begin
   If (FHTMLSnippet=AValue) then exit;
@@ -1479,7 +1479,7 @@ end;
 
 
 
-Procedure TCreative.SetadvertiserName(AIndex : Integer; AValue : String); 
+Procedure TCreative.SetadvertiserName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadvertiserName=AValue) then exit;
@@ -1489,7 +1489,7 @@ end;
 
 
 
-Procedure TCreative.SetagencyId(AIndex : Integer; AValue : String); 
+Procedure TCreative.SetagencyId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FagencyId=AValue) then exit;
@@ -1509,7 +1509,7 @@ end;
 
 
 
-Procedure TCreative.SetbuyerCreativeId(AIndex : Integer; AValue : String); 
+Procedure TCreative.SetbuyerCreativeId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbuyerCreativeId=AValue) then exit;
@@ -1569,7 +1569,7 @@ end;
 
 
 
-Procedure TCreative.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCreative.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1609,7 +1609,7 @@ end;
 
 
 
-Procedure TCreative.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TCreative.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1629,7 +1629,7 @@ end;
 
 
 
-Procedure TCreative.SetvideoURL(AIndex : Integer; AValue : String); 
+Procedure TCreative.SetvideoURL(AIndex : Integer; const AValue : String); 
 
 begin
   If (FvideoURL=AValue) then exit;
@@ -1687,7 +1687,7 @@ end;
 
 
 
-Procedure TCreativesList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCreativesList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1697,7 +1697,7 @@ end;
 
 
 
-Procedure TCreativesList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TCreativesList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1737,7 +1737,7 @@ end;
 
 
 
-Procedure TDirectDeal.Setadvertiser(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.Setadvertiser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fadvertiser=AValue) then exit;
@@ -1747,7 +1747,7 @@ end;
 
 
 
-Procedure TDirectDeal.SetcurrencyCode(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.SetcurrencyCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -1757,7 +1757,7 @@ end;
 
 
 
-Procedure TDirectDeal.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1767,7 +1767,7 @@ end;
 
 
 
-Procedure TDirectDeal.SetfixedCpm(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.SetfixedCpm(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfixedCpm=AValue) then exit;
@@ -1777,7 +1777,7 @@ end;
 
 
 
-Procedure TDirectDeal.Setid(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1787,7 +1787,7 @@ end;
 
 
 
-Procedure TDirectDeal.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1797,7 +1797,7 @@ end;
 
 
 
-Procedure TDirectDeal.Setname(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1807,7 +1807,7 @@ end;
 
 
 
-Procedure TDirectDeal.SetprivateExchangeMinCpm(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.SetprivateExchangeMinCpm(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprivateExchangeMinCpm=AValue) then exit;
@@ -1827,7 +1827,7 @@ end;
 
 
 
-Procedure TDirectDeal.SetsellerNetwork(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.SetsellerNetwork(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsellerNetwork=AValue) then exit;
@@ -1837,7 +1837,7 @@ end;
 
 
 
-Procedure TDirectDeal.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TDirectDeal.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1864,7 +1864,7 @@ end;
 
 
 
-Procedure TDirectDealsList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDirectDealsList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1934,7 +1934,7 @@ end;
 
 
 
-Procedure TPerformanceReport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPerformanceReport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2034,7 +2034,7 @@ end;
 
 
 
-Procedure TPerformanceReport.Setregion(AIndex : Integer; AValue : String); 
+Procedure TPerformanceReport.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -2044,7 +2044,7 @@ end;
 
 
 
-Procedure TPerformanceReport.Settimestamp(AIndex : Integer; AValue : String); 
+Procedure TPerformanceReport.Settimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftimestamp=AValue) then exit;
@@ -2077,7 +2077,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPerformanceReportList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPerformanceReportList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2117,7 +2117,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPretargetingConfigTypedimensionsItem.Setheight(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfigTypedimensionsItem.Setheight(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fheight=AValue) then exit;
@@ -2127,7 +2127,7 @@ end;
 
 
 
-Procedure TPretargetingConfigTypedimensionsItem.Setwidth(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfigTypedimensionsItem.Setwidth(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fwidth=AValue) then exit;
@@ -2144,7 +2144,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPretargetingConfigTypeexcludedPlacementsItem.Settoken(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfigTypeexcludedPlacementsItem.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -2154,7 +2154,7 @@ end;
 
 
 
-Procedure TPretargetingConfigTypeexcludedPlacementsItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfigTypeexcludedPlacementsItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2182,7 +2182,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPretargetingConfigTypeplacementsItem.Settoken(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfigTypeplacementsItem.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -2192,7 +2192,7 @@ end;
 
 
 
-Procedure TPretargetingConfigTypeplacementsItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfigTypeplacementsItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2220,7 +2220,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPretargetingConfig.SetbillingId(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfig.SetbillingId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbillingId=AValue) then exit;
@@ -2230,7 +2230,7 @@ end;
 
 
 
-Procedure TPretargetingConfig.SetconfigId(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfig.SetconfigId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FconfigId=AValue) then exit;
@@ -2240,7 +2240,7 @@ end;
 
 
 
-Procedure TPretargetingConfig.SetconfigName(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfig.SetconfigName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FconfigName=AValue) then exit;
@@ -2340,7 +2340,7 @@ end;
 
 
 
-Procedure TPretargetingConfig.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfig.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2497,7 +2497,7 @@ end;
 
 
 
-Procedure TPretargetingConfigList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPretargetingConfigList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googleadexchangeseller.pp

@@ -83,9 +83,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; 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;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -106,10 +106,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -137,9 +137,9 @@ type
   Protected
     //Property setters
     Procedure SetarcOptIn(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductCode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductCode(AIndex : Integer; const AValue : String); virtual;
     Procedure SetsupportsReporting(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -163,10 +163,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -194,11 +194,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
-    Procedure Setseverity(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -220,7 +220,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TAlertsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -244,10 +244,10 @@ type
     FsiteLanguage : String;
   Protected
     //Property setters
-    Procedure SetadsAppearOn(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsiteLanguage(AIndex : Integer; AValue : String); virtual;
+    Procedure SetadsAppearOn(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsiteLanguage(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property adsAppearOn : String Index 0 Read FadsAppearOn Write SetadsAppearOn;
@@ -270,10 +270,10 @@ type
     FtargetingInfo : TCustomChannelTypetargetingInfo;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(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 SettargetingInfo(AIndex : Integer; AValue : TCustomChannelTypetargetingInfo); virtual;
   Public
   Published
@@ -297,10 +297,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -325,7 +325,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -353,14 +353,14 @@ type
     FstartTime : String;
   Protected
     //Property setters
-    Procedure SetadvertiserName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetbuyerNetworkName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcurrencyCode(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfixedCpm(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetadvertiserName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetbuyerNetworkName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfixedCpm(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property advertiserName : String Index 0 Read FadvertiserName Write SetadvertiserName;
@@ -385,7 +385,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TPreferredDealsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -409,9 +409,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setcurrency(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property currency : String Index 0 Read Fcurrency Write Setcurrency;
@@ -437,9 +437,9 @@ type
     //Property setters
     Procedure Setaverages(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setheaders(AIndex : Integer; AValue : TReportTypeheadersArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
-    Procedure SettotalMatchedRows(AIndex : Integer; AValue : String); virtual;
+    Procedure SettotalMatchedRows(AIndex : Integer; const AValue : String); virtual;
     Procedure Settotals(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
@@ -475,8 +475,8 @@ type
     //Property setters
     Procedure SetcompatibleDimensions(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetcompatibleMetrics(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetrequiredDimensions(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetrequiredMetrics(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetsupportedProducts(AIndex : Integer; AValue : TStringArray); virtual;
@@ -507,9 +507,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; 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;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -530,10 +530,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TSavedReportsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -558,9 +558,9 @@ type
     FurlPattern : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SeturlPattern(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SeturlPattern(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -581,10 +581,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -975,7 +975,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAccount.Setid(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -985,7 +985,7 @@ end;
 
 
 
-Procedure TAccount.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -995,7 +995,7 @@ end;
 
 
 
-Procedure TAccount.Setname(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1012,7 +1012,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAccounts.Setetag(AIndex : Integer; AValue : String); 
+Procedure TAccounts.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1032,7 +1032,7 @@ end;
 
 
 
-Procedure TAccounts.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAccounts.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1042,7 +1042,7 @@ end;
 
 
 
-Procedure TAccounts.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TAccounts.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1082,7 +1082,7 @@ end;
 
 
 
-Procedure TAdClient.Setid(AIndex : Integer; AValue : String); 
+Procedure TAdClient.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1092,7 +1092,7 @@ end;
 
 
 
-Procedure TAdClient.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdClient.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1102,7 +1102,7 @@ end;
 
 
 
-Procedure TAdClient.SetproductCode(AIndex : Integer; AValue : String); 
+Procedure TAdClient.SetproductCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductCode=AValue) then exit;
@@ -1129,7 +1129,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdClients.Setetag(AIndex : Integer; AValue : String); 
+Procedure TAdClients.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1149,7 +1149,7 @@ end;
 
 
 
-Procedure TAdClients.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdClients.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1159,7 +1159,7 @@ end;
 
 
 
-Procedure TAdClients.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TAdClients.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1189,7 +1189,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAlert.Setid(AIndex : Integer; AValue : String); 
+Procedure TAlert.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1199,7 +1199,7 @@ end;
 
 
 
-Procedure TAlert.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAlert.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1209,7 +1209,7 @@ end;
 
 
 
-Procedure TAlert.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TAlert.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1219,7 +1219,7 @@ end;
 
 
 
-Procedure TAlert.Setseverity(AIndex : Integer; AValue : String); 
+Procedure TAlert.Setseverity(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fseverity=AValue) then exit;
@@ -1229,7 +1229,7 @@ end;
 
 
 
-Procedure TAlert.Set_type(AIndex : Integer; AValue : String); 
+Procedure TAlert.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1267,7 +1267,7 @@ end;
 
 
 
-Procedure TAlerts.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAlerts.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1297,7 +1297,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomChannelTypetargetingInfo.SetadsAppearOn(AIndex : Integer; AValue : String); 
+Procedure TCustomChannelTypetargetingInfo.SetadsAppearOn(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadsAppearOn=AValue) then exit;
@@ -1307,7 +1307,7 @@ end;
 
 
 
-Procedure TCustomChannelTypetargetingInfo.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TCustomChannelTypetargetingInfo.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1317,7 +1317,7 @@ end;
 
 
 
-Procedure TCustomChannelTypetargetingInfo.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TCustomChannelTypetargetingInfo.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -1327,7 +1327,7 @@ end;
 
 
 
-Procedure TCustomChannelTypetargetingInfo.SetsiteLanguage(AIndex : Integer; AValue : String); 
+Procedure TCustomChannelTypetargetingInfo.SetsiteLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsiteLanguage=AValue) then exit;
@@ -1344,7 +1344,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomChannel.Setcode(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1354,7 +1354,7 @@ end;
 
 
 
-Procedure TCustomChannel.Setid(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1364,7 +1364,7 @@ end;
 
 
 
-Procedure TCustomChannel.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1374,7 +1374,7 @@ end;
 
 
 
-Procedure TCustomChannel.Setname(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1401,7 +1401,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomChannels.Setetag(AIndex : Integer; AValue : String); 
+Procedure TCustomChannels.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1421,7 +1421,7 @@ end;
 
 
 
-Procedure TCustomChannels.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomChannels.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1431,7 +1431,7 @@ end;
 
 
 
-Procedure TCustomChannels.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TCustomChannels.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1471,7 +1471,7 @@ end;
 
 
 
-Procedure TMetadata.Setkind(AIndex : Integer; AValue : String); 
+Procedure TMetadata.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1501,7 +1501,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPreferredDeal.SetadvertiserName(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.SetadvertiserName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadvertiserName=AValue) then exit;
@@ -1511,7 +1511,7 @@ end;
 
 
 
-Procedure TPreferredDeal.SetbuyerNetworkName(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.SetbuyerNetworkName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbuyerNetworkName=AValue) then exit;
@@ -1521,7 +1521,7 @@ end;
 
 
 
-Procedure TPreferredDeal.SetcurrencyCode(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.SetcurrencyCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -1531,7 +1531,7 @@ end;
 
 
 
-Procedure TPreferredDeal.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1541,7 +1541,7 @@ end;
 
 
 
-Procedure TPreferredDeal.SetfixedCpm(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.SetfixedCpm(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfixedCpm=AValue) then exit;
@@ -1551,7 +1551,7 @@ end;
 
 
 
-Procedure TPreferredDeal.Setid(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1561,7 +1561,7 @@ end;
 
 
 
-Procedure TPreferredDeal.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1571,7 +1571,7 @@ end;
 
 
 
-Procedure TPreferredDeal.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeal.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1598,7 +1598,7 @@ end;
 
 
 
-Procedure TPreferredDeals.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPreferredDeals.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1628,7 +1628,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportTypeheadersItem.Setcurrency(AIndex : Integer; AValue : String); 
+Procedure TReportTypeheadersItem.Setcurrency(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcurrency=AValue) then exit;
@@ -1638,7 +1638,7 @@ end;
 
 
 
-Procedure TReportTypeheadersItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TReportTypeheadersItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1648,7 +1648,7 @@ end;
 
 
 
-Procedure TReportTypeheadersItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TReportTypeheadersItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1696,7 +1696,7 @@ end;
 
 
 
-Procedure TReport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TReport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1716,7 +1716,7 @@ end;
 
 
 
-Procedure TReport.SettotalMatchedRows(AIndex : Integer; AValue : String); 
+Procedure TReport.SettotalMatchedRows(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtotalMatchedRows=AValue) then exit;
@@ -1790,7 +1790,7 @@ end;
 
 
 
-Procedure TReportingMetadataEntry.Setid(AIndex : Integer; AValue : String); 
+Procedure TReportingMetadataEntry.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1800,7 +1800,7 @@ end;
 
 
 
-Procedure TReportingMetadataEntry.Setkind(AIndex : Integer; AValue : String); 
+Procedure TReportingMetadataEntry.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1864,7 +1864,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSavedReport.Setid(AIndex : Integer; AValue : String); 
+Procedure TSavedReport.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1874,7 +1874,7 @@ end;
 
 
 
-Procedure TSavedReport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSavedReport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1884,7 +1884,7 @@ end;
 
 
 
-Procedure TSavedReport.Setname(AIndex : Integer; AValue : String); 
+Procedure TSavedReport.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1901,7 +1901,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSavedReports.Setetag(AIndex : Integer; AValue : String); 
+Procedure TSavedReports.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1921,7 +1921,7 @@ end;
 
 
 
-Procedure TSavedReports.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSavedReports.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1931,7 +1931,7 @@ end;
 
 
 
-Procedure TSavedReports.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TSavedReports.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1961,7 +1961,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlChannel.Setid(AIndex : Integer; AValue : String); 
+Procedure TUrlChannel.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1971,7 +1971,7 @@ end;
 
 
 
-Procedure TUrlChannel.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUrlChannel.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1981,7 +1981,7 @@ end;
 
 
 
-Procedure TUrlChannel.SeturlPattern(AIndex : Integer; AValue : String); 
+Procedure TUrlChannel.SeturlPattern(AIndex : Integer; const AValue : String); 
 
 begin
   If (FurlPattern=AValue) then exit;
@@ -1998,7 +1998,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlChannels.Setetag(AIndex : Integer; AValue : String); 
+Procedure TUrlChannels.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -2018,7 +2018,7 @@ end;
 
 
 
-Procedure TUrlChannels.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUrlChannels.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2028,7 +2028,7 @@ end;
 
 
 
-Procedure TUrlChannels.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TUrlChannels.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googleadmin.pp

@@ -66,10 +66,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -95,10 +95,10 @@ type
     FprofileId : String;
   Protected
     //Property setters
-    Procedure SetcallerType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprofileId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcallerType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property callerType : String Index 0 Read FcallerType Write SetcallerType;
@@ -123,11 +123,11 @@ type
   Protected
     //Property setters
     Procedure SetboolValue(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetintValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetintValue(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmultiIntValue(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetmultiValue(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -155,9 +155,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -182,10 +182,10 @@ type
     FuniqueQualifier : String;
   Protected
     //Property setters
-    Procedure SetapplicationName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomerId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetapplicationName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
     Procedure Settime(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetuniqueQualifier(AIndex : Integer; AValue : String); virtual;
+    Procedure SetuniqueQualifier(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property applicationName : String Index 0 Read FapplicationName Write SetapplicationName;
@@ -211,12 +211,12 @@ type
   Protected
     //Property setters
     Procedure Setactor(AIndex : Integer; AValue : TActivityTypeactor); virtual;
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray); virtual;
     Procedure Setid(AIndex : Integer; AValue : TActivityTypeid); virtual;
-    Procedure SetipAddress(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetownerDomain(AIndex : Integer; AValue : String); virtual;
+    Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetownerDomain(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -266,16 +266,16 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setaddress(AIndex : Integer; AValue : String); virtual;
-    Procedure Setexpiration(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparams(AIndex : Integer; AValue : TChannelTypeparams); virtual;
     Procedure Setpayload(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetresourceId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetresourceUri(AIndex : Integer; AValue : String); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetresourceId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetresourceUri(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property address : String Index 0 Read Faddress Write Setaddress;
@@ -304,10 +304,10 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetcustomerId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprofileId(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure SetuserEmail(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetuserEmail(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property customerId : String Index 0 Read FcustomerId Write SetcustomerId;
@@ -347,10 +347,10 @@ type
     //Property setters
     Procedure SetboolValue(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetdatetimeValue(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetintValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetintValue(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmsgValue(AIndex : Integer; AValue : TUsageReportTypeparametersItemTypemsgValueArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstringValue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -379,10 +379,10 @@ type
     Fparameters : TUsageReportTypeparametersArray;
   Protected
     //Property setters
-    Procedure Setdate(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdate(AIndex : Integer; const AValue : String); virtual;
     Procedure Setentity(AIndex : Integer; AValue : TUsageReportTypeentity); virtual;
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TUsageReportTypeparametersArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -408,8 +408,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -428,9 +428,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TUsageReportsTypewarningsItemTypedataArray); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); 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;
@@ -456,9 +456,9 @@ type
     Fwarnings : TUsageReportsTypewarningsArray;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SetusageReports(AIndex : Integer; AValue : TUsageReportsTypeusageReportsArray); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TUsageReportsTypewarningsArray); virtual;
     //2.6.4. bug workaround
@@ -636,7 +636,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TActivities.Setetag(AIndex : Integer; AValue : String); 
+Procedure TActivities.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -656,7 +656,7 @@ end;
 
 
 
-Procedure TActivities.Setkind(AIndex : Integer; AValue : String); 
+Procedure TActivities.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -666,7 +666,7 @@ end;
 
 
 
-Procedure TActivities.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TActivities.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -696,7 +696,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcallerType=AValue) then exit;
@@ -706,7 +706,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setemail(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -716,7 +716,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setkey(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -726,7 +726,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.SetprofileId(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.SetprofileId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprofileId=AValue) then exit;
@@ -753,7 +753,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.SetintValue(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.SetintValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FintValue=AValue) then exit;
@@ -783,7 +783,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -793,7 +793,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -824,7 +824,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -844,7 +844,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -885,7 +885,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeid.SetapplicationName(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeid.SetapplicationName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FapplicationName=AValue) then exit;
@@ -895,7 +895,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -915,7 +915,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetuniqueQualifier(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeid.SetuniqueQualifier(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuniqueQualifier=AValue) then exit;
@@ -942,7 +942,7 @@ end;
 
 
 
-Procedure TActivity.Setetag(AIndex : Integer; AValue : String); 
+Procedure TActivity.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -972,7 +972,7 @@ end;
 
 
 
-Procedure TActivity.SetipAddress(AIndex : Integer; AValue : String); 
+Procedure TActivity.SetipAddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (FipAddress=AValue) then exit;
@@ -982,7 +982,7 @@ end;
 
 
 
-Procedure TActivity.Setkind(AIndex : Integer; AValue : String); 
+Procedure TActivity.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -992,7 +992,7 @@ end;
 
 
 
-Procedure TActivity.SetownerDomain(AIndex : Integer; AValue : String); 
+Procedure TActivity.SetownerDomain(AIndex : Integer; const AValue : String); 
 
 begin
   If (FownerDomain=AValue) then exit;
@@ -1035,7 +1035,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TChannel.Setaddress(AIndex : Integer; AValue : String); 
+Procedure TChannel.Setaddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (Faddress=AValue) then exit;
@@ -1045,7 +1045,7 @@ end;
 
 
 
-Procedure TChannel.Setexpiration(AIndex : Integer; AValue : String); 
+Procedure TChannel.Setexpiration(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fexpiration=AValue) then exit;
@@ -1055,7 +1055,7 @@ end;
 
 
 
-Procedure TChannel.Setid(AIndex : Integer; AValue : String); 
+Procedure TChannel.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1065,7 +1065,7 @@ end;
 
 
 
-Procedure TChannel.Setkind(AIndex : Integer; AValue : String); 
+Procedure TChannel.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1095,7 +1095,7 @@ end;
 
 
 
-Procedure TChannel.SetresourceId(AIndex : Integer; AValue : String); 
+Procedure TChannel.SetresourceId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceId=AValue) then exit;
@@ -1105,7 +1105,7 @@ end;
 
 
 
-Procedure TChannel.SetresourceUri(AIndex : Integer; AValue : String); 
+Procedure TChannel.SetresourceUri(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceUri=AValue) then exit;
@@ -1115,7 +1115,7 @@ end;
 
 
 
-Procedure TChannel.Settoken(AIndex : Integer; AValue : String); 
+Procedure TChannel.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -1125,7 +1125,7 @@ end;
 
 
 
-Procedure TChannel.Set_type(AIndex : Integer; AValue : String); 
+Procedure TChannel.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1153,7 +1153,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReportTypeentity.SetcustomerId(AIndex : Integer; AValue : String); 
+Procedure TUsageReportTypeentity.SetcustomerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -1163,7 +1163,7 @@ end;
 
 
 
-Procedure TUsageReportTypeentity.SetprofileId(AIndex : Integer; AValue : String); 
+Procedure TUsageReportTypeentity.SetprofileId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprofileId=AValue) then exit;
@@ -1173,7 +1173,7 @@ end;
 
 
 
-Procedure TUsageReportTypeentity.Set_type(AIndex : Integer; AValue : String); 
+Procedure TUsageReportTypeentity.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1183,7 +1183,7 @@ end;
 
 
 
-Procedure TUsageReportTypeentity.SetuserEmail(AIndex : Integer; AValue : String); 
+Procedure TUsageReportTypeentity.SetuserEmail(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserEmail=AValue) then exit;
@@ -1244,7 +1244,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.SetintValue(AIndex : Integer; AValue : String); 
+Procedure TUsageReportTypeparametersItem.SetintValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FintValue=AValue) then exit;
@@ -1264,7 +1264,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TUsageReportTypeparametersItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1274,7 +1274,7 @@ end;
 
 
 
-Procedure TUsageReportTypeparametersItem.SetstringValue(AIndex : Integer; AValue : String); 
+Procedure TUsageReportTypeparametersItem.SetstringValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstringValue=AValue) then exit;
@@ -1304,7 +1304,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReport.Setdate(AIndex : Integer; AValue : String); 
+Procedure TUsageReport.Setdate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdate=AValue) then exit;
@@ -1324,7 +1324,7 @@ end;
 
 
 
-Procedure TUsageReport.Setetag(AIndex : Integer; AValue : String); 
+Procedure TUsageReport.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1334,7 +1334,7 @@ end;
 
 
 
-Procedure TUsageReport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUsageReport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1374,7 +1374,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReportsTypewarningsItemTypedataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TUsageReportsTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1384,7 +1384,7 @@ end;
 
 
 
-Procedure TUsageReportsTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TUsageReportsTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1401,7 +1401,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReportsTypewarningsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TUsageReportsTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1421,7 +1421,7 @@ end;
 
 
 
-Procedure TUsageReportsTypewarningsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TUsageReportsTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1451,7 +1451,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsageReports.Setetag(AIndex : Integer; AValue : String); 
+Procedure TUsageReports.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1461,7 +1461,7 @@ end;
 
 
 
-Procedure TUsageReports.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUsageReports.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1471,7 +1471,7 @@ end;
 
 
 
-Procedure TUsageReports.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TUsageReports.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googleadsensehost.pp

@@ -79,10 +79,10 @@ type
     Fstatus : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; 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 Setstatus(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -103,9 +103,9 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -132,9 +132,9 @@ type
   Protected
     //Property setters
     Procedure SetarcOptIn(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductCode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductCode(AIndex : Integer; const AValue : String); virtual;
     Procedure SetsupportsReporting(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -158,10 +158,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -185,8 +185,8 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure SetadCode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetadCode(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property adCode : String Index 0 Read FadCode Write SetadCode;
@@ -207,11 +207,11 @@ type
     Furl : String;
   Protected
     //Property setters
-    Procedure Setbackground(AIndex : Integer; AValue : String); virtual;
-    Procedure Setborder(AIndex : Integer; AValue : String); virtual;
-    Procedure Settext(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setbackground(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setborder(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settext(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property background : String Index 0 Read Fbackground Write Setbackground;
@@ -232,8 +232,8 @@ type
     Fsize : String;
   Protected
     //Property setters
-    Procedure Setfamily(AIndex : Integer; AValue : String); virtual;
-    Procedure Setsize(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfamily(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property family : String Index 0 Read Ffamily Write Setfamily;
@@ -254,9 +254,9 @@ type
   Protected
     //Property setters
     Procedure Setcolors(AIndex : Integer; AValue : TAdStyleTypecolors); virtual;
-    Procedure Setcorners(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcorners(AIndex : Integer; const AValue : String); virtual;
     Procedure Setfont(AIndex : Integer; AValue : TAdStyleTypefont); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property colors : TAdStyleTypecolors Index 0 Read Fcolors Write Setcolors;
@@ -278,9 +278,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setcolor(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property color : String Index 0 Read Fcolor Write Setcolor;
@@ -302,8 +302,8 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure SetbackupOption(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettingsTypebackupOption); virtual;
-    Procedure Setsize(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property backupOption : TAdUnitTypecontentAdsSettingsTypebackupOption Index 0 Read FbackupOption Write SetbackupOption;
@@ -325,10 +325,10 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetmarkupLanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure SetscriptingLanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure Setsize(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmarkupLanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetscriptingLanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property markupLanguage : String Index 0 Read FmarkupLanguage Write SetmarkupLanguage;
@@ -354,14 +354,14 @@ type
     Fstatus : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcontentAdsSettings(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettings); virtual;
     Procedure SetcustomStyle(AIndex : Integer; AValue : TAdStyle); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmobileContentAdsSettings(AIndex : Integer; AValue : TAdUnitTypemobileContentAdsSettings); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property code : String Index 0 Read Fcode Write Setcode;
@@ -387,10 +387,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAdUnitsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -421,15 +421,15 @@ type
     FwebsiteUrl : String;
   Protected
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetproductCodes(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetredirectUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetuserLocale(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwebsiteLocale(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwebsiteUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetredirectUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetuserLocale(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwebsiteLocale(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -460,10 +460,10 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(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;
   Public
   Published
     Property code : String Index 0 Read Fcode Write Setcode;
@@ -485,10 +485,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -514,9 +514,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setcurrency(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property currency : String Index 0 Read Fcurrency Write Setcurrency;
@@ -542,9 +542,9 @@ type
     //Property setters
     Procedure Setaverages(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setheaders(AIndex : Integer; AValue : TReportTypeheadersArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
-    Procedure SettotalMatchedRows(AIndex : Integer; AValue : String); virtual;
+    Procedure SettotalMatchedRows(AIndex : Integer; const AValue : String); virtual;
     Procedure Settotals(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
@@ -574,9 +574,9 @@ type
     FurlPattern : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SeturlPattern(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SeturlPattern(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -597,10 +597,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -969,7 +969,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAccount.Setid(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -979,7 +979,7 @@ end;
 
 
 
-Procedure TAccount.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -989,7 +989,7 @@ end;
 
 
 
-Procedure TAccount.Setname(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -999,7 +999,7 @@ end;
 
 
 
-Procedure TAccount.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1016,7 +1016,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAccounts.Setetag(AIndex : Integer; AValue : String); 
+Procedure TAccounts.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1036,7 +1036,7 @@ end;
 
 
 
-Procedure TAccounts.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAccounts.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1076,7 +1076,7 @@ end;
 
 
 
-Procedure TAdClient.Setid(AIndex : Integer; AValue : String); 
+Procedure TAdClient.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1086,7 +1086,7 @@ end;
 
 
 
-Procedure TAdClient.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdClient.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1096,7 +1096,7 @@ end;
 
 
 
-Procedure TAdClient.SetproductCode(AIndex : Integer; AValue : String); 
+Procedure TAdClient.SetproductCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductCode=AValue) then exit;
@@ -1123,7 +1123,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdClients.Setetag(AIndex : Integer; AValue : String); 
+Procedure TAdClients.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1143,7 +1143,7 @@ end;
 
 
 
-Procedure TAdClients.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdClients.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1153,7 +1153,7 @@ end;
 
 
 
-Procedure TAdClients.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TAdClients.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1183,7 +1183,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdCode.SetadCode(AIndex : Integer; AValue : String); 
+Procedure TAdCode.SetadCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadCode=AValue) then exit;
@@ -1193,7 +1193,7 @@ end;
 
 
 
-Procedure TAdCode.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdCode.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1210,7 +1210,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdStyleTypecolors.Setbackground(AIndex : Integer; AValue : String); 
+Procedure TAdStyleTypecolors.Setbackground(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fbackground=AValue) then exit;
@@ -1220,7 +1220,7 @@ end;
 
 
 
-Procedure TAdStyleTypecolors.Setborder(AIndex : Integer; AValue : String); 
+Procedure TAdStyleTypecolors.Setborder(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fborder=AValue) then exit;
@@ -1230,7 +1230,7 @@ end;
 
 
 
-Procedure TAdStyleTypecolors.Settext(AIndex : Integer; AValue : String); 
+Procedure TAdStyleTypecolors.Settext(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftext=AValue) then exit;
@@ -1240,7 +1240,7 @@ end;
 
 
 
-Procedure TAdStyleTypecolors.Settitle(AIndex : Integer; AValue : String); 
+Procedure TAdStyleTypecolors.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1250,7 +1250,7 @@ end;
 
 
 
-Procedure TAdStyleTypecolors.Seturl(AIndex : Integer; AValue : String); 
+Procedure TAdStyleTypecolors.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -1267,7 +1267,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdStyleTypefont.Setfamily(AIndex : Integer; AValue : String); 
+Procedure TAdStyleTypefont.Setfamily(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffamily=AValue) then exit;
@@ -1277,7 +1277,7 @@ end;
 
 
 
-Procedure TAdStyleTypefont.Setsize(AIndex : Integer; AValue : String); 
+Procedure TAdStyleTypefont.Setsize(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsize=AValue) then exit;
@@ -1304,7 +1304,7 @@ end;
 
 
 
-Procedure TAdStyle.Setcorners(AIndex : Integer; AValue : String); 
+Procedure TAdStyle.Setcorners(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcorners=AValue) then exit;
@@ -1324,7 +1324,7 @@ end;
 
 
 
-Procedure TAdStyle.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdStyle.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1341,7 +1341,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdUnitTypecontentAdsSettingsTypebackupOption.Setcolor(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypecontentAdsSettingsTypebackupOption.Setcolor(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcolor=AValue) then exit;
@@ -1351,7 +1351,7 @@ end;
 
 
 
-Procedure TAdUnitTypecontentAdsSettingsTypebackupOption.Set_type(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypecontentAdsSettingsTypebackupOption.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1361,7 +1361,7 @@ end;
 
 
 
-Procedure TAdUnitTypecontentAdsSettingsTypebackupOption.Seturl(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypecontentAdsSettingsTypebackupOption.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -1399,7 +1399,7 @@ end;
 
 
 
-Procedure TAdUnitTypecontentAdsSettings.Setsize(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypecontentAdsSettings.Setsize(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsize=AValue) then exit;
@@ -1409,7 +1409,7 @@ end;
 
 
 
-Procedure TAdUnitTypecontentAdsSettings.Set_type(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypecontentAdsSettings.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1437,7 +1437,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdUnitTypemobileContentAdsSettings.SetmarkupLanguage(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypemobileContentAdsSettings.SetmarkupLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmarkupLanguage=AValue) then exit;
@@ -1447,7 +1447,7 @@ end;
 
 
 
-Procedure TAdUnitTypemobileContentAdsSettings.SetscriptingLanguage(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypemobileContentAdsSettings.SetscriptingLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscriptingLanguage=AValue) then exit;
@@ -1457,7 +1457,7 @@ end;
 
 
 
-Procedure TAdUnitTypemobileContentAdsSettings.Setsize(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypemobileContentAdsSettings.Setsize(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsize=AValue) then exit;
@@ -1467,7 +1467,7 @@ end;
 
 
 
-Procedure TAdUnitTypemobileContentAdsSettings.Set_type(AIndex : Integer; AValue : String); 
+Procedure TAdUnitTypemobileContentAdsSettings.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1495,7 +1495,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdUnit.Setcode(AIndex : Integer; AValue : String); 
+Procedure TAdUnit.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1525,7 +1525,7 @@ end;
 
 
 
-Procedure TAdUnit.Setid(AIndex : Integer; AValue : String); 
+Procedure TAdUnit.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1535,7 +1535,7 @@ end;
 
 
 
-Procedure TAdUnit.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdUnit.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1555,7 +1555,7 @@ end;
 
 
 
-Procedure TAdUnit.Setname(AIndex : Integer; AValue : String); 
+Procedure TAdUnit.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1565,7 +1565,7 @@ end;
 
 
 
-Procedure TAdUnit.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TAdUnit.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1582,7 +1582,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdUnits.Setetag(AIndex : Integer; AValue : String); 
+Procedure TAdUnits.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1602,7 +1602,7 @@ end;
 
 
 
-Procedure TAdUnits.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAdUnits.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1612,7 +1612,7 @@ end;
 
 
 
-Procedure TAdUnits.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TAdUnits.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1642,7 +1642,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAssociationSession.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -1652,7 +1652,7 @@ end;
 
 
 
-Procedure TAssociationSession.Setid(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1662,7 +1662,7 @@ end;
 
 
 
-Procedure TAssociationSession.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1682,7 +1682,7 @@ end;
 
 
 
-Procedure TAssociationSession.SetredirectUrl(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.SetredirectUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FredirectUrl=AValue) then exit;
@@ -1692,7 +1692,7 @@ end;
 
 
 
-Procedure TAssociationSession.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1702,7 +1702,7 @@ end;
 
 
 
-Procedure TAssociationSession.SetuserLocale(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.SetuserLocale(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserLocale=AValue) then exit;
@@ -1712,7 +1712,7 @@ end;
 
 
 
-Procedure TAssociationSession.SetwebsiteLocale(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.SetwebsiteLocale(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwebsiteLocale=AValue) then exit;
@@ -1722,7 +1722,7 @@ end;
 
 
 
-Procedure TAssociationSession.SetwebsiteUrl(AIndex : Integer; AValue : String); 
+Procedure TAssociationSession.SetwebsiteUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwebsiteUrl=AValue) then exit;
@@ -1752,7 +1752,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomChannel.Setcode(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1762,7 +1762,7 @@ end;
 
 
 
-Procedure TCustomChannel.Setid(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1772,7 +1772,7 @@ end;
 
 
 
-Procedure TCustomChannel.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1782,7 +1782,7 @@ end;
 
 
 
-Procedure TCustomChannel.Setname(AIndex : Integer; AValue : String); 
+Procedure TCustomChannel.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1799,7 +1799,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomChannels.Setetag(AIndex : Integer; AValue : String); 
+Procedure TCustomChannels.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1819,7 +1819,7 @@ end;
 
 
 
-Procedure TCustomChannels.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomChannels.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1829,7 +1829,7 @@ end;
 
 
 
-Procedure TCustomChannels.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TCustomChannels.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1859,7 +1859,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportTypeheadersItem.Setcurrency(AIndex : Integer; AValue : String); 
+Procedure TReportTypeheadersItem.Setcurrency(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcurrency=AValue) then exit;
@@ -1869,7 +1869,7 @@ end;
 
 
 
-Procedure TReportTypeheadersItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TReportTypeheadersItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1879,7 +1879,7 @@ end;
 
 
 
-Procedure TReportTypeheadersItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TReportTypeheadersItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1927,7 +1927,7 @@ end;
 
 
 
-Procedure TReport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TReport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1947,7 +1947,7 @@ end;
 
 
 
-Procedure TReport.SettotalMatchedRows(AIndex : Integer; AValue : String); 
+Procedure TReport.SettotalMatchedRows(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtotalMatchedRows=AValue) then exit;
@@ -2001,7 +2001,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlChannel.Setid(AIndex : Integer; AValue : String); 
+Procedure TUrlChannel.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -2011,7 +2011,7 @@ end;
 
 
 
-Procedure TUrlChannel.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUrlChannel.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2021,7 +2021,7 @@ end;
 
 
 
-Procedure TUrlChannel.SeturlPattern(AIndex : Integer; AValue : String); 
+Procedure TUrlChannel.SeturlPattern(AIndex : Integer; const AValue : String); 
 
 begin
   If (FurlPattern=AValue) then exit;
@@ -2038,7 +2038,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlChannels.Setetag(AIndex : Integer; AValue : String); 
+Procedure TUrlChannels.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -2058,7 +2058,7 @@ end;
 
 
 
-Procedure TUrlChannels.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUrlChannels.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2068,7 +2068,7 @@ end;
 
 
 
-Procedure TUrlChannels.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TUrlChannels.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googleandroidenterprise.pp

@@ -125,12 +125,12 @@ type
   Protected
     //Property setters
     Procedure SetdefaultValue(AIndex : Integer; AValue : TAppRestrictionsSchemaRestrictionRestrictionValue); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Setentry(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetentryValue(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure SetrestrictionType(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetrestrictionType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -161,11 +161,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
     Procedure SetvalueBool(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetvalueInteger(AIndex : Integer; AValue : integer); virtual;
     Procedure SetvalueMultiselect(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetvalueString(AIndex : Integer; AValue : String); virtual;
+    Procedure SetvalueString(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -193,11 +193,11 @@ type
     Fvisibility : String;
   Protected
     //Property setters
-    Procedure SetcollectionId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcollectionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetproductId(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setvisibility(AIndex : Integer; AValue : String); virtual;
+    Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -222,7 +222,7 @@ type
     Fuser : TCollectionViewersListResponseTypeuserArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TCollectionViewersListResponseTypeuserArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -246,7 +246,7 @@ type
   Protected
     //Property setters
     Procedure Setcollection(AIndex : Integer; AValue : TCollectionsListResponseTypecollectionArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -269,9 +269,9 @@ type
     FmanagementType : String;
   Protected
     //Property setters
-    Procedure SetandroidId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmanagementType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetandroidId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmanagementType(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property androidId : String Index 0 Read FandroidId Write SetandroidId;
@@ -290,8 +290,8 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure SetaccountState(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountState(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property accountState : String Index 0 Read FaccountState Write SetaccountState;
@@ -310,7 +310,7 @@ type
   Protected
     //Property setters
     Procedure Setdevice(AIndex : Integer; AValue : TDevicesListResponseTypedeviceArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -334,10 +334,10 @@ type
     FprimaryDomain : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprimaryDomain(AIndex : Integer; 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 SetprimaryDomain(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -357,8 +357,8 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure SetaccountEmail(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountEmail(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property accountEmail : String Index 0 Read FaccountEmail Write SetaccountEmail;
@@ -377,7 +377,7 @@ type
   Protected
     //Property setters
     Procedure Setenterprise(AIndex : Integer; AValue : TEnterprisesListResponseTypeenterpriseArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -400,9 +400,9 @@ type
     Freason : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setreason(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -422,7 +422,7 @@ type
   Protected
     //Property setters
     Procedure Setentitlement(AIndex : Integer; AValue : TEntitlementsListResponseTypeentitlementArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -448,12 +448,12 @@ type
     FproductId : String;
   Protected
     //Property setters
-    Procedure SetacquisitionKind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setapproval(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetacquisitionKind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setapproval(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnumProvisioned(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumPurchased(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property acquisitionKind : String Index 0 Read FacquisitionKind Write SetacquisitionKind;
@@ -475,7 +475,7 @@ type
     Fuser : TGroupLicenseUsersListResponseTypeuserArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TGroupLicenseUsersListResponseTypeuserArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -499,7 +499,7 @@ type
   Protected
     //Property setters
     Procedure SetgroupLicense(AIndex : Integer; AValue : TGroupLicensesListResponseTypegroupLicenseArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -523,9 +523,9 @@ type
     FversionCode : integer;
   Protected
     //Property setters
-    Procedure SetinstallState(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetinstallState(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetversionCode(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -547,7 +547,7 @@ type
   Protected
     //Property setters
     Procedure Setinstall(AIndex : Integer; AValue : TInstallsListResponseTypeinstallArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -571,10 +571,10 @@ type
     FpermissionId : String;
   Protected
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpermissionId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -600,14 +600,14 @@ type
     FworkDetailsUrl : String;
   Protected
     //Property setters
-    Procedure SetauthorName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdetailsUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SeticonUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetauthorName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdetailsUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetrequiresContainerApp(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
-    Procedure SetworkDetailsUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetworkDetailsUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property authorName : String Index 0 Read FauthorName Write SetauthorName;
@@ -631,8 +631,8 @@ type
     Fstate : String;
   Protected
     //Property setters
-    Procedure SetpermissionId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property permissionId : String Index 0 Read FpermissionId Write SetpermissionId;
@@ -651,9 +651,9 @@ type
     FproductId : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpermission(AIndex : Integer; AValue : TProductPermissionsTypepermissionArray); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -677,9 +677,9 @@ type
     FprimaryEmail : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprimaryEmail(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetprimaryEmail(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -699,9 +699,9 @@ type
     FuserId : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetuserId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -720,7 +720,7 @@ type
     Fuser : TUsersListResponseTypeuserArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TUsersListResponseTypeuserArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -1105,7 +1105,7 @@ end;
 
 
 
-Procedure TAppRestrictionsSchemaRestriction.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TAppRestrictionsSchemaRestriction.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1135,7 +1135,7 @@ end;
 
 
 
-Procedure TAppRestrictionsSchemaRestriction.Setkey(AIndex : Integer; AValue : String); 
+Procedure TAppRestrictionsSchemaRestriction.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1145,7 +1145,7 @@ end;
 
 
 
-Procedure TAppRestrictionsSchemaRestriction.SetrestrictionType(AIndex : Integer; AValue : String); 
+Procedure TAppRestrictionsSchemaRestriction.SetrestrictionType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrestrictionType=AValue) then exit;
@@ -1155,7 +1155,7 @@ end;
 
 
 
-Procedure TAppRestrictionsSchemaRestriction.Settitle(AIndex : Integer; AValue : String); 
+Procedure TAppRestrictionsSchemaRestriction.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1186,7 +1186,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.Set_type(AIndex : Integer; AValue : String); 
+Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1226,7 +1226,7 @@ end;
 
 
 
-Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueString(AIndex : Integer; AValue : String); 
+Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueString(AIndex : Integer; const AValue : String); 
 
 begin
   If (FvalueString=AValue) then exit;
@@ -1267,7 +1267,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCollection.SetcollectionId(AIndex : Integer; AValue : String); 
+Procedure TCollection.SetcollectionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcollectionId=AValue) then exit;
@@ -1277,7 +1277,7 @@ end;
 
 
 
-Procedure TCollection.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCollection.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1287,7 +1287,7 @@ end;
 
 
 
-Procedure TCollection.Setname(AIndex : Integer; AValue : String); 
+Procedure TCollection.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1307,7 +1307,7 @@ end;
 
 
 
-Procedure TCollection.Setvisibility(AIndex : Integer; AValue : String); 
+Procedure TCollection.Setvisibility(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvisibility=AValue) then exit;
@@ -1337,7 +1337,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCollectionViewersListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCollectionViewersListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1387,7 +1387,7 @@ end;
 
 
 
-Procedure TCollectionsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCollectionsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1417,7 +1417,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDevice.SetandroidId(AIndex : Integer; AValue : String); 
+Procedure TDevice.SetandroidId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FandroidId=AValue) then exit;
@@ -1427,7 +1427,7 @@ end;
 
 
 
-Procedure TDevice.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDevice.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1437,7 +1437,7 @@ end;
 
 
 
-Procedure TDevice.SetmanagementType(AIndex : Integer; AValue : String); 
+Procedure TDevice.SetmanagementType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmanagementType=AValue) then exit;
@@ -1454,7 +1454,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDeviceState.SetaccountState(AIndex : Integer; AValue : String); 
+Procedure TDeviceState.SetaccountState(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountState=AValue) then exit;
@@ -1464,7 +1464,7 @@ end;
 
 
 
-Procedure TDeviceState.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDeviceState.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1491,7 +1491,7 @@ end;
 
 
 
-Procedure TDevicesListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDevicesListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1521,7 +1521,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEnterprise.Setid(AIndex : Integer; AValue : String); 
+Procedure TEnterprise.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1531,7 +1531,7 @@ end;
 
 
 
-Procedure TEnterprise.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEnterprise.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1541,7 +1541,7 @@ end;
 
 
 
-Procedure TEnterprise.Setname(AIndex : Integer; AValue : String); 
+Procedure TEnterprise.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1551,7 +1551,7 @@ end;
 
 
 
-Procedure TEnterprise.SetprimaryDomain(AIndex : Integer; AValue : String); 
+Procedure TEnterprise.SetprimaryDomain(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprimaryDomain=AValue) then exit;
@@ -1568,7 +1568,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEnterpriseAccount.SetaccountEmail(AIndex : Integer; AValue : String); 
+Procedure TEnterpriseAccount.SetaccountEmail(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountEmail=AValue) then exit;
@@ -1578,7 +1578,7 @@ end;
 
 
 
-Procedure TEnterpriseAccount.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEnterpriseAccount.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1605,7 +1605,7 @@ end;
 
 
 
-Procedure TEnterprisesListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEnterprisesListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1635,7 +1635,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEntitlement.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEntitlement.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1645,7 +1645,7 @@ end;
 
 
 
-Procedure TEntitlement.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TEntitlement.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -1655,7 +1655,7 @@ end;
 
 
 
-Procedure TEntitlement.Setreason(AIndex : Integer; AValue : String); 
+Procedure TEntitlement.Setreason(AIndex : Integer; const AValue : String); 
 
 begin
   If (Freason=AValue) then exit;
@@ -1682,7 +1682,7 @@ end;
 
 
 
-Procedure TEntitlementsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEntitlementsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1712,7 +1712,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupLicense.SetacquisitionKind(AIndex : Integer; AValue : String); 
+Procedure TGroupLicense.SetacquisitionKind(AIndex : Integer; const AValue : String); 
 
 begin
   If (FacquisitionKind=AValue) then exit;
@@ -1722,7 +1722,7 @@ end;
 
 
 
-Procedure TGroupLicense.Setapproval(AIndex : Integer; AValue : String); 
+Procedure TGroupLicense.Setapproval(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fapproval=AValue) then exit;
@@ -1732,7 +1732,7 @@ end;
 
 
 
-Procedure TGroupLicense.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupLicense.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1762,7 +1762,7 @@ end;
 
 
 
-Procedure TGroupLicense.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TGroupLicense.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -1779,7 +1779,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupLicenseUsersListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupLicenseUsersListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1829,7 +1829,7 @@ end;
 
 
 
-Procedure TGroupLicensesListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupLicensesListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1859,7 +1859,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstall.SetinstallState(AIndex : Integer; AValue : String); 
+Procedure TInstall.SetinstallState(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinstallState=AValue) then exit;
@@ -1869,7 +1869,7 @@ end;
 
 
 
-Procedure TInstall.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInstall.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1879,7 +1879,7 @@ end;
 
 
 
-Procedure TInstall.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TInstall.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -1916,7 +1916,7 @@ end;
 
 
 
-Procedure TInstallsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInstallsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1946,7 +1946,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPermission.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TPermission.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1956,7 +1956,7 @@ end;
 
 
 
-Procedure TPermission.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPermission.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1966,7 +1966,7 @@ end;
 
 
 
-Procedure TPermission.Setname(AIndex : Integer; AValue : String); 
+Procedure TPermission.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1976,7 +1976,7 @@ end;
 
 
 
-Procedure TPermission.SetpermissionId(AIndex : Integer; AValue : String); 
+Procedure TPermission.SetpermissionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpermissionId=AValue) then exit;
@@ -1993,7 +1993,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProduct.SetauthorName(AIndex : Integer; AValue : String); 
+Procedure TProduct.SetauthorName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FauthorName=AValue) then exit;
@@ -2003,7 +2003,7 @@ end;
 
 
 
-Procedure TProduct.SetdetailsUrl(AIndex : Integer; AValue : String); 
+Procedure TProduct.SetdetailsUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdetailsUrl=AValue) then exit;
@@ -2013,7 +2013,7 @@ end;
 
 
 
-Procedure TProduct.SeticonUrl(AIndex : Integer; AValue : String); 
+Procedure TProduct.SeticonUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -2023,7 +2023,7 @@ end;
 
 
 
-Procedure TProduct.Setkind(AIndex : Integer; AValue : String); 
+Procedure TProduct.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2033,7 +2033,7 @@ end;
 
 
 
-Procedure TProduct.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TProduct.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -2053,7 +2053,7 @@ end;
 
 
 
-Procedure TProduct.Settitle(AIndex : Integer; AValue : String); 
+Procedure TProduct.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -2063,7 +2063,7 @@ end;
 
 
 
-Procedure TProduct.SetworkDetailsUrl(AIndex : Integer; AValue : String); 
+Procedure TProduct.SetworkDetailsUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FworkDetailsUrl=AValue) then exit;
@@ -2080,7 +2080,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProductPermission.SetpermissionId(AIndex : Integer; AValue : String); 
+Procedure TProductPermission.SetpermissionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpermissionId=AValue) then exit;
@@ -2090,7 +2090,7 @@ end;
 
 
 
-Procedure TProductPermission.Setstate(AIndex : Integer; AValue : String); 
+Procedure TProductPermission.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -2107,7 +2107,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProductPermissions.Setkind(AIndex : Integer; AValue : String); 
+Procedure TProductPermissions.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2127,7 +2127,7 @@ end;
 
 
 
-Procedure TProductPermissions.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TProductPermissions.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -2157,7 +2157,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUser.Setid(AIndex : Integer; AValue : String); 
+Procedure TUser.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -2167,7 +2167,7 @@ end;
 
 
 
-Procedure TUser.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUser.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2177,7 +2177,7 @@ end;
 
 
 
-Procedure TUser.SetprimaryEmail(AIndex : Integer; AValue : String); 
+Procedure TUser.SetprimaryEmail(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprimaryEmail=AValue) then exit;
@@ -2194,7 +2194,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUserToken.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUserToken.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2204,7 +2204,7 @@ end;
 
 
 
-Procedure TUserToken.Settoken(AIndex : Integer; AValue : String); 
+Procedure TUserToken.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -2214,7 +2214,7 @@ end;
 
 
 
-Procedure TUserToken.SetuserId(AIndex : Integer; AValue : String); 
+Procedure TUserToken.SetuserId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserId=AValue) then exit;
@@ -2231,7 +2231,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUsersListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUsersListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googleandroidpublisher.pp

@@ -157,7 +157,7 @@ type
     Fsha1 : String;
   Protected
     //Property setters
-    Procedure Setsha1(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsha1(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property sha1 : String Index 0 Read Fsha1 Write Setsha1;
@@ -174,8 +174,8 @@ type
     FrecentChanges : String;
   Protected
     //Property setters
-    Procedure Setlanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure SetrecentChanges(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetrecentChanges(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property language : String Index 0 Read Flanguage Write Setlanguage;
@@ -193,7 +193,7 @@ type
     Flistings : TApkListingsListResponseTypelistingsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlistings(AIndex : Integer; AValue : TApkListingsListResponseTypelistingsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -249,7 +249,7 @@ type
   Protected
     //Property setters
     Procedure Setapks(AIndex : Integer; AValue : TApksListResponseTypeapksArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -273,10 +273,10 @@ type
     FdefaultLanguage : String;
   Protected
     //Property setters
-    Procedure SetcontactEmail(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontactPhone(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontactWebsite(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdefaultLanguage(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontactEmail(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontactPhone(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontactWebsite(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property contactEmail : String Index 0 Read FcontactEmail Write SetcontactEmail;
@@ -296,8 +296,8 @@ type
     Fid : String;
   Protected
     //Property setters
-    Procedure SetexpiryTimeSeconds(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SetexpiryTimeSeconds(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property expiryTimeSeconds : String Index 0 Read FexpiryTimeSeconds Write SetexpiryTimeSeconds;
@@ -317,10 +317,10 @@ type
     Ftoken : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductType(AIndex : Integer; AValue : String); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -366,7 +366,7 @@ type
     FreferencesVersion : integer;
   Protected
     //Property setters
-    Procedure SetfileSize(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
     Procedure SetreferencesVersion(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -414,21 +414,21 @@ type
     FversionName : String;
   Protected
     //Property setters
-    Procedure SetapplicationLabel(AIndex : Integer; AValue : String); virtual;
+    Procedure SetapplicationLabel(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcertificateBase64s(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetexternallyHostedUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfileSha1Base64(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfileSha256Base64(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfileSize(AIndex : Integer; AValue : String); virtual;
-    Procedure SeticonBase64(AIndex : Integer; AValue : String); virtual;
+    Procedure SetexternallyHostedUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfileSha1Base64(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfileSha256Base64(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
+    Procedure SeticonBase64(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaximumSdk(AIndex : Integer; AValue : integer); virtual;
     Procedure SetminimumSdk(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnativeCodes(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetpackageName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
     Procedure SetusesFeatures(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetusesPermissions(AIndex : Integer; AValue : TExternallyHostedApkTypeusesPermissionsArray); virtual;
     Procedure SetversionCode(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetversionName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetversionName(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -464,7 +464,7 @@ type
   Protected
     //Property setters
     Procedure SetmaxSdkVersion(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property maxSdkVersion : integer Index 0 Read FmaxSdkVersion Write SetmaxSdkVersion;
@@ -483,9 +483,9 @@ type
     Furl : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setsha1(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setsha1(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -597,17 +597,17 @@ type
     FtrialPeriod : String;
   Protected
     //Property setters
-    Procedure SetdefaultLanguage(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
     Procedure SetdefaultPrice(AIndex : Integer; AValue : TPrice); virtual;
     Procedure Setlistings(AIndex : Integer; AValue : TInAppProductTypelistings); virtual;
-    Procedure SetpackageName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
     Procedure Setprices(AIndex : Integer; AValue : TInAppProductTypeprices); virtual;
-    Procedure SetpurchaseType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpurchaseType(AIndex : Integer; const AValue : String); virtual;
     Procedure Setseason(AIndex : Integer; AValue : TSeason); virtual;
-    Procedure Setsku(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsubscriptionPeriod(AIndex : Integer; AValue : String); virtual;
-    Procedure SettrialPeriod(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsku(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsubscriptionPeriod(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettrialPeriod(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property defaultLanguage : String Index 0 Read FdefaultLanguage Write SetdefaultLanguage;
@@ -634,8 +634,8 @@ type
     Ftitle : String;
   Protected
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -678,7 +678,7 @@ type
     Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
     Procedure Setinappproductsinsertrequest(AIndex : Integer; AValue : TInappproductsInsertRequest); virtual;
     Procedure Setinappproductsupdaterequest(AIndex : Integer; AValue : TInappproductsUpdateRequest); virtual;
-    Procedure SetmethodName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmethodName(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
@@ -699,7 +699,7 @@ type
   Protected
     //Property setters
     Procedure Setentrys(AIndex : Integer; AValue : TInappproductsBatchResponseTypeentrysArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -778,7 +778,7 @@ type
   Protected
     //Property setters
     Procedure Setinappproduct(AIndex : Integer; AValue : TInappproductsListResponseTypeinappproductArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
     Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
     //2.6.4. bug workaround
@@ -839,11 +839,11 @@ type
     Fvideo : String;
   Protected
     //Property setters
-    Procedure SetfullDescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure SetshortDescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvideo(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfullDescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetshortDescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvideo(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property fullDescription : String Index 0 Read FfullDescription Write SetfullDescription;
@@ -864,7 +864,7 @@ type
     Flistings : TListingsListResponseTypelistingsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlistings(AIndex : Integer; AValue : TListingsListResponseTypelistingsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -928,8 +928,8 @@ type
     FpriceMicros : String;
   Protected
     //Property setters
-    Procedure Setcurrency(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpriceMicros(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpriceMicros(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property currency : String Index 0 Read Fcurrency Write Setcurrency;
@@ -951,10 +951,10 @@ type
   Protected
     //Property setters
     Procedure SetconsumptionState(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetdeveloperPayload(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdeveloperPayload(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpurchaseState(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetpurchaseTimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpurchaseTimeMillis(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property consumptionState : integer Index 0 Read FconsumptionState Write SetconsumptionState;
@@ -995,8 +995,8 @@ type
     FexpectedExpiryTimeMillis : String;
   Protected
     //Property setters
-    Procedure SetdesiredExpiryTimeMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure SetexpectedExpiryTimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdesiredExpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetexpectedExpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property desiredExpiryTimeMillis : String Index 0 Read FdesiredExpiryTimeMillis Write SetdesiredExpiryTimeMillis;
@@ -1017,9 +1017,9 @@ type
   Protected
     //Property setters
     Procedure SetautoRenewing(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetexpiryTimeMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SetexpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTimeMillis(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property autoRenewing : boolean Index 0 Read FautoRenewing Write SetautoRenewing;
@@ -1054,7 +1054,7 @@ type
     FnewExpiryTimeMillis : String;
   Protected
     //Property setters
-    Procedure SetnewExpiryTimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnewExpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property newExpiryTimeMillis : String Index 0 Read FnewExpiryTimeMillis Write SetnewExpiryTimeMillis;
@@ -1094,8 +1094,8 @@ type
     FpreviousPageToken : String;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpreviousPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpreviousPageToken(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
@@ -1114,7 +1114,7 @@ type
     FversionCodes : TintegerArray;
   Protected
     //Property setters
-    Procedure Settrack(AIndex : Integer; AValue : String); virtual;
+    Procedure Settrack(AIndex : Integer; const AValue : String); virtual;
     Procedure SetuserFraction(AIndex : Integer; AValue : double); virtual;
     Procedure SetversionCodes(AIndex : Integer; AValue : TintegerArray); virtual;
     //2.6.4. bug workaround
@@ -1139,7 +1139,7 @@ type
     Ftracks : TTracksListResponseTypetracksArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Settracks(AIndex : Integer; AValue : TTracksListResponseTypetracksArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -1592,7 +1592,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TApkBinary.Setsha1(AIndex : Integer; AValue : String); 
+Procedure TApkBinary.Setsha1(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsha1=AValue) then exit;
@@ -1609,7 +1609,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TApkListing.Setlanguage(AIndex : Integer; AValue : String); 
+Procedure TApkListing.Setlanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flanguage=AValue) then exit;
@@ -1619,7 +1619,7 @@ end;
 
 
 
-Procedure TApkListing.SetrecentChanges(AIndex : Integer; AValue : String); 
+Procedure TApkListing.SetrecentChanges(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrecentChanges=AValue) then exit;
@@ -1636,7 +1636,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TApkListingsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TApkListingsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1720,7 +1720,7 @@ end;
 
 
 
-Procedure TApksListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TApksListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1750,7 +1750,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAppDetails.SetcontactEmail(AIndex : Integer; AValue : String); 
+Procedure TAppDetails.SetcontactEmail(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontactEmail=AValue) then exit;
@@ -1760,7 +1760,7 @@ end;
 
 
 
-Procedure TAppDetails.SetcontactPhone(AIndex : Integer; AValue : String); 
+Procedure TAppDetails.SetcontactPhone(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontactPhone=AValue) then exit;
@@ -1770,7 +1770,7 @@ end;
 
 
 
-Procedure TAppDetails.SetcontactWebsite(AIndex : Integer; AValue : String); 
+Procedure TAppDetails.SetcontactWebsite(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontactWebsite=AValue) then exit;
@@ -1780,7 +1780,7 @@ end;
 
 
 
-Procedure TAppDetails.SetdefaultLanguage(AIndex : Integer; AValue : String); 
+Procedure TAppDetails.SetdefaultLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdefaultLanguage=AValue) then exit;
@@ -1797,7 +1797,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAppEdit.SetexpiryTimeSeconds(AIndex : Integer; AValue : String); 
+Procedure TAppEdit.SetexpiryTimeSeconds(AIndex : Integer; const AValue : String); 
 
 begin
   If (FexpiryTimeSeconds=AValue) then exit;
@@ -1807,7 +1807,7 @@ end;
 
 
 
-Procedure TAppEdit.Setid(AIndex : Integer; AValue : String); 
+Procedure TAppEdit.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1824,7 +1824,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEntitlement.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEntitlement.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1834,7 +1834,7 @@ end;
 
 
 
-Procedure TEntitlement.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TEntitlement.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -1844,7 +1844,7 @@ end;
 
 
 
-Procedure TEntitlement.SetproductType(AIndex : Integer; AValue : String); 
+Procedure TEntitlement.SetproductType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductType=AValue) then exit;
@@ -1854,7 +1854,7 @@ end;
 
 
 
-Procedure TEntitlement.Settoken(AIndex : Integer; AValue : String); 
+Procedure TEntitlement.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -1921,7 +1921,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TExpansionFile.SetfileSize(AIndex : Integer; AValue : String); 
+Procedure TExpansionFile.SetfileSize(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfileSize=AValue) then exit;
@@ -1965,7 +1965,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TExternallyHostedApk.SetapplicationLabel(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SetapplicationLabel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FapplicationLabel=AValue) then exit;
@@ -1985,7 +1985,7 @@ end;
 
 
 
-Procedure TExternallyHostedApk.SetexternallyHostedUrl(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SetexternallyHostedUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FexternallyHostedUrl=AValue) then exit;
@@ -1995,7 +1995,7 @@ end;
 
 
 
-Procedure TExternallyHostedApk.SetfileSha1Base64(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SetfileSha1Base64(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfileSha1Base64=AValue) then exit;
@@ -2005,7 +2005,7 @@ end;
 
 
 
-Procedure TExternallyHostedApk.SetfileSha256Base64(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SetfileSha256Base64(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfileSha256Base64=AValue) then exit;
@@ -2015,7 +2015,7 @@ end;
 
 
 
-Procedure TExternallyHostedApk.SetfileSize(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SetfileSize(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfileSize=AValue) then exit;
@@ -2025,7 +2025,7 @@ end;
 
 
 
-Procedure TExternallyHostedApk.SeticonBase64(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SeticonBase64(AIndex : Integer; const AValue : String); 
 
 begin
   If (FiconBase64=AValue) then exit;
@@ -2065,7 +2065,7 @@ end;
 
 
 
-Procedure TExternallyHostedApk.SetpackageName(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SetpackageName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpackageName=AValue) then exit;
@@ -2105,7 +2105,7 @@ end;
 
 
 
-Procedure TExternallyHostedApk.SetversionName(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApk.SetversionName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FversionName=AValue) then exit;
@@ -2148,7 +2148,7 @@ end;
 
 
 
-Procedure TExternallyHostedApkUsesPermission.Setname(AIndex : Integer; AValue : String); 
+Procedure TExternallyHostedApkUsesPermission.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2165,7 +2165,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TImage.Setid(AIndex : Integer; AValue : String); 
+Procedure TImage.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -2175,7 +2175,7 @@ end;
 
 
 
-Procedure TImage.Setsha1(AIndex : Integer; AValue : String); 
+Procedure TImage.Setsha1(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsha1=AValue) then exit;
@@ -2185,7 +2185,7 @@ end;
 
 
 
-Procedure TImage.Seturl(AIndex : Integer; AValue : String); 
+Procedure TImage.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -2305,7 +2305,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInAppProduct.SetdefaultLanguage(AIndex : Integer; AValue : String); 
+Procedure TInAppProduct.SetdefaultLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdefaultLanguage=AValue) then exit;
@@ -2335,7 +2335,7 @@ end;
 
 
 
-Procedure TInAppProduct.SetpackageName(AIndex : Integer; AValue : String); 
+Procedure TInAppProduct.SetpackageName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpackageName=AValue) then exit;
@@ -2355,7 +2355,7 @@ end;
 
 
 
-Procedure TInAppProduct.SetpurchaseType(AIndex : Integer; AValue : String); 
+Procedure TInAppProduct.SetpurchaseType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpurchaseType=AValue) then exit;
@@ -2375,7 +2375,7 @@ end;
 
 
 
-Procedure TInAppProduct.Setsku(AIndex : Integer; AValue : String); 
+Procedure TInAppProduct.Setsku(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsku=AValue) then exit;
@@ -2385,7 +2385,7 @@ end;
 
 
 
-Procedure TInAppProduct.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TInAppProduct.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -2395,7 +2395,7 @@ end;
 
 
 
-Procedure TInAppProduct.SetsubscriptionPeriod(AIndex : Integer; AValue : String); 
+Procedure TInAppProduct.SetsubscriptionPeriod(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsubscriptionPeriod=AValue) then exit;
@@ -2405,7 +2405,7 @@ end;
 
 
 
-Procedure TInAppProduct.SettrialPeriod(AIndex : Integer; AValue : String); 
+Procedure TInAppProduct.SettrialPeriod(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtrialPeriod=AValue) then exit;
@@ -2422,7 +2422,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInAppProductListing.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TInAppProductListing.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -2432,7 +2432,7 @@ end;
 
 
 
-Procedure TInAppProductListing.Settitle(AIndex : Integer; AValue : String); 
+Procedure TInAppProductListing.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -2509,7 +2509,7 @@ end;
 
 
 
-Procedure TInappproductsBatchRequestEntry.SetmethodName(AIndex : Integer; AValue : String); 
+Procedure TInappproductsBatchRequestEntry.SetmethodName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmethodName=AValue) then exit;
@@ -2536,7 +2536,7 @@ end;
 
 
 
-Procedure TInappproductsBatchResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInappproductsBatchResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2647,7 +2647,7 @@ end;
 
 
 
-Procedure TInappproductsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInappproductsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2731,7 +2731,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListing.SetfullDescription(AIndex : Integer; AValue : String); 
+Procedure TListing.SetfullDescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfullDescription=AValue) then exit;
@@ -2741,7 +2741,7 @@ end;
 
 
 
-Procedure TListing.Setlanguage(AIndex : Integer; AValue : String); 
+Procedure TListing.Setlanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flanguage=AValue) then exit;
@@ -2751,7 +2751,7 @@ end;
 
 
 
-Procedure TListing.SetshortDescription(AIndex : Integer; AValue : String); 
+Procedure TListing.SetshortDescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (FshortDescription=AValue) then exit;
@@ -2761,7 +2761,7 @@ end;
 
 
 
-Procedure TListing.Settitle(AIndex : Integer; AValue : String); 
+Procedure TListing.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -2771,7 +2771,7 @@ end;
 
 
 
-Procedure TListing.Setvideo(AIndex : Integer; AValue : String); 
+Procedure TListing.Setvideo(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvideo=AValue) then exit;
@@ -2788,7 +2788,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListingsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListingsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2892,7 +2892,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPrice.Setcurrency(AIndex : Integer; AValue : String); 
+Procedure TPrice.Setcurrency(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcurrency=AValue) then exit;
@@ -2902,7 +2902,7 @@ end;
 
 
 
-Procedure TPrice.SetpriceMicros(AIndex : Integer; AValue : String); 
+Procedure TPrice.SetpriceMicros(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpriceMicros=AValue) then exit;
@@ -2929,7 +2929,7 @@ end;
 
 
 
-Procedure TProductPurchase.SetdeveloperPayload(AIndex : Integer; AValue : String); 
+Procedure TProductPurchase.SetdeveloperPayload(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdeveloperPayload=AValue) then exit;
@@ -2939,7 +2939,7 @@ end;
 
 
 
-Procedure TProductPurchase.Setkind(AIndex : Integer; AValue : String); 
+Procedure TProductPurchase.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2959,7 +2959,7 @@ end;
 
 
 
-Procedure TProductPurchase.SetpurchaseTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TProductPurchase.SetpurchaseTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpurchaseTimeMillis=AValue) then exit;
@@ -3014,7 +3014,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptionDeferralInfo.SetdesiredExpiryTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionDeferralInfo.SetdesiredExpiryTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdesiredExpiryTimeMillis=AValue) then exit;
@@ -3024,7 +3024,7 @@ end;
 
 
 
-Procedure TSubscriptionDeferralInfo.SetexpectedExpiryTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionDeferralInfo.SetexpectedExpiryTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FexpectedExpiryTimeMillis=AValue) then exit;
@@ -3051,7 +3051,7 @@ end;
 
 
 
-Procedure TSubscriptionPurchase.SetexpiryTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionPurchase.SetexpiryTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FexpiryTimeMillis=AValue) then exit;
@@ -3061,7 +3061,7 @@ end;
 
 
 
-Procedure TSubscriptionPurchase.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionPurchase.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -3071,7 +3071,7 @@ end;
 
 
 
-Procedure TSubscriptionPurchase.SetstartTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionPurchase.SetstartTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTimeMillis=AValue) then exit;
@@ -3105,7 +3105,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptionPurchasesDeferResponse.SetnewExpiryTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionPurchasesDeferResponse.SetnewExpiryTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnewExpiryTimeMillis=AValue) then exit;
@@ -3163,7 +3163,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -3173,7 +3173,7 @@ end;
 
 
 
-Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; AValue : String); 
+Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpreviousPageToken=AValue) then exit;
@@ -3190,7 +3190,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTrack.Settrack(AIndex : Integer; AValue : String); 
+Procedure TTrack.Settrack(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftrack=AValue) then exit;
@@ -3240,7 +3240,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTracksListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTracksListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googleappsactivity.pp

@@ -96,11 +96,11 @@ type
   Protected
     //Property setters
     Procedure SetadditionalEventTypes(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SeteventTimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SeteventTimeMillis(AIndex : Integer; const AValue : String); virtual;
     Procedure SetfromUserDeletion(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setmove(AIndex : Integer; AValue : TMove); virtual;
     Procedure SetpermissionChanges(AIndex : Integer; AValue : TEventTypepermissionChangesArray); virtual;
-    Procedure SetprimaryEventType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetprimaryEventType(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrename(AIndex : Integer; AValue : TRename); virtual;
     Procedure Settarget(AIndex : Integer; AValue : TTarget); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TUser); virtual;
@@ -133,7 +133,7 @@ type
   Protected
     //Property setters
     Procedure Setactivities(AIndex : Integer; AValue : TListActivitiesResponseTypeactivitiesArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -179,9 +179,9 @@ type
     Ftitle : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetisRoot(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -205,10 +205,10 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpermissionId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setrole(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TUser); virtual;
     Procedure SetwithLink(AIndex : Integer; AValue : boolean); virtual;
   Public
@@ -254,7 +254,7 @@ type
     Furl : String;
   Protected
     //Property setters
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property url : String Index 0 Read Furl Write Seturl;
@@ -271,8 +271,8 @@ type
     FoldTitle : String;
   Protected
     //Property setters
-    Procedure SetnewTitle(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoldTitle(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnewTitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetoldTitle(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property newTitle : String Index 0 Read FnewTitle Write SetnewTitle;
@@ -291,9 +291,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmimeType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -312,7 +312,7 @@ type
     Fphoto : TPhoto;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setphoto(AIndex : Integer; AValue : TPhoto); virtual;
   Public
   Published
@@ -442,7 +442,7 @@ end;
 
 
 
-Procedure TEvent.SeteventTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TEvent.SeteventTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FeventTimeMillis=AValue) then exit;
@@ -482,7 +482,7 @@ end;
 
 
 
-Procedure TEvent.SetprimaryEventType(AIndex : Integer; AValue : String); 
+Procedure TEvent.SetprimaryEventType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprimaryEventType=AValue) then exit;
@@ -553,7 +553,7 @@ end;
 
 
 
-Procedure TListActivitiesResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListActivitiesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -624,7 +624,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TParent.Setid(AIndex : Integer; AValue : String); 
+Procedure TParent.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -644,7 +644,7 @@ end;
 
 
 
-Procedure TParent.Settitle(AIndex : Integer; AValue : String); 
+Procedure TParent.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -661,7 +661,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPermission.Setname(AIndex : Integer; AValue : String); 
+Procedure TPermission.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -671,7 +671,7 @@ end;
 
 
 
-Procedure TPermission.SetpermissionId(AIndex : Integer; AValue : String); 
+Procedure TPermission.SetpermissionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpermissionId=AValue) then exit;
@@ -681,7 +681,7 @@ end;
 
 
 
-Procedure TPermission.Setrole(AIndex : Integer; AValue : String); 
+Procedure TPermission.Setrole(AIndex : Integer; const AValue : String); 
 
 begin
   If (Frole=AValue) then exit;
@@ -691,7 +691,7 @@ end;
 
 
 
-Procedure TPermission.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPermission.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -780,7 +780,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPhoto.Seturl(AIndex : Integer; AValue : String); 
+Procedure TPhoto.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -797,7 +797,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRename.SetnewTitle(AIndex : Integer; AValue : String); 
+Procedure TRename.SetnewTitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnewTitle=AValue) then exit;
@@ -807,7 +807,7 @@ end;
 
 
 
-Procedure TRename.SetoldTitle(AIndex : Integer; AValue : String); 
+Procedure TRename.SetoldTitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoldTitle=AValue) then exit;
@@ -824,7 +824,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTarget.Setid(AIndex : Integer; AValue : String); 
+Procedure TTarget.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -834,7 +834,7 @@ end;
 
 
 
-Procedure TTarget.SetmimeType(AIndex : Integer; AValue : String); 
+Procedure TTarget.SetmimeType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmimeType=AValue) then exit;
@@ -844,7 +844,7 @@ end;
 
 
 
-Procedure TTarget.Setname(AIndex : Integer; AValue : String); 
+Procedure TTarget.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -861,7 +861,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUser.Setname(AIndex : Integer; AValue : String); 
+Procedure TUser.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;

packages/googleapi/src/googleappstate.pp

@@ -47,9 +47,9 @@ type
     FstateKey : integer;
   Protected
     //Property setters
-    Procedure SetcurrentStateVersion(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcurrentStateVersion(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetstateKey(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -72,7 +72,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaximumKeyCount(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -96,8 +96,8 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property data : String Index 0 Read Fdata Write Setdata;
@@ -116,8 +116,8 @@ type
     FstateKey : integer;
   Protected
     //Property setters
-    Procedure SetcurrentStateVersion(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcurrentStateVersion(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetstateKey(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -212,7 +212,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGetResponse.SetcurrentStateVersion(AIndex : Integer; AValue : String); 
+Procedure TGetResponse.SetcurrentStateVersion(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrentStateVersion=AValue) then exit;
@@ -222,7 +222,7 @@ end;
 
 
 
-Procedure TGetResponse.Setdata(AIndex : Integer; AValue : String); 
+Procedure TGetResponse.Setdata(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -232,7 +232,7 @@ end;
 
 
 
-Procedure TGetResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGetResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -269,7 +269,7 @@ end;
 
 
 
-Procedure TListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -309,7 +309,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUpdateRequest.Setdata(AIndex : Integer; AValue : String); 
+Procedure TUpdateRequest.Setdata(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -319,7 +319,7 @@ end;
 
 
 
-Procedure TUpdateRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUpdateRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -336,7 +336,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWriteResult.SetcurrentStateVersion(AIndex : Integer; AValue : String); 
+Procedure TWriteResult.SetcurrentStateVersion(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrentStateVersion=AValue) then exit;
@@ -346,7 +346,7 @@ end;
 
 
 
-Procedure TWriteResult.Setkind(AIndex : Integer; AValue : String); 
+Procedure TWriteResult.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googleaudit.pp

@@ -49,8 +49,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnext(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnext(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -75,10 +75,10 @@ type
     Fkey : String;
   Protected
     //Property setters
-    Procedure SetapplicationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcallerType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
+    Procedure SetapplicationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcallerType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property applicationId : String Index 0 Read FapplicationId Write SetapplicationId;
@@ -98,8 +98,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -118,8 +118,8 @@ type
     Fparameters : TActivityTypeeventsItemTypeparametersArray;
   Protected
     //Property setters
-    Procedure SeteventType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SeteventType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -145,10 +145,10 @@ type
     FuniqQualifier : String;
   Protected
     //Property setters
-    Procedure SetapplicationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomerId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetapplicationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
     Procedure Settime(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetuniqQualifier(AIndex : Integer; AValue : String); virtual;
+    Procedure SetuniqQualifier(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property applicationId : String Index 0 Read FapplicationId Write SetapplicationId;
@@ -175,9 +175,9 @@ type
     Procedure Setactor(AIndex : Integer; AValue : TActivityTypeactor); virtual;
     Procedure Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray); virtual;
     Procedure Setid(AIndex : Integer; AValue : TActivityTypeid); virtual;
-    Procedure SetipAddress(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetownerDomain(AIndex : Integer; AValue : String); virtual;
+    Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetownerDomain(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -276,7 +276,7 @@ end;
 
 
 
-Procedure TActivities.Setkind(AIndex : Integer; AValue : String); 
+Procedure TActivities.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -286,7 +286,7 @@ end;
 
 
 
-Procedure TActivities.Setnext(AIndex : Integer; AValue : String); 
+Procedure TActivities.Setnext(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnext=AValue) then exit;
@@ -316,7 +316,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeactor.SetapplicationId(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.SetapplicationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FapplicationId=AValue) then exit;
@@ -326,7 +326,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.SetcallerType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcallerType=AValue) then exit;
@@ -336,7 +336,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setemail(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -346,7 +346,7 @@ end;
 
 
 
-Procedure TActivityTypeactor.Setkey(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeactor.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -363,7 +363,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -373,7 +373,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItemTypeparametersItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -390,7 +390,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeeventsItem.SeteventType(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItem.SeteventType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FeventType=AValue) then exit;
@@ -400,7 +400,7 @@ end;
 
 
 
-Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeeventsItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -440,7 +440,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TActivityTypeid.SetapplicationId(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeid.SetapplicationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FapplicationId=AValue) then exit;
@@ -450,7 +450,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeid.SetcustomerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -470,7 +470,7 @@ end;
 
 
 
-Procedure TActivityTypeid.SetuniqQualifier(AIndex : Integer; AValue : String); 
+Procedure TActivityTypeid.SetuniqQualifier(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuniqQualifier=AValue) then exit;
@@ -517,7 +517,7 @@ end;
 
 
 
-Procedure TActivity.SetipAddress(AIndex : Integer; AValue : String); 
+Procedure TActivity.SetipAddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (FipAddress=AValue) then exit;
@@ -527,7 +527,7 @@ end;
 
 
 
-Procedure TActivity.Setkind(AIndex : Integer; AValue : String); 
+Procedure TActivity.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -537,7 +537,7 @@ end;
 
 
 
-Procedure TActivity.SetownerDomain(AIndex : Integer; AValue : String); 
+Procedure TActivity.SetownerDomain(AIndex : Integer; const AValue : String); 
 
 begin
   If (FownerDomain=AValue) then exit;

packages/googleapi/src/googleautoscaler.pp

@@ -78,13 +78,13 @@ type
   Protected
     //Property setters
     Procedure SetautoscalingPolicy(AIndex : Integer; AValue : TAutoscalingPolicy); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Settarget(AIndex : Integer; 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 SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property autoscalingPolicy : TAutoscalingPolicy Index 0 Read FautoscalingPolicy Write SetautoscalingPolicy;
@@ -110,8 +110,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TAutoscalerListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -186,9 +186,9 @@ type
     FutilizationTargetType : String;
   Protected
     //Property setters
-    Procedure Setmetric(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
     Procedure SetutilizationTarget(AIndex : Integer; AValue : double); virtual;
-    Procedure SetutilizationTargetType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetutilizationTargetType(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property metric : String Index 0 Read Fmetric Write Setmetric;
@@ -226,11 +226,11 @@ type
     Fstate : String;
   Protected
     //Property setters
-    Procedure Setdeleted(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdeprecated(AIndex : Integer; AValue : String); virtual;
-    Procedure Setobsolete(AIndex : Integer; AValue : String); virtual;
-    Procedure Setreplacement(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -252,9 +252,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -293,8 +293,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -313,9 +313,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); 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;
@@ -358,28 +358,28 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SetclientOperationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
-    Procedure SethttpErrorMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
     Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinsertTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : String); 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; AValue : integer); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); 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; AValue : TOperationTypewarningsArray); virtual;
-    Procedure Setzone(AIndex : Integer; 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;
@@ -424,11 +424,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -455,10 +455,10 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure SetbeginTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbeginTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property beginTime : String Index 0 Read FbeginTime Write SetbeginTime;
@@ -486,16 +486,16 @@ type
     Fstatus : String;
   Protected
     //Property setters
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; 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 SetmaintenanceWindows(AIndex : Integer; AValue : TZoneTypemaintenanceWindowsArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; 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;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -528,11 +528,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TZoneListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -685,7 +685,7 @@ end;
 
 
 
-Procedure TAutoscaler.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TAutoscaler.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -695,7 +695,7 @@ end;
 
 
 
-Procedure TAutoscaler.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TAutoscaler.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -705,7 +705,7 @@ end;
 
 
 
-Procedure TAutoscaler.Setid(AIndex : Integer; AValue : String); 
+Procedure TAutoscaler.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -715,7 +715,7 @@ end;
 
 
 
-Procedure TAutoscaler.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAutoscaler.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -725,7 +725,7 @@ end;
 
 
 
-Procedure TAutoscaler.Setname(AIndex : Integer; AValue : String); 
+Procedure TAutoscaler.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -735,7 +735,7 @@ end;
 
 
 
-Procedure TAutoscaler.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TAutoscaler.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -745,7 +745,7 @@ end;
 
 
 
-Procedure TAutoscaler.Settarget(AIndex : Integer; AValue : String); 
+Procedure TAutoscaler.Settarget(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftarget=AValue) then exit;
@@ -772,7 +772,7 @@ end;
 
 
 
-Procedure TAutoscalerListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAutoscalerListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -782,7 +782,7 @@ end;
 
 
 
-Procedure TAutoscalerListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TAutoscalerListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -909,7 +909,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAutoscalingPolicyCustomMetricUtilization.Setmetric(AIndex : Integer; AValue : String); 
+Procedure TAutoscalingPolicyCustomMetricUtilization.Setmetric(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmetric=AValue) then exit;
@@ -929,7 +929,7 @@ end;
 
 
 
-Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTargetType(AIndex : Integer; AValue : String); 
+Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTargetType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FutilizationTargetType=AValue) then exit;
@@ -963,7 +963,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDeprecationStatus.Setdeleted(AIndex : Integer; AValue : String); 
+Procedure TDeprecationStatus.Setdeleted(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdeleted=AValue) then exit;
@@ -973,7 +973,7 @@ end;
 
 
 
-Procedure TDeprecationStatus.Setdeprecated(AIndex : Integer; AValue : String); 
+Procedure TDeprecationStatus.Setdeprecated(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdeprecated=AValue) then exit;
@@ -983,7 +983,7 @@ end;
 
 
 
-Procedure TDeprecationStatus.Setobsolete(AIndex : Integer; AValue : String); 
+Procedure TDeprecationStatus.Setobsolete(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fobsolete=AValue) then exit;
@@ -993,7 +993,7 @@ end;
 
 
 
-Procedure TDeprecationStatus.Setreplacement(AIndex : Integer; AValue : String); 
+Procedure TDeprecationStatus.Setreplacement(AIndex : Integer; const AValue : String); 
 
 begin
   If (Freplacement=AValue) then exit;
@@ -1003,7 +1003,7 @@ end;
 
 
 
-Procedure TDeprecationStatus.Setstate(AIndex : Integer; AValue : String); 
+Procedure TDeprecationStatus.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -1020,7 +1020,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1030,7 +1030,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -1040,7 +1040,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1087,7 +1087,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1097,7 +1097,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1114,7 +1114,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1134,7 +1134,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1164,7 +1164,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -1174,7 +1174,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1184,7 +1184,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1204,7 +1204,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -1224,7 +1224,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1234,7 +1234,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -1244,7 +1244,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1254,7 +1254,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1264,7 +1264,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -1284,7 +1284,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -1294,7 +1294,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1304,7 +1304,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1314,7 +1314,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1324,7 +1324,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1334,7 +1334,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetId=AValue) then exit;
@@ -1344,7 +1344,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -1354,7 +1354,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -1374,7 +1374,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -1404,7 +1404,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationList.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1424,7 +1424,7 @@ end;
 
 
 
-Procedure TOperationList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1434,7 +1434,7 @@ end;
 
 
 
-Procedure TOperationList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1444,7 +1444,7 @@ end;
 
 
 
-Procedure TOperationList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1474,7 +1474,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TZoneTypemaintenanceWindowsItem.SetbeginTime(AIndex : Integer; AValue : String); 
+Procedure TZoneTypemaintenanceWindowsItem.SetbeginTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbeginTime=AValue) then exit;
@@ -1484,7 +1484,7 @@ end;
 
 
 
-Procedure TZoneTypemaintenanceWindowsItem.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TZoneTypemaintenanceWindowsItem.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1494,7 +1494,7 @@ end;
 
 
 
-Procedure TZoneTypemaintenanceWindowsItem.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TZoneTypemaintenanceWindowsItem.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1504,7 +1504,7 @@ end;
 
 
 
-Procedure TZoneTypemaintenanceWindowsItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TZoneTypemaintenanceWindowsItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1521,7 +1521,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TZone.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TZone.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1541,7 +1541,7 @@ end;
 
 
 
-Procedure TZone.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TZone.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1551,7 +1551,7 @@ end;
 
 
 
-Procedure TZone.Setid(AIndex : Integer; AValue : String); 
+Procedure TZone.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1561,7 +1561,7 @@ end;
 
 
 
-Procedure TZone.Setkind(AIndex : Integer; AValue : String); 
+Procedure TZone.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1581,7 +1581,7 @@ end;
 
 
 
-Procedure TZone.Setname(AIndex : Integer; AValue : String); 
+Procedure TZone.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1591,7 +1591,7 @@ end;
 
 
 
-Procedure TZone.Setregion(AIndex : Integer; AValue : String); 
+Procedure TZone.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -1601,7 +1601,7 @@ end;
 
 
 
-Procedure TZone.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TZone.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1611,7 +1611,7 @@ end;
 
 
 
-Procedure TZone.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TZone.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1641,7 +1641,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TZoneList.Setid(AIndex : Integer; AValue : String); 
+Procedure TZoneList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1661,7 +1661,7 @@ end;
 
 
 
-Procedure TZoneList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TZoneList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1671,7 +1671,7 @@ end;
 
 
 
-Procedure TZoneList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TZoneList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1681,7 +1681,7 @@ end;
 
 
 
-Procedure TZoneList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TZoneList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;

packages/googleapi/src/googlecivicinfo.pp

@@ -103,9 +103,9 @@ type
   Protected
     //Property setters
     Procedure SetelectionAdministrationBody(AIndex : Integer; AValue : TAdministrativeBody); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlocal_jurisdiction(AIndex : Integer; AValue : TAdministrationRegion); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsources(AIndex : Integer; AValue : TAdministrationRegionTypesourcesArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -142,19 +142,19 @@ type
     FvotingLocationFinderUrl : String;
   Protected
     //Property setters
-    Procedure SetabsenteeVotingInfoUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetballotInfoUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetabsenteeVotingInfoUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetballotInfoUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcorrespondenceAddress(AIndex : Integer; AValue : TSimpleAddressType); virtual;
-    Procedure SetelectionInfoUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetelectionInfoUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure SetelectionOfficials(AIndex : Integer; AValue : TAdministrativeBodyTypeelectionOfficialsArray); virtual;
-    Procedure SetelectionRegistrationConfirmationUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetelectionRegistrationUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetelectionRulesUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SethoursOfOperation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetelectionRegistrationConfirmationUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetelectionRegistrationUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetelectionRulesUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethoursOfOperation(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetphysicalAddress(AIndex : Integer; AValue : TSimpleAddressType); virtual;
     Procedure Setvoter_services(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetvotingLocationFinderUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetvotingLocationFinderUrl(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -193,14 +193,14 @@ type
     FphotoUrl : String;
   Protected
     //Property setters
-    Procedure SetcandidateUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcandidateUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure Setchannels(AIndex : Integer; AValue : TCandidateTypechannelsArray); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetorderOnBallot(AIndex : Integer; AValue : String); virtual;
-    Procedure Setparty(AIndex : Integer; AValue : String); virtual;
-    Procedure Setphone(AIndex : Integer; AValue : String); virtual;
-    Procedure SetphotoUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetorderOnBallot(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setparty(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setphone(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -229,8 +229,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -264,23 +264,23 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetballotPlacement(AIndex : Integer; AValue : String); virtual;
+    Procedure SetballotPlacement(AIndex : Integer; const AValue : String); virtual;
     Procedure Setcandidates(AIndex : Integer; AValue : TContestTypecandidatesArray); virtual;
     Procedure Setdistrict(AIndex : Integer; AValue : TElectoralDistrict); virtual;
-    Procedure SetelectorateSpecifications(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SetelectorateSpecifications(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlevel(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetnumberElected(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumberVotingFor(AIndex : Integer; AValue : String); virtual;
-    Procedure Setoffice(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprimaryParty(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreferendumSubtitle(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreferendumTitle(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreferendumUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnumberElected(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumberVotingFor(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setoffice(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetprimaryParty(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreferendumSubtitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreferendumTitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreferendumUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure Setroles(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setsources(AIndex : Integer; AValue : TContestTypesourcesArray); virtual;
-    Procedure Setspecial(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setspecial(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;
@@ -317,7 +317,7 @@ type
     Fresults : TDivisionSearchResponseTyperesultsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresults(AIndex : Integer; AValue : TDivisionSearchResponseTyperesultsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -342,8 +342,8 @@ type
   Protected
     //Property setters
     Procedure Setaliases(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetocdId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetocdId(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -367,9 +367,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure SetelectionDay(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetelectionDay(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property electionDay : String Index 0 Read FelectionDay Write SetelectionDay;
@@ -391,11 +391,11 @@ type
     Ftitle : String;
   Protected
     //Property setters
-    Procedure SetemailAddress(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfaxNumber(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetofficePhoneNumber(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfaxNumber(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetofficePhoneNumber(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property emailAddress : String Index 0 Read FemailAddress Write SetemailAddress;
@@ -417,7 +417,7 @@ type
   Protected
     //Property setters
     Procedure Setelections(AIndex : Integer; AValue : TElectionsQueryResponseTypeelectionsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -440,9 +440,9 @@ type
     Fscope : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setscope(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setscope(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -463,7 +463,7 @@ type
   Protected
     //Property setters
     Procedure SetalsoKnownAs(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetofficeIndices(AIndex : Integer; AValue : TintegerArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -491,9 +491,9 @@ type
     Fsources : TOfficeTypesourcesArray;
   Protected
     //Property setters
-    Procedure SetdivisionId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdivisionId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlevels(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetofficialIndices(AIndex : Integer; AValue : TintegerArray); virtual;
     Procedure Setroles(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setsources(AIndex : Integer; AValue : TOfficeTypesourcesArray); virtual;
@@ -531,10 +531,10 @@ type
     Procedure Setaddress(AIndex : Integer; AValue : TOfficialTypeaddressArray); virtual;
     Procedure Setchannels(AIndex : Integer; AValue : TOfficialTypechannelsArray); virtual;
     Procedure Setemails(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setparty(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setparty(AIndex : Integer; const AValue : String); virtual;
     Procedure Setphones(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetphotoUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure Seturls(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -571,14 +571,14 @@ type
   Protected
     //Property setters
     Procedure Setaddress(AIndex : Integer; AValue : TSimpleAddressType); virtual;
-    Procedure SetendDate(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpollingHours(AIndex : Integer; AValue : String); virtual;
+    Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpollingHours(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsources(AIndex : Integer; AValue : TPollingLocationTypesourcesArray); virtual;
-    Procedure SetstartDate(AIndex : Integer; AValue : String); virtual;
-    Procedure SetvoterServices(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetvoterServices(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -665,7 +665,7 @@ type
   Protected
     //Property setters
     Procedure Setdivisions(AIndex : Integer; AValue : TRepresentativeInfoResponseTypedivisions); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnormalizedInput(AIndex : Integer; AValue : TSimpleAddressType); virtual;
     Procedure Setoffices(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficesArray); virtual;
     Procedure Setofficials(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficialsArray); virtual;
@@ -698,13 +698,13 @@ type
     Fzip : String;
   Protected
     //Property setters
-    Procedure Setcity(AIndex : Integer; AValue : String); virtual;
-    Procedure Setline1(AIndex : Integer; AValue : String); virtual;
-    Procedure Setline2(AIndex : Integer; AValue : String); virtual;
-    Procedure Setline3(AIndex : Integer; AValue : String); virtual;
-    Procedure SetlocationName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); virtual;
-    Procedure Setzip(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcity(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setline1(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setline2(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setline3(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetlocationName(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setzip(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property city : String Index 0 Read Fcity Write Setcity;
@@ -727,7 +727,7 @@ type
     Fofficial : boolean;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setofficial(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -758,11 +758,11 @@ type
     Procedure SetdropOffLocations(AIndex : Integer; AValue : TVoterInfoResponseTypedropOffLocationsArray); virtual;
     Procedure SetearlyVoteSites(AIndex : Integer; AValue : TVoterInfoResponseTypeearlyVoteSitesArray); virtual;
     Procedure Setelection(AIndex : Integer; AValue : TElection); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnormalizedInput(AIndex : Integer; AValue : TSimpleAddressType); virtual;
     Procedure SetotherElections(AIndex : Integer; AValue : TVoterInfoResponseTypeotherElectionsArray); virtual;
     Procedure SetpollingLocations(AIndex : Integer; AValue : TVoterInfoResponseTypepollingLocationsArray); virtual;
-    Procedure SetprecinctId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetprecinctId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TVoterInfoResponseTypestateArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -925,7 +925,7 @@ end;
 
 
 
-Procedure TAdministrationRegion.Setid(AIndex : Integer; AValue : String); 
+Procedure TAdministrationRegion.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -945,7 +945,7 @@ end;
 
 
 
-Procedure TAdministrationRegion.Setname(AIndex : Integer; AValue : String); 
+Procedure TAdministrationRegion.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -985,7 +985,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAdministrativeBody.SetabsenteeVotingInfoUrl(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SetabsenteeVotingInfoUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FabsenteeVotingInfoUrl=AValue) then exit;
@@ -995,7 +995,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.SetballotInfoUrl(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SetballotInfoUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FballotInfoUrl=AValue) then exit;
@@ -1015,7 +1015,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.SetelectionInfoUrl(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SetelectionInfoUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FelectionInfoUrl=AValue) then exit;
@@ -1035,7 +1035,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.SetelectionRegistrationConfirmationUrl(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SetelectionRegistrationConfirmationUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FelectionRegistrationConfirmationUrl=AValue) then exit;
@@ -1045,7 +1045,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.SetelectionRegistrationUrl(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SetelectionRegistrationUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FelectionRegistrationUrl=AValue) then exit;
@@ -1055,7 +1055,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.SetelectionRulesUrl(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SetelectionRulesUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FelectionRulesUrl=AValue) then exit;
@@ -1065,7 +1065,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.SethoursOfOperation(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SethoursOfOperation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhoursOfOperation=AValue) then exit;
@@ -1075,7 +1075,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.Setname(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1105,7 +1105,7 @@ end;
 
 
 
-Procedure TAdministrativeBody.SetvotingLocationFinderUrl(AIndex : Integer; AValue : String); 
+Procedure TAdministrativeBody.SetvotingLocationFinderUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FvotingLocationFinderUrl=AValue) then exit;
@@ -1136,7 +1136,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCandidate.SetcandidateUrl(AIndex : Integer; AValue : String); 
+Procedure TCandidate.SetcandidateUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcandidateUrl=AValue) then exit;
@@ -1156,7 +1156,7 @@ end;
 
 
 
-Procedure TCandidate.Setemail(AIndex : Integer; AValue : String); 
+Procedure TCandidate.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -1166,7 +1166,7 @@ end;
 
 
 
-Procedure TCandidate.Setname(AIndex : Integer; AValue : String); 
+Procedure TCandidate.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1176,7 +1176,7 @@ end;
 
 
 
-Procedure TCandidate.SetorderOnBallot(AIndex : Integer; AValue : String); 
+Procedure TCandidate.SetorderOnBallot(AIndex : Integer; const AValue : String); 
 
 begin
   If (ForderOnBallot=AValue) then exit;
@@ -1186,7 +1186,7 @@ end;
 
 
 
-Procedure TCandidate.Setparty(AIndex : Integer; AValue : String); 
+Procedure TCandidate.Setparty(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fparty=AValue) then exit;
@@ -1196,7 +1196,7 @@ end;
 
 
 
-Procedure TCandidate.Setphone(AIndex : Integer; AValue : String); 
+Procedure TCandidate.Setphone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fphone=AValue) then exit;
@@ -1206,7 +1206,7 @@ end;
 
 
 
-Procedure TCandidate.SetphotoUrl(AIndex : Integer; AValue : String); 
+Procedure TCandidate.SetphotoUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FphotoUrl=AValue) then exit;
@@ -1236,7 +1236,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TChannel.Setid(AIndex : Integer; AValue : String); 
+Procedure TChannel.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1246,7 +1246,7 @@ end;
 
 
 
-Procedure TChannel.Set_type(AIndex : Integer; AValue : String); 
+Procedure TChannel.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1274,7 +1274,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TContest.SetballotPlacement(AIndex : Integer; AValue : String); 
+Procedure TContest.SetballotPlacement(AIndex : Integer; const AValue : String); 
 
 begin
   If (FballotPlacement=AValue) then exit;
@@ -1304,7 +1304,7 @@ end;
 
 
 
-Procedure TContest.SetelectorateSpecifications(AIndex : Integer; AValue : String); 
+Procedure TContest.SetelectorateSpecifications(AIndex : Integer; const AValue : String); 
 
 begin
   If (FelectorateSpecifications=AValue) then exit;
@@ -1314,7 +1314,7 @@ end;
 
 
 
-Procedure TContest.Setid(AIndex : Integer; AValue : String); 
+Procedure TContest.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1334,7 +1334,7 @@ end;
 
 
 
-Procedure TContest.SetnumberElected(AIndex : Integer; AValue : String); 
+Procedure TContest.SetnumberElected(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumberElected=AValue) then exit;
@@ -1344,7 +1344,7 @@ end;
 
 
 
-Procedure TContest.SetnumberVotingFor(AIndex : Integer; AValue : String); 
+Procedure TContest.SetnumberVotingFor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumberVotingFor=AValue) then exit;
@@ -1354,7 +1354,7 @@ end;
 
 
 
-Procedure TContest.Setoffice(AIndex : Integer; AValue : String); 
+Procedure TContest.Setoffice(AIndex : Integer; const AValue : String); 
 
 begin
   If (Foffice=AValue) then exit;
@@ -1364,7 +1364,7 @@ end;
 
 
 
-Procedure TContest.SetprimaryParty(AIndex : Integer; AValue : String); 
+Procedure TContest.SetprimaryParty(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprimaryParty=AValue) then exit;
@@ -1374,7 +1374,7 @@ end;
 
 
 
-Procedure TContest.SetreferendumSubtitle(AIndex : Integer; AValue : String); 
+Procedure TContest.SetreferendumSubtitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreferendumSubtitle=AValue) then exit;
@@ -1384,7 +1384,7 @@ end;
 
 
 
-Procedure TContest.SetreferendumTitle(AIndex : Integer; AValue : String); 
+Procedure TContest.SetreferendumTitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreferendumTitle=AValue) then exit;
@@ -1394,7 +1394,7 @@ end;
 
 
 
-Procedure TContest.SetreferendumUrl(AIndex : Integer; AValue : String); 
+Procedure TContest.SetreferendumUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreferendumUrl=AValue) then exit;
@@ -1424,7 +1424,7 @@ end;
 
 
 
-Procedure TContest.Setspecial(AIndex : Integer; AValue : String); 
+Procedure TContest.Setspecial(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fspecial=AValue) then exit;
@@ -1434,7 +1434,7 @@ end;
 
 
 
-Procedure TContest.Set_type(AIndex : Integer; AValue : String); 
+Procedure TContest.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1478,7 +1478,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDivisionSearchResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDivisionSearchResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1528,7 +1528,7 @@ end;
 
 
 
-Procedure TDivisionSearchResult.Setname(AIndex : Integer; AValue : String); 
+Procedure TDivisionSearchResult.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1538,7 +1538,7 @@ end;
 
 
 
-Procedure TDivisionSearchResult.SetocdId(AIndex : Integer; AValue : String); 
+Procedure TDivisionSearchResult.SetocdId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FocdId=AValue) then exit;
@@ -1568,7 +1568,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TElection.SetelectionDay(AIndex : Integer; AValue : String); 
+Procedure TElection.SetelectionDay(AIndex : Integer; const AValue : String); 
 
 begin
   If (FelectionDay=AValue) then exit;
@@ -1578,7 +1578,7 @@ end;
 
 
 
-Procedure TElection.Setid(AIndex : Integer; AValue : String); 
+Procedure TElection.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1588,7 +1588,7 @@ end;
 
 
 
-Procedure TElection.Setname(AIndex : Integer; AValue : String); 
+Procedure TElection.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1605,7 +1605,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TElectionOfficial.SetemailAddress(AIndex : Integer; AValue : String); 
+Procedure TElectionOfficial.SetemailAddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (FemailAddress=AValue) then exit;
@@ -1615,7 +1615,7 @@ end;
 
 
 
-Procedure TElectionOfficial.SetfaxNumber(AIndex : Integer; AValue : String); 
+Procedure TElectionOfficial.SetfaxNumber(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfaxNumber=AValue) then exit;
@@ -1625,7 +1625,7 @@ end;
 
 
 
-Procedure TElectionOfficial.Setname(AIndex : Integer; AValue : String); 
+Procedure TElectionOfficial.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1635,7 +1635,7 @@ end;
 
 
 
-Procedure TElectionOfficial.SetofficePhoneNumber(AIndex : Integer; AValue : String); 
+Procedure TElectionOfficial.SetofficePhoneNumber(AIndex : Integer; const AValue : String); 
 
 begin
   If (FofficePhoneNumber=AValue) then exit;
@@ -1645,7 +1645,7 @@ end;
 
 
 
-Procedure TElectionOfficial.Settitle(AIndex : Integer; AValue : String); 
+Procedure TElectionOfficial.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1672,7 +1672,7 @@ end;
 
 
 
-Procedure TElectionsQueryResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TElectionsQueryResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1702,7 +1702,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TElectoralDistrict.Setid(AIndex : Integer; AValue : String); 
+Procedure TElectoralDistrict.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1712,7 +1712,7 @@ end;
 
 
 
-Procedure TElectoralDistrict.Setname(AIndex : Integer; AValue : String); 
+Procedure TElectoralDistrict.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1722,7 +1722,7 @@ end;
 
 
 
-Procedure TElectoralDistrict.Setscope(AIndex : Integer; AValue : String); 
+Procedure TElectoralDistrict.Setscope(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fscope=AValue) then exit;
@@ -1749,7 +1749,7 @@ end;
 
 
 
-Procedure TGeographicDivision.Setname(AIndex : Integer; AValue : String); 
+Procedure TGeographicDivision.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1790,7 +1790,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOffice.SetdivisionId(AIndex : Integer; AValue : String); 
+Procedure TOffice.SetdivisionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdivisionId=AValue) then exit;
@@ -1810,7 +1810,7 @@ end;
 
 
 
-Procedure TOffice.Setname(AIndex : Integer; AValue : String); 
+Procedure TOffice.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1903,7 +1903,7 @@ end;
 
 
 
-Procedure TOfficial.Setname(AIndex : Integer; AValue : String); 
+Procedure TOfficial.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1913,7 +1913,7 @@ end;
 
 
 
-Procedure TOfficial.Setparty(AIndex : Integer; AValue : String); 
+Procedure TOfficial.Setparty(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fparty=AValue) then exit;
@@ -1933,7 +1933,7 @@ end;
 
 
 
-Procedure TOfficial.SetphotoUrl(AIndex : Integer; AValue : String); 
+Procedure TOfficial.SetphotoUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FphotoUrl=AValue) then exit;
@@ -1987,7 +1987,7 @@ end;
 
 
 
-Procedure TPollingLocation.SetendDate(AIndex : Integer; AValue : String); 
+Procedure TPollingLocation.SetendDate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendDate=AValue) then exit;
@@ -1997,7 +1997,7 @@ end;
 
 
 
-Procedure TPollingLocation.Setid(AIndex : Integer; AValue : String); 
+Procedure TPollingLocation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -2007,7 +2007,7 @@ end;
 
 
 
-Procedure TPollingLocation.Setname(AIndex : Integer; AValue : String); 
+Procedure TPollingLocation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2017,7 +2017,7 @@ end;
 
 
 
-Procedure TPollingLocation.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TPollingLocation.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -2027,7 +2027,7 @@ end;
 
 
 
-Procedure TPollingLocation.SetpollingHours(AIndex : Integer; AValue : String); 
+Procedure TPollingLocation.SetpollingHours(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpollingHours=AValue) then exit;
@@ -2047,7 +2047,7 @@ end;
 
 
 
-Procedure TPollingLocation.SetstartDate(AIndex : Integer; AValue : String); 
+Procedure TPollingLocation.SetstartDate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartDate=AValue) then exit;
@@ -2057,7 +2057,7 @@ end;
 
 
 
-Procedure TPollingLocation.SetvoterServices(AIndex : Integer; AValue : String); 
+Procedure TPollingLocation.SetvoterServices(AIndex : Integer; const AValue : String); 
 
 begin
   If (FvoterServices=AValue) then exit;
@@ -2174,7 +2174,7 @@ end;
 
 
 
-Procedure TRepresentativeInfoResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TRepresentativeInfoResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2235,7 +2235,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSimpleAddressType.Setcity(AIndex : Integer; AValue : String); 
+Procedure TSimpleAddressType.Setcity(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcity=AValue) then exit;
@@ -2245,7 +2245,7 @@ end;
 
 
 
-Procedure TSimpleAddressType.Setline1(AIndex : Integer; AValue : String); 
+Procedure TSimpleAddressType.Setline1(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fline1=AValue) then exit;
@@ -2255,7 +2255,7 @@ end;
 
 
 
-Procedure TSimpleAddressType.Setline2(AIndex : Integer; AValue : String); 
+Procedure TSimpleAddressType.Setline2(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fline2=AValue) then exit;
@@ -2265,7 +2265,7 @@ end;
 
 
 
-Procedure TSimpleAddressType.Setline3(AIndex : Integer; AValue : String); 
+Procedure TSimpleAddressType.Setline3(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fline3=AValue) then exit;
@@ -2275,7 +2275,7 @@ end;
 
 
 
-Procedure TSimpleAddressType.SetlocationName(AIndex : Integer; AValue : String); 
+Procedure TSimpleAddressType.SetlocationName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlocationName=AValue) then exit;
@@ -2285,7 +2285,7 @@ end;
 
 
 
-Procedure TSimpleAddressType.Setstate(AIndex : Integer; AValue : String); 
+Procedure TSimpleAddressType.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -2295,7 +2295,7 @@ end;
 
 
 
-Procedure TSimpleAddressType.Setzip(AIndex : Integer; AValue : String); 
+Procedure TSimpleAddressType.Setzip(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzip=AValue) then exit;
@@ -2312,7 +2312,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSource.Setname(AIndex : Integer; AValue : String); 
+Procedure TSource.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2379,7 +2379,7 @@ end;
 
 
 
-Procedure TVoterInfoResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TVoterInfoResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2419,7 +2419,7 @@ end;
 
 
 
-Procedure TVoterInfoResponse.SetprecinctId(AIndex : Integer; AValue : String); 
+Procedure TVoterInfoResponse.SetprecinctId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprecinctId=AValue) then exit;

packages/googleapi/src/googlecloudlatencytest.pp

@@ -73,7 +73,7 @@ type
     FtestValue : String;
   Protected
     //Property setters
-    Procedure SettestValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SettestValue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property testValue : String Index 0 Read FtestValue Write SettestValue;
@@ -91,7 +91,7 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -111,8 +111,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property _label : String Index 0 Read F_label Write Set_label;
@@ -158,7 +158,7 @@ type
     FtestValue : String;
   Protected
     //Property setters
-    Procedure SettestValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SettestValue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property testValue : String Index 0 Read FtestValue Write SettestValue;
@@ -176,8 +176,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property _label : String Index 0 Read F_label Write Set_label;
@@ -273,7 +273,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAggregatedStatsReply.SettestValue(AIndex : Integer; AValue : String); 
+Procedure TAggregatedStatsReply.SettestValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtestValue=AValue) then exit;
@@ -290,7 +290,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDoubleValue.Set_label(AIndex : Integer; AValue : String); 
+Procedure TDoubleValue.Set_label(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -328,7 +328,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TIntValue.Set_label(AIndex : Integer; AValue : String); 
+Procedure TIntValue.Set_label(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -338,7 +338,7 @@ end;
 
 
 
-Procedure TIntValue.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TIntValue.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -428,7 +428,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStatsReply.SettestValue(AIndex : Integer; AValue : String); 
+Procedure TStatsReply.SettestValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtestValue=AValue) then exit;
@@ -445,7 +445,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStringValue.Set_label(AIndex : Integer; AValue : String); 
+Procedure TStringValue.Set_label(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -455,7 +455,7 @@ end;
 
 
 
-Procedure TStringValue.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TStringValue.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;

packages/googleapi/src/googlecloudmonitoring.pp

@@ -86,7 +86,7 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -102,7 +102,7 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -120,9 +120,9 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmetrics(AIndex : Integer; AValue : TListMetricDescriptorsResponseTypemetricsArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -144,7 +144,7 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -164,8 +164,8 @@ type
     Fyoungest : TDatetime;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setoldest(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Settimeseries(AIndex : Integer; AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray); virtual;
     Procedure Setyoungest(AIndex : Integer; AValue : TDatetime); virtual;
@@ -192,7 +192,7 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -212,8 +212,8 @@ type
     Fyoungest : TDatetime;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setoldest(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Settimeseries(AIndex : Integer; AValue : TListTimeseriesResponseTypetimeseriesArray); virtual;
     Procedure Setyoungest(AIndex : Integer; AValue : TDatetime); virtual;
@@ -244,10 +244,10 @@ type
     FtypeDescriptor : TMetricDescriptorTypeDescriptor;
   Protected
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlabels(AIndex : Integer; AValue : TMetricDescriptorTypelabelsArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setproject(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setproject(AIndex : Integer; const AValue : String); virtual;
     Procedure SettypeDescriptor(AIndex : Integer; AValue : TMetricDescriptorTypeDescriptor); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -273,8 +273,8 @@ type
     Fkey : String;
   Protected
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -292,8 +292,8 @@ type
     FvalueType : String;
   Protected
     //Property setters
-    Procedure SetmetricType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetvalueType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmetricType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property metricType : String Index 0 Read FmetricType Write SetmetricType;
@@ -321,9 +321,9 @@ type
     Procedure SetdistributionValue(AIndex : Integer; AValue : TPointDistribution); virtual;
     Procedure SetdoubleValue(AIndex : Integer; AValue : double); virtual;
     Procedure Set_end(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setint64Value(AIndex : Integer; AValue : String); virtual;
+    Procedure Setint64Value(AIndex : Integer; const AValue : String); virtual;
     Procedure Setstart(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetstringValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property boolValue : boolean Index 0 Read FboolValue Write SetboolValue;
@@ -373,7 +373,7 @@ type
     FupperBound : double;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
     Procedure SetlowerBound(AIndex : Integer; AValue : double); virtual;
     Procedure SetupperBound(AIndex : Integer; AValue : double); virtual;
   Public
@@ -394,7 +394,7 @@ type
     FlowerBound : double;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
     Procedure SetlowerBound(AIndex : Integer; AValue : double); virtual;
   Public
   Published
@@ -413,7 +413,7 @@ type
     FupperBound : double;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
     Procedure SetupperBound(AIndex : Integer; AValue : double); virtual;
   Public
   Published
@@ -471,8 +471,8 @@ type
   Protected
     //Property setters
     Procedure Setlabels(AIndex : Integer; AValue : TTimeseriesDescriptorTypelabels); virtual;
-    Procedure Setmetric(AIndex : Integer; AValue : String); virtual;
-    Procedure Setproject(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setproject(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property labels : TTimeseriesDescriptorTypelabels Index 0 Read Flabels Write Setlabels;
@@ -491,8 +491,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -565,7 +565,7 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -706,7 +706,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TDeleteMetricDescriptorResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDeleteMetricDescriptorResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -723,7 +723,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListMetricDescriptorsRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListMetricDescriptorsRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -740,7 +740,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListMetricDescriptorsResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListMetricDescriptorsResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -760,7 +760,7 @@ end;
 
 
 
-Procedure TListMetricDescriptorsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListMetricDescriptorsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -790,7 +790,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesDescriptorsRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListTimeseriesDescriptorsRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -807,7 +807,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesDescriptorsResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListTimeseriesDescriptorsResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -817,7 +817,7 @@ end;
 
 
 
-Procedure TListTimeseriesDescriptorsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListTimeseriesDescriptorsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -877,7 +877,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListTimeseriesRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -894,7 +894,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTimeseriesResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListTimeseriesResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -904,7 +904,7 @@ end;
 
 
 
-Procedure TListTimeseriesResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListTimeseriesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -964,7 +964,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetricDescriptor.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TMetricDescriptor.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -984,7 +984,7 @@ end;
 
 
 
-Procedure TMetricDescriptor.Setname(AIndex : Integer; AValue : String); 
+Procedure TMetricDescriptor.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -994,7 +994,7 @@ end;
 
 
 
-Procedure TMetricDescriptor.Setproject(AIndex : Integer; AValue : String); 
+Procedure TMetricDescriptor.Setproject(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fproject=AValue) then exit;
@@ -1034,7 +1034,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetricDescriptorLabelDescriptor.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TMetricDescriptorLabelDescriptor.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1044,7 +1044,7 @@ end;
 
 
 
-Procedure TMetricDescriptorLabelDescriptor.Setkey(AIndex : Integer; AValue : String); 
+Procedure TMetricDescriptorLabelDescriptor.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1061,7 +1061,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetricDescriptorTypeDescriptor.SetmetricType(AIndex : Integer; AValue : String); 
+Procedure TMetricDescriptorTypeDescriptor.SetmetricType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmetricType=AValue) then exit;
@@ -1071,7 +1071,7 @@ end;
 
 
 
-Procedure TMetricDescriptorTypeDescriptor.SetvalueType(AIndex : Integer; AValue : String); 
+Procedure TMetricDescriptorTypeDescriptor.SetvalueType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FvalueType=AValue) then exit;
@@ -1128,7 +1128,7 @@ end;
 
 
 
-Procedure TPoint.Setint64Value(AIndex : Integer; AValue : String); 
+Procedure TPoint.Setint64Value(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fint64Value=AValue) then exit;
@@ -1148,7 +1148,7 @@ end;
 
 
 
-Procedure TPoint.SetstringValue(AIndex : Integer; AValue : String); 
+Procedure TPoint.SetstringValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstringValue=AValue) then exit;
@@ -1226,7 +1226,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointDistributionBucket.Setcount(AIndex : Integer; AValue : String); 
+Procedure TPointDistributionBucket.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -1263,7 +1263,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointDistributionOverflowBucket.Setcount(AIndex : Integer; AValue : String); 
+Procedure TPointDistributionOverflowBucket.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -1290,7 +1290,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointDistributionUnderflowBucket.Setcount(AIndex : Integer; AValue : String); 
+Procedure TPointDistributionUnderflowBucket.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -1380,7 +1380,7 @@ end;
 
 
 
-Procedure TTimeseriesDescriptor.Setmetric(AIndex : Integer; AValue : String); 
+Procedure TTimeseriesDescriptor.Setmetric(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmetric=AValue) then exit;
@@ -1390,7 +1390,7 @@ end;
 
 
 
-Procedure TTimeseriesDescriptor.Setproject(AIndex : Integer; AValue : String); 
+Procedure TTimeseriesDescriptor.Setproject(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fproject=AValue) then exit;
@@ -1407,7 +1407,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTimeseriesDescriptorLabel.Setkey(AIndex : Integer; AValue : String); 
+Procedure TTimeseriesDescriptorLabel.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1417,7 +1417,7 @@ end;
 
 
 
-Procedure TTimeseriesDescriptorLabel.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TTimeseriesDescriptorLabel.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1514,7 +1514,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWriteTimeseriesResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TWriteTimeseriesResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googlecomputeaccounts.pp

@@ -104,13 +104,13 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; 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 Setmembers(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(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;
@@ -140,11 +140,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TGroupListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -211,7 +211,7 @@ type
   Protected
     //Property setters
     Procedure SetgroupViews(AIndex : Integer; AValue : TLinuxAccountViewsTypegroupViewsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetuserViews(AIndex : Integer; AValue : TLinuxAccountViewsTypeuserViewsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -269,7 +269,7 @@ type
   Protected
     //Property setters
     Procedure Setgid(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetgroupName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetgroupName(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmembers(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -297,12 +297,12 @@ type
     Fusername : String;
   Protected
     //Property setters
-    Procedure Setgecos(AIndex : Integer; AValue : String); virtual;
+    Procedure Setgecos(AIndex : Integer; const AValue : String); virtual;
     Procedure Setgid(AIndex : Integer; AValue : integer); virtual;
-    Procedure SethomeDirectory(AIndex : Integer; AValue : String); virtual;
-    Procedure Setshell(AIndex : Integer; AValue : String); virtual;
+    Procedure SethomeDirectory(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setshell(AIndex : Integer; const AValue : String); virtual;
     Procedure Setuid(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setusername(AIndex : Integer; AValue : String); virtual;
+    Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property gecos : String Index 0 Read Fgecos Write Setgecos;
@@ -325,9 +325,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -366,8 +366,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -386,9 +386,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); 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;
@@ -431,28 +431,28 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SetclientOperationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
-    Procedure SethttpErrorMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
     Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinsertTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : String); 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; AValue : integer); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); 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; AValue : TOperationTypewarningsArray); virtual;
-    Procedure Setzone(AIndex : Integer; 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;
@@ -497,11 +497,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -529,11 +529,11 @@ type
     Fkey : String;
   Protected
     //Property setters
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetexpirationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetexpirationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
@@ -561,15 +561,15 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Setgroups(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setowner(AIndex : Integer; 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 Setowner(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpublicKeys(AIndex : Integer; AValue : TUserTypepublicKeysArray); virtual;
-    Procedure SetselfLink(AIndex : Integer; 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;
@@ -601,11 +601,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TUserListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -829,7 +829,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroup.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TGroup.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -839,7 +839,7 @@ end;
 
 
 
-Procedure TGroup.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TGroup.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -849,7 +849,7 @@ end;
 
 
 
-Procedure TGroup.Setid(AIndex : Integer; AValue : String); 
+Procedure TGroup.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -859,7 +859,7 @@ end;
 
 
 
-Procedure TGroup.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroup.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -879,7 +879,7 @@ end;
 
 
 
-Procedure TGroup.Setname(AIndex : Integer; AValue : String); 
+Procedure TGroup.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -889,7 +889,7 @@ end;
 
 
 
-Procedure TGroup.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TGroup.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -919,7 +919,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupList.Setid(AIndex : Integer; AValue : String); 
+Procedure TGroupList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -939,7 +939,7 @@ end;
 
 
 
-Procedure TGroupList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -949,7 +949,7 @@ end;
 
 
 
-Procedure TGroupList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TGroupList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -959,7 +959,7 @@ end;
 
 
 
-Procedure TGroupList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TGroupList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1059,7 +1059,7 @@ end;
 
 
 
-Procedure TLinuxAccountViews.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLinuxAccountViews.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1144,7 +1144,7 @@ end;
 
 
 
-Procedure TLinuxGroupView.SetgroupName(AIndex : Integer; AValue : String); 
+Procedure TLinuxGroupView.SetgroupName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgroupName=AValue) then exit;
@@ -1184,7 +1184,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLinuxUserView.Setgecos(AIndex : Integer; AValue : String); 
+Procedure TLinuxUserView.Setgecos(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fgecos=AValue) then exit;
@@ -1204,7 +1204,7 @@ end;
 
 
 
-Procedure TLinuxUserView.SethomeDirectory(AIndex : Integer; AValue : String); 
+Procedure TLinuxUserView.SethomeDirectory(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhomeDirectory=AValue) then exit;
@@ -1214,7 +1214,7 @@ end;
 
 
 
-Procedure TLinuxUserView.Setshell(AIndex : Integer; AValue : String); 
+Procedure TLinuxUserView.Setshell(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fshell=AValue) then exit;
@@ -1234,7 +1234,7 @@ end;
 
 
 
-Procedure TLinuxUserView.Setusername(AIndex : Integer; AValue : String); 
+Procedure TLinuxUserView.Setusername(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fusername=AValue) then exit;
@@ -1251,7 +1251,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1261,7 +1261,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -1271,7 +1271,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1318,7 +1318,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1328,7 +1328,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1345,7 +1345,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1365,7 +1365,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1395,7 +1395,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -1405,7 +1405,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1415,7 +1415,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1435,7 +1435,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -1455,7 +1455,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1465,7 +1465,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -1475,7 +1475,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1485,7 +1485,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1495,7 +1495,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -1515,7 +1515,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -1525,7 +1525,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1535,7 +1535,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1545,7 +1545,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1555,7 +1555,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1565,7 +1565,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetId=AValue) then exit;
@@ -1575,7 +1575,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -1585,7 +1585,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -1605,7 +1605,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -1635,7 +1635,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationList.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1655,7 +1655,7 @@ end;
 
 
 
-Procedure TOperationList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1665,7 +1665,7 @@ end;
 
 
 
-Procedure TOperationList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1675,7 +1675,7 @@ end;
 
 
 
-Procedure TOperationList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1705,7 +1705,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPublicKey.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TPublicKey.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1715,7 +1715,7 @@ end;
 
 
 
-Procedure TPublicKey.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TPublicKey.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1725,7 +1725,7 @@ end;
 
 
 
-Procedure TPublicKey.SetexpirationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TPublicKey.SetexpirationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FexpirationTimestamp=AValue) then exit;
@@ -1735,7 +1735,7 @@ end;
 
 
 
-Procedure TPublicKey.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TPublicKey.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -1745,7 +1745,7 @@ end;
 
 
 
-Procedure TPublicKey.Setkey(AIndex : Integer; AValue : String); 
+Procedure TPublicKey.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1762,7 +1762,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUser.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TUser.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1772,7 +1772,7 @@ end;
 
 
 
-Procedure TUser.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TUser.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1792,7 +1792,7 @@ end;
 
 
 
-Procedure TUser.Setid(AIndex : Integer; AValue : String); 
+Procedure TUser.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1802,7 +1802,7 @@ end;
 
 
 
-Procedure TUser.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUser.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1812,7 +1812,7 @@ end;
 
 
 
-Procedure TUser.Setname(AIndex : Integer; AValue : String); 
+Procedure TUser.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1822,7 +1822,7 @@ end;
 
 
 
-Procedure TUser.Setowner(AIndex : Integer; AValue : String); 
+Procedure TUser.Setowner(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fowner=AValue) then exit;
@@ -1842,7 +1842,7 @@ end;
 
 
 
-Procedure TUser.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TUser.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1873,7 +1873,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUserList.Setid(AIndex : Integer; AValue : String); 
+Procedure TUserList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1893,7 +1893,7 @@ end;
 
 
 
-Procedure TUserList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUserList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1903,7 +1903,7 @@ end;
 
 
 
-Procedure TUserList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TUserList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1913,7 +1913,7 @@ end;
 
 
 
-Procedure TUserList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TUserList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;

packages/googleapi/src/googlecontainer.pp

@@ -76,23 +76,23 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SetclusterApiVersion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontainerIpv4Cidr(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclusterApiVersion(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontainerIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure SetenableCloudLogging(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setendpoint(AIndex : Integer; AValue : String); virtual;
+    Procedure Setendpoint(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmasterAuth(AIndex : Integer; AValue : TMasterAuth); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnodeConfig(AIndex : Integer; AValue : TNodeConfig); virtual;
     Procedure SetnodeRoutingPrefixSize(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumNodes(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetservicesIpv4Cidr(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure Setzone(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetservicesIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property clusterApiVersion : String Index 0 Read FclusterApiVersion Write SetclusterApiVersion;
@@ -222,9 +222,9 @@ type
     Fuser : String;
   Protected
     //Property setters
-    Procedure SetbearerToken(AIndex : Integer; AValue : String); virtual;
-    Procedure Setpassword(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbearerToken(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property bearerToken : String Index 0 Read FbearerToken Write SetbearerToken;
@@ -244,9 +244,9 @@ type
     FsourceImage : String;
   Protected
     //Property setters
-    Procedure SetmachineType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
     Procedure SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigTypeserviceAccountsArray); virtual;
-    Procedure SetsourceImage(AIndex : Integer; AValue : String); virtual;
+    Procedure SetsourceImage(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -275,14 +275,14 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SeterrorMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure Settarget(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setzone(AIndex : Integer; AValue : String); virtual;
+    Procedure SeterrorMessage(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property errorMessage : String Index 0 Read FerrorMessage Write SeterrorMessage;
@@ -306,7 +306,7 @@ type
     Fscopes : TStringArray;
   Protected
     //Property setters
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
     Procedure Setscopes(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -500,7 +500,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TCluster.SetclusterApiVersion(AIndex : Integer; AValue : String); 
+Procedure TCluster.SetclusterApiVersion(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclusterApiVersion=AValue) then exit;
@@ -510,7 +510,7 @@ end;
 
 
 
-Procedure TCluster.SetcontainerIpv4Cidr(AIndex : Integer; AValue : String); 
+Procedure TCluster.SetcontainerIpv4Cidr(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerIpv4Cidr=AValue) then exit;
@@ -520,7 +520,7 @@ end;
 
 
 
-Procedure TCluster.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TCluster.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -530,7 +530,7 @@ end;
 
 
 
-Procedure TCluster.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TCluster.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -550,7 +550,7 @@ end;
 
 
 
-Procedure TCluster.Setendpoint(AIndex : Integer; AValue : String); 
+Procedure TCluster.Setendpoint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fendpoint=AValue) then exit;
@@ -570,7 +570,7 @@ end;
 
 
 
-Procedure TCluster.Setname(AIndex : Integer; AValue : String); 
+Procedure TCluster.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -580,7 +580,7 @@ end;
 
 
 
-Procedure TCluster.Setnetwork(AIndex : Integer; AValue : String); 
+Procedure TCluster.Setnetwork(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnetwork=AValue) then exit;
@@ -620,7 +620,7 @@ end;
 
 
 
-Procedure TCluster.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TCluster.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -630,7 +630,7 @@ end;
 
 
 
-Procedure TCluster.SetservicesIpv4Cidr(AIndex : Integer; AValue : String); 
+Procedure TCluster.SetservicesIpv4Cidr(AIndex : Integer; const AValue : String); 
 
 begin
   If (FservicesIpv4Cidr=AValue) then exit;
@@ -640,7 +640,7 @@ end;
 
 
 
-Procedure TCluster.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TCluster.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -650,7 +650,7 @@ end;
 
 
 
-Procedure TCluster.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TCluster.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -660,7 +660,7 @@ end;
 
 
 
-Procedure TCluster.Setzone(AIndex : Integer; AValue : String); 
+Procedure TCluster.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -814,7 +814,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMasterAuth.SetbearerToken(AIndex : Integer; AValue : String); 
+Procedure TMasterAuth.SetbearerToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbearerToken=AValue) then exit;
@@ -824,7 +824,7 @@ end;
 
 
 
-Procedure TMasterAuth.Setpassword(AIndex : Integer; AValue : String); 
+Procedure TMasterAuth.Setpassword(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpassword=AValue) then exit;
@@ -834,7 +834,7 @@ end;
 
 
 
-Procedure TMasterAuth.Setuser(AIndex : Integer; AValue : String); 
+Procedure TMasterAuth.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -851,7 +851,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TNodeConfig.SetmachineType(AIndex : Integer; AValue : String); 
+Procedure TNodeConfig.SetmachineType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmachineType=AValue) then exit;
@@ -871,7 +871,7 @@ end;
 
 
 
-Procedure TNodeConfig.SetsourceImage(AIndex : Integer; AValue : String); 
+Procedure TNodeConfig.SetsourceImage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsourceImage=AValue) then exit;
@@ -901,7 +901,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SeterrorMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SeterrorMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FerrorMessage=AValue) then exit;
@@ -911,7 +911,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -921,7 +921,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -931,7 +931,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -941,7 +941,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -951,7 +951,7 @@ end;
 
 
 
-Procedure TOperation.Settarget(AIndex : Integer; AValue : String); 
+Procedure TOperation.Settarget(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftarget=AValue) then exit;
@@ -961,7 +961,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -971,7 +971,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -988,7 +988,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TServiceAccount.Setemail(AIndex : Integer; AValue : String); 
+Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;

packages/googleapi/src/googlecoordinate.pp

@@ -81,9 +81,9 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure SetcustomFieldId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcustomFieldId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property customFieldId : String Index 0 Read FcustomFieldId Write SetcustomFieldId;
@@ -110,11 +110,11 @@ type
     //Property setters
     Procedure Setenabled(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setenumitems(AIndex : Integer; AValue : TCustomFieldDefTypeenumitemsArray); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; 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 SetrequiredForCheckout(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -142,7 +142,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TCustomFieldDefListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -165,7 +165,7 @@ type
   Protected
     //Property setters
     Procedure SetcustomField(AIndex : Integer; AValue : TCustomFieldsTypecustomFieldArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -189,8 +189,8 @@ type
   Protected
     //Property setters
     Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property active : boolean Index 0 Read Factive Write Setactive;
@@ -211,9 +211,9 @@ type
     Fstate : TJobState;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetjobChange(AIndex : Integer; AValue : TJobTypejobChangeArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TJobState); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -239,9 +239,9 @@ type
     Ftimestamp : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TJobState); virtual;
-    Procedure Settimestamp(AIndex : Integer; AValue : String); virtual;
+    Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -262,8 +262,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TJobListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -293,15 +293,15 @@ type
     Ftitle : String;
   Protected
     //Property setters
-    Procedure Setassignee(AIndex : Integer; AValue : String); virtual;
+    Procedure Setassignee(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcustomFields(AIndex : Integer; AValue : TCustomFields); virtual;
-    Procedure SetcustomerName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomerPhoneNumber(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcustomerName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomerPhoneNumber(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlocation(AIndex : Integer; AValue : TLocation); virtual;
     Procedure Setnote(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setprogress(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setprogress(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -333,7 +333,7 @@ type
   Protected
     //Property setters
     Procedure SetaddressLine(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlat(AIndex : Integer; AValue : double); virtual;
     Procedure Setlng(AIndex : Integer; AValue : double); virtual;
     //2.6.4. bug workaround
@@ -362,8 +362,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TLocationListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -391,9 +391,9 @@ type
     Flongitude : double;
   Protected
     //Property setters
-    Procedure SetcollectionTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcollectionTime(AIndex : Integer; const AValue : String); virtual;
     Procedure SetconfidenceRadius(AIndex : Integer; AValue : double); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
     Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
   Public
@@ -420,10 +420,10 @@ type
   Protected
     //Property setters
     Procedure SetallDay(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setduration(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
+    Procedure Setduration(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property allDay : boolean Index 0 Read FallDay Write SetallDay;
@@ -445,9 +445,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; 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;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -467,7 +467,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTeamListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -490,9 +490,9 @@ type
     FpreviousPageToken : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpreviousPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpreviousPageToken(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -511,8 +511,8 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -531,7 +531,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TWorkerListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -793,7 +793,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TCustomField.SetcustomFieldId(AIndex : Integer; AValue : String); 
+Procedure TCustomField.SetcustomFieldId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomFieldId=AValue) then exit;
@@ -803,7 +803,7 @@ end;
 
 
 
-Procedure TCustomField.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomField.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -813,7 +813,7 @@ end;
 
 
 
-Procedure TCustomField.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TCustomField.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -850,7 +850,7 @@ end;
 
 
 
-Procedure TCustomFieldDef.Setid(AIndex : Integer; AValue : String); 
+Procedure TCustomFieldDef.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -860,7 +860,7 @@ end;
 
 
 
-Procedure TCustomFieldDef.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomFieldDef.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -870,7 +870,7 @@ end;
 
 
 
-Procedure TCustomFieldDef.Setname(AIndex : Integer; AValue : String); 
+Procedure TCustomFieldDef.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -890,7 +890,7 @@ end;
 
 
 
-Procedure TCustomFieldDef.Set_type(AIndex : Integer; AValue : String); 
+Procedure TCustomFieldDef.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -941,7 +941,7 @@ end;
 
 
 
-Procedure TCustomFieldDefListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomFieldDefListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -981,7 +981,7 @@ end;
 
 
 
-Procedure TCustomFields.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomFields.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1021,7 +1021,7 @@ end;
 
 
 
-Procedure TEnumItemDef.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEnumItemDef.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1031,7 +1031,7 @@ end;
 
 
 
-Procedure TEnumItemDef.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TEnumItemDef.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1048,7 +1048,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TJob.Setid(AIndex : Integer; AValue : String); 
+Procedure TJob.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1068,7 +1068,7 @@ end;
 
 
 
-Procedure TJob.Setkind(AIndex : Integer; AValue : String); 
+Procedure TJob.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1108,7 +1108,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TJobChange.Setkind(AIndex : Integer; AValue : String); 
+Procedure TJobChange.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1128,7 +1128,7 @@ end;
 
 
 
-Procedure TJobChange.Settimestamp(AIndex : Integer; AValue : String); 
+Procedure TJobChange.Settimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftimestamp=AValue) then exit;
@@ -1155,7 +1155,7 @@ end;
 
 
 
-Procedure TJobListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TJobListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1165,7 +1165,7 @@ end;
 
 
 
-Procedure TJobListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TJobListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1195,7 +1195,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TJobState.Setassignee(AIndex : Integer; AValue : String); 
+Procedure TJobState.Setassignee(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fassignee=AValue) then exit;
@@ -1215,7 +1215,7 @@ end;
 
 
 
-Procedure TJobState.SetcustomerName(AIndex : Integer; AValue : String); 
+Procedure TJobState.SetcustomerName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerName=AValue) then exit;
@@ -1225,7 +1225,7 @@ end;
 
 
 
-Procedure TJobState.SetcustomerPhoneNumber(AIndex : Integer; AValue : String); 
+Procedure TJobState.SetcustomerPhoneNumber(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerPhoneNumber=AValue) then exit;
@@ -1235,7 +1235,7 @@ end;
 
 
 
-Procedure TJobState.Setkind(AIndex : Integer; AValue : String); 
+Procedure TJobState.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1265,7 +1265,7 @@ end;
 
 
 
-Procedure TJobState.Setprogress(AIndex : Integer; AValue : String); 
+Procedure TJobState.Setprogress(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fprogress=AValue) then exit;
@@ -1275,7 +1275,7 @@ end;
 
 
 
-Procedure TJobState.Settitle(AIndex : Integer; AValue : String); 
+Procedure TJobState.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1315,7 +1315,7 @@ end;
 
 
 
-Procedure TLocation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLocation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1375,7 +1375,7 @@ end;
 
 
 
-Procedure TLocationListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLocationListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1385,7 +1385,7 @@ end;
 
 
 
-Procedure TLocationListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TLocationListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1425,7 +1425,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLocationRecord.SetcollectionTime(AIndex : Integer; AValue : String); 
+Procedure TLocationRecord.SetcollectionTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcollectionTime=AValue) then exit;
@@ -1445,7 +1445,7 @@ end;
 
 
 
-Procedure TLocationRecord.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLocationRecord.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1492,7 +1492,7 @@ end;
 
 
 
-Procedure TSchedule.Setduration(AIndex : Integer; AValue : String); 
+Procedure TSchedule.Setduration(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fduration=AValue) then exit;
@@ -1502,7 +1502,7 @@ end;
 
 
 
-Procedure TSchedule.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TSchedule.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1512,7 +1512,7 @@ end;
 
 
 
-Procedure TSchedule.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSchedule.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1522,7 +1522,7 @@ end;
 
 
 
-Procedure TSchedule.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TSchedule.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1539,7 +1539,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTeam.Setid(AIndex : Integer; AValue : String); 
+Procedure TTeam.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1549,7 +1549,7 @@ end;
 
 
 
-Procedure TTeam.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTeam.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1559,7 +1559,7 @@ end;
 
 
 
-Procedure TTeam.Setname(AIndex : Integer; AValue : String); 
+Procedure TTeam.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1586,7 +1586,7 @@ end;
 
 
 
-Procedure TTeamListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTeamListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1616,7 +1616,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTokenPagination.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTokenPagination.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1626,7 +1626,7 @@ end;
 
 
 
-Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1636,7 +1636,7 @@ end;
 
 
 
-Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; AValue : String); 
+Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpreviousPageToken=AValue) then exit;
@@ -1653,7 +1653,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWorker.Setid(AIndex : Integer; AValue : String); 
+Procedure TWorker.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1663,7 +1663,7 @@ end;
 
 
 
-Procedure TWorker.Setkind(AIndex : Integer; AValue : String); 
+Procedure TWorker.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1690,7 +1690,7 @@ end;
 
 
 
-Procedure TWorkerListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TWorkerListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googlecustomsearch.pp

@@ -64,9 +64,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setanchor(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlabel_with_op(AIndex : Integer; AValue : String); virtual;
+    Procedure Setanchor(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlabel_with_op(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property anchor : String Index 0 Read Fanchor Write Setanchor;
@@ -86,7 +86,7 @@ type
   Protected
     //Property setters
     Procedure Setfacets(AIndex : Integer; AValue : TContextTypefacetsArray); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -110,10 +110,10 @@ type
     Furl : String;
   Protected
     //Property setters
-    Procedure SethtmlTitle(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlink(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure SethtmlTitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property htmlTitle : String Index 0 Read FhtmlTitle Write SethtmlTitle;
@@ -135,7 +135,7 @@ type
   Protected
     //Property setters
     Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setsource(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
     Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -160,11 +160,11 @@ type
   Protected
     //Property setters
     Procedure SetbodyLines(AIndex : Integer; AValue : TPromotionTypebodyLinesArray); virtual;
-    Procedure SetdisplayLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SethtmlTitle(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdisplayLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethtmlTitle(AIndex : Integer; const AValue : String); virtual;
     Procedure Setimage(AIndex : Integer; AValue : TPromotionTypeimage); virtual;
-    Procedure Setlink(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -226,42 +226,42 @@ type
   Protected
     //Property setters
     Procedure Setcount(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setcr(AIndex : Integer; AValue : String); virtual;
-    Procedure Setcref(AIndex : Integer; AValue : String); virtual;
-    Procedure Setcx(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdateRestrict(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdisableCnTwTranslation(AIndex : Integer; AValue : String); virtual;
-    Procedure SetexactTerms(AIndex : Integer; AValue : String); virtual;
-    Procedure SetexcludeTerms(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfileType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfilter(AIndex : Integer; AValue : String); virtual;
-    Procedure Setgl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetgoogleHost(AIndex : Integer; AValue : String); virtual;
-    Procedure SethighRange(AIndex : Integer; AValue : String); virtual;
-    Procedure Sethl(AIndex : Integer; AValue : String); virtual;
-    Procedure Sethq(AIndex : Integer; AValue : String); virtual;
-    Procedure SetimgColorType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetimgDominantColor(AIndex : Integer; AValue : String); virtual;
-    Procedure SetimgSize(AIndex : Integer; AValue : String); virtual;
-    Procedure SetimgType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinputEncoding(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure SetlinkSite(AIndex : Integer; AValue : String); virtual;
-    Procedure SetlowRange(AIndex : Integer; AValue : String); virtual;
-    Procedure SetorTerms(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoutputEncoding(AIndex : Integer; AValue : String); virtual;
-    Procedure SetrelatedSite(AIndex : Integer; AValue : String); virtual;
-    Procedure Setrights(AIndex : Integer; AValue : String); virtual;
-    Procedure Setsafe(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsearchTerms(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsearchType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsiteSearch(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsiteSearchFilter(AIndex : Integer; AValue : String); virtual;
-    Procedure Setsort(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcr(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setcref(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setcx(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdateRestrict(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdisableCnTwTranslation(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetexactTerms(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetexcludeTerms(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfileType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfilter(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setgl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetgoogleHost(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethighRange(AIndex : Integer; const AValue : String); virtual;
+    Procedure Sethl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Sethq(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetimgColorType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetimgDominantColor(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetimgSize(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetimgType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetinputEncoding(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetlinkSite(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetlowRange(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetorTerms(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetoutputEncoding(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetrelatedSite(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setrights(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setsafe(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsearchTerms(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsearchType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsiteSearch(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsiteSearchFilter(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setsort(AIndex : Integer; const AValue : String); virtual;
     Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
     Procedure SetstartPage(AIndex : Integer; AValue : integer); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
-    Procedure SettotalResults(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettotalResults(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property count : integer Index 0 Read Fcount Write Setcount;
@@ -320,10 +320,10 @@ type
   Protected
     //Property setters
     Procedure SetbyteSize(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetcontextLink(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontextLink(AIndex : Integer; const AValue : String); virtual;
     Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
     Procedure SetthumbnailHeight(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetthumbnailLink(AIndex : Integer; AValue : String); virtual;
+    Procedure SetthumbnailLink(AIndex : Integer; const AValue : String); virtual;
     Procedure SetthumbnailWidth(AIndex : Integer; AValue : integer); virtual;
     Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
   Public
@@ -349,9 +349,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlabel_with_op(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlabel_with_op(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
@@ -397,21 +397,21 @@ type
     Ftitle : String;
   Protected
     //Property setters
-    Procedure SetcacheId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdisplayLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfileFormat(AIndex : Integer; AValue : String); virtual;
-    Procedure SetformattedUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SethtmlFormattedUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SethtmlSnippet(AIndex : Integer; AValue : String); virtual;
-    Procedure SethtmlTitle(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcacheId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdisplayLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfileFormat(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetformattedUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethtmlFormattedUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethtmlSnippet(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethtmlTitle(AIndex : Integer; const AValue : String); virtual;
     Procedure Setimage(AIndex : Integer; AValue : TResultTypeimage); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlabels(AIndex : Integer; AValue : TResultTypelabelsArray); virtual;
-    Procedure Setlink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmime(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmime(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpagemap(AIndex : Integer; AValue : TResultTypepagemap); virtual;
-    Procedure Setsnippet(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -462,10 +462,10 @@ type
     FtotalResults : String;
   Protected
     //Property setters
-    Procedure SetformattedSearchTime(AIndex : Integer; AValue : String); virtual;
-    Procedure SetformattedTotalResults(AIndex : Integer; AValue : String); virtual;
+    Procedure SetformattedSearchTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetformattedTotalResults(AIndex : Integer; const AValue : String); virtual;
     Procedure SetsearchTime(AIndex : Integer; AValue : double); virtual;
-    Procedure SettotalResults(AIndex : Integer; AValue : String); virtual;
+    Procedure SettotalResults(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property formattedSearchTime : String Index 0 Read FformattedSearchTime Write SetformattedSearchTime;
@@ -485,8 +485,8 @@ type
     FhtmlCorrectedQuery : String;
   Protected
     //Property setters
-    Procedure SetcorrectedQuery(AIndex : Integer; AValue : String); virtual;
-    Procedure SethtmlCorrectedQuery(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcorrectedQuery(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethtmlCorrectedQuery(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property correctedQuery : String Index 0 Read FcorrectedQuery Write SetcorrectedQuery;
@@ -505,8 +505,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Settemplate(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Settemplate(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property template : String Index 0 Read Ftemplate Write Settemplate;
@@ -532,7 +532,7 @@ type
     //Property setters
     Procedure Setcontext(AIndex : Integer; AValue : TContext); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TSearchTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpromotions(AIndex : Integer; AValue : TSearchTypepromotionsArray); virtual;
     Procedure Setqueries(AIndex : Integer; AValue : TSearchTypequeries); virtual;
     Procedure SetsearchInformation(AIndex : Integer; AValue : TSearchTypesearchInformation); virtual;
@@ -651,7 +651,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TContextTypefacetsItemItem.Setanchor(AIndex : Integer; AValue : String); 
+Procedure TContextTypefacetsItemItem.Setanchor(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fanchor=AValue) then exit;
@@ -661,7 +661,7 @@ end;
 
 
 
-Procedure TContextTypefacetsItemItem.Set_label(AIndex : Integer; AValue : String); 
+Procedure TContextTypefacetsItemItem.Set_label(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -671,7 +671,7 @@ end;
 
 
 
-Procedure TContextTypefacetsItemItem.Setlabel_with_op(AIndex : Integer; AValue : String); 
+Procedure TContextTypefacetsItemItem.Setlabel_with_op(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flabel_with_op=AValue) then exit;
@@ -709,7 +709,7 @@ end;
 
 
 
-Procedure TContext.Settitle(AIndex : Integer; AValue : String); 
+Procedure TContext.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -739,7 +739,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPromotionTypebodyLinesItem.SethtmlTitle(AIndex : Integer; AValue : String); 
+Procedure TPromotionTypebodyLinesItem.SethtmlTitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhtmlTitle=AValue) then exit;
@@ -749,7 +749,7 @@ end;
 
 
 
-Procedure TPromotionTypebodyLinesItem.Setlink(AIndex : Integer; AValue : String); 
+Procedure TPromotionTypebodyLinesItem.Setlink(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flink=AValue) then exit;
@@ -759,7 +759,7 @@ end;
 
 
 
-Procedure TPromotionTypebodyLinesItem.Settitle(AIndex : Integer; AValue : String); 
+Procedure TPromotionTypebodyLinesItem.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -769,7 +769,7 @@ end;
 
 
 
-Procedure TPromotionTypebodyLinesItem.Seturl(AIndex : Integer; AValue : String); 
+Procedure TPromotionTypebodyLinesItem.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -796,7 +796,7 @@ end;
 
 
 
-Procedure TPromotionTypeimage.Setsource(AIndex : Integer; AValue : String); 
+Procedure TPromotionTypeimage.Setsource(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsource=AValue) then exit;
@@ -833,7 +833,7 @@ end;
 
 
 
-Procedure TPromotion.SetdisplayLink(AIndex : Integer; AValue : String); 
+Procedure TPromotion.SetdisplayLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayLink=AValue) then exit;
@@ -843,7 +843,7 @@ end;
 
 
 
-Procedure TPromotion.SethtmlTitle(AIndex : Integer; AValue : String); 
+Procedure TPromotion.SethtmlTitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhtmlTitle=AValue) then exit;
@@ -863,7 +863,7 @@ end;
 
 
 
-Procedure TPromotion.Setlink(AIndex : Integer; AValue : String); 
+Procedure TPromotion.Setlink(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flink=AValue) then exit;
@@ -873,7 +873,7 @@ end;
 
 
 
-Procedure TPromotion.Settitle(AIndex : Integer; AValue : String); 
+Procedure TPromotion.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -913,7 +913,7 @@ end;
 
 
 
-Procedure TQuery.Setcr(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setcr(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcr=AValue) then exit;
@@ -923,7 +923,7 @@ end;
 
 
 
-Procedure TQuery.Setcref(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setcref(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcref=AValue) then exit;
@@ -933,7 +933,7 @@ end;
 
 
 
-Procedure TQuery.Setcx(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setcx(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcx=AValue) then exit;
@@ -943,7 +943,7 @@ end;
 
 
 
-Procedure TQuery.SetdateRestrict(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetdateRestrict(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdateRestrict=AValue) then exit;
@@ -953,7 +953,7 @@ end;
 
 
 
-Procedure TQuery.SetdisableCnTwTranslation(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetdisableCnTwTranslation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisableCnTwTranslation=AValue) then exit;
@@ -963,7 +963,7 @@ end;
 
 
 
-Procedure TQuery.SetexactTerms(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetexactTerms(AIndex : Integer; const AValue : String); 
 
 begin
   If (FexactTerms=AValue) then exit;
@@ -973,7 +973,7 @@ end;
 
 
 
-Procedure TQuery.SetexcludeTerms(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetexcludeTerms(AIndex : Integer; const AValue : String); 
 
 begin
   If (FexcludeTerms=AValue) then exit;
@@ -983,7 +983,7 @@ end;
 
 
 
-Procedure TQuery.SetfileType(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetfileType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfileType=AValue) then exit;
@@ -993,7 +993,7 @@ end;
 
 
 
-Procedure TQuery.Setfilter(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setfilter(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffilter=AValue) then exit;
@@ -1003,7 +1003,7 @@ end;
 
 
 
-Procedure TQuery.Setgl(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setgl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fgl=AValue) then exit;
@@ -1013,7 +1013,7 @@ end;
 
 
 
-Procedure TQuery.SetgoogleHost(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetgoogleHost(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgoogleHost=AValue) then exit;
@@ -1023,7 +1023,7 @@ end;
 
 
 
-Procedure TQuery.SethighRange(AIndex : Integer; AValue : String); 
+Procedure TQuery.SethighRange(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhighRange=AValue) then exit;
@@ -1033,7 +1033,7 @@ end;
 
 
 
-Procedure TQuery.Sethl(AIndex : Integer; AValue : String); 
+Procedure TQuery.Sethl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fhl=AValue) then exit;
@@ -1043,7 +1043,7 @@ end;
 
 
 
-Procedure TQuery.Sethq(AIndex : Integer; AValue : String); 
+Procedure TQuery.Sethq(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fhq=AValue) then exit;
@@ -1053,7 +1053,7 @@ end;
 
 
 
-Procedure TQuery.SetimgColorType(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetimgColorType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FimgColorType=AValue) then exit;
@@ -1063,7 +1063,7 @@ end;
 
 
 
-Procedure TQuery.SetimgDominantColor(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetimgDominantColor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FimgDominantColor=AValue) then exit;
@@ -1073,7 +1073,7 @@ end;
 
 
 
-Procedure TQuery.SetimgSize(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetimgSize(AIndex : Integer; const AValue : String); 
 
 begin
   If (FimgSize=AValue) then exit;
@@ -1083,7 +1083,7 @@ end;
 
 
 
-Procedure TQuery.SetimgType(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetimgType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FimgType=AValue) then exit;
@@ -1093,7 +1093,7 @@ end;
 
 
 
-Procedure TQuery.SetinputEncoding(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetinputEncoding(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinputEncoding=AValue) then exit;
@@ -1103,7 +1103,7 @@ end;
 
 
 
-Procedure TQuery.Setlanguage(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setlanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flanguage=AValue) then exit;
@@ -1113,7 +1113,7 @@ end;
 
 
 
-Procedure TQuery.SetlinkSite(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetlinkSite(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlinkSite=AValue) then exit;
@@ -1123,7 +1123,7 @@ end;
 
 
 
-Procedure TQuery.SetlowRange(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetlowRange(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlowRange=AValue) then exit;
@@ -1133,7 +1133,7 @@ end;
 
 
 
-Procedure TQuery.SetorTerms(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetorTerms(AIndex : Integer; const AValue : String); 
 
 begin
   If (ForTerms=AValue) then exit;
@@ -1143,7 +1143,7 @@ end;
 
 
 
-Procedure TQuery.SetoutputEncoding(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetoutputEncoding(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoutputEncoding=AValue) then exit;
@@ -1153,7 +1153,7 @@ end;
 
 
 
-Procedure TQuery.SetrelatedSite(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetrelatedSite(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrelatedSite=AValue) then exit;
@@ -1163,7 +1163,7 @@ end;
 
 
 
-Procedure TQuery.Setrights(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setrights(AIndex : Integer; const AValue : String); 
 
 begin
   If (Frights=AValue) then exit;
@@ -1173,7 +1173,7 @@ end;
 
 
 
-Procedure TQuery.Setsafe(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setsafe(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsafe=AValue) then exit;
@@ -1183,7 +1183,7 @@ end;
 
 
 
-Procedure TQuery.SetsearchTerms(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetsearchTerms(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsearchTerms=AValue) then exit;
@@ -1193,7 +1193,7 @@ end;
 
 
 
-Procedure TQuery.SetsearchType(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetsearchType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsearchType=AValue) then exit;
@@ -1203,7 +1203,7 @@ end;
 
 
 
-Procedure TQuery.SetsiteSearch(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetsiteSearch(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsiteSearch=AValue) then exit;
@@ -1213,7 +1213,7 @@ end;
 
 
 
-Procedure TQuery.SetsiteSearchFilter(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetsiteSearchFilter(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsiteSearchFilter=AValue) then exit;
@@ -1223,7 +1223,7 @@ end;
 
 
 
-Procedure TQuery.Setsort(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setsort(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsort=AValue) then exit;
@@ -1253,7 +1253,7 @@ end;
 
 
 
-Procedure TQuery.Settitle(AIndex : Integer; AValue : String); 
+Procedure TQuery.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1263,7 +1263,7 @@ end;
 
 
 
-Procedure TQuery.SettotalResults(AIndex : Integer; AValue : String); 
+Procedure TQuery.SettotalResults(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtotalResults=AValue) then exit;
@@ -1290,7 +1290,7 @@ end;
 
 
 
-Procedure TResultTypeimage.SetcontextLink(AIndex : Integer; AValue : String); 
+Procedure TResultTypeimage.SetcontextLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontextLink=AValue) then exit;
@@ -1320,7 +1320,7 @@ end;
 
 
 
-Procedure TResultTypeimage.SetthumbnailLink(AIndex : Integer; AValue : String); 
+Procedure TResultTypeimage.SetthumbnailLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FthumbnailLink=AValue) then exit;
@@ -1357,7 +1357,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultTypelabelsItem.SetdisplayName(AIndex : Integer; AValue : String); 
+Procedure TResultTypelabelsItem.SetdisplayName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -1367,7 +1367,7 @@ end;
 
 
 
-Procedure TResultTypelabelsItem.Setlabel_with_op(AIndex : Integer; AValue : String); 
+Procedure TResultTypelabelsItem.Setlabel_with_op(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flabel_with_op=AValue) then exit;
@@ -1377,7 +1377,7 @@ end;
 
 
 
-Procedure TResultTypelabelsItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TResultTypelabelsItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1407,7 +1407,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResult.SetcacheId(AIndex : Integer; AValue : String); 
+Procedure TResult.SetcacheId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcacheId=AValue) then exit;
@@ -1417,7 +1417,7 @@ end;
 
 
 
-Procedure TResult.SetdisplayLink(AIndex : Integer; AValue : String); 
+Procedure TResult.SetdisplayLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayLink=AValue) then exit;
@@ -1427,7 +1427,7 @@ end;
 
 
 
-Procedure TResult.SetfileFormat(AIndex : Integer; AValue : String); 
+Procedure TResult.SetfileFormat(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfileFormat=AValue) then exit;
@@ -1437,7 +1437,7 @@ end;
 
 
 
-Procedure TResult.SetformattedUrl(AIndex : Integer; AValue : String); 
+Procedure TResult.SetformattedUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FformattedUrl=AValue) then exit;
@@ -1447,7 +1447,7 @@ end;
 
 
 
-Procedure TResult.SethtmlFormattedUrl(AIndex : Integer; AValue : String); 
+Procedure TResult.SethtmlFormattedUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhtmlFormattedUrl=AValue) then exit;
@@ -1457,7 +1457,7 @@ end;
 
 
 
-Procedure TResult.SethtmlSnippet(AIndex : Integer; AValue : String); 
+Procedure TResult.SethtmlSnippet(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhtmlSnippet=AValue) then exit;
@@ -1467,7 +1467,7 @@ end;
 
 
 
-Procedure TResult.SethtmlTitle(AIndex : Integer; AValue : String); 
+Procedure TResult.SethtmlTitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhtmlTitle=AValue) then exit;
@@ -1487,7 +1487,7 @@ end;
 
 
 
-Procedure TResult.Setkind(AIndex : Integer; AValue : String); 
+Procedure TResult.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1507,7 +1507,7 @@ end;
 
 
 
-Procedure TResult.Setlink(AIndex : Integer; AValue : String); 
+Procedure TResult.Setlink(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flink=AValue) then exit;
@@ -1517,7 +1517,7 @@ end;
 
 
 
-Procedure TResult.Setmime(AIndex : Integer; AValue : String); 
+Procedure TResult.Setmime(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmime=AValue) then exit;
@@ -1537,7 +1537,7 @@ end;
 
 
 
-Procedure TResult.Setsnippet(AIndex : Integer; AValue : String); 
+Procedure TResult.Setsnippet(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsnippet=AValue) then exit;
@@ -1547,7 +1547,7 @@ end;
 
 
 
-Procedure TResult.Settitle(AIndex : Integer; AValue : String); 
+Procedure TResult.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1590,7 +1590,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSearchTypesearchInformation.SetformattedSearchTime(AIndex : Integer; AValue : String); 
+Procedure TSearchTypesearchInformation.SetformattedSearchTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FformattedSearchTime=AValue) then exit;
@@ -1600,7 +1600,7 @@ end;
 
 
 
-Procedure TSearchTypesearchInformation.SetformattedTotalResults(AIndex : Integer; AValue : String); 
+Procedure TSearchTypesearchInformation.SetformattedTotalResults(AIndex : Integer; const AValue : String); 
 
 begin
   If (FformattedTotalResults=AValue) then exit;
@@ -1620,7 +1620,7 @@ end;
 
 
 
-Procedure TSearchTypesearchInformation.SettotalResults(AIndex : Integer; AValue : String); 
+Procedure TSearchTypesearchInformation.SettotalResults(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtotalResults=AValue) then exit;
@@ -1637,7 +1637,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSearchTypespelling.SetcorrectedQuery(AIndex : Integer; AValue : String); 
+Procedure TSearchTypespelling.SetcorrectedQuery(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcorrectedQuery=AValue) then exit;
@@ -1647,7 +1647,7 @@ end;
 
 
 
-Procedure TSearchTypespelling.SethtmlCorrectedQuery(AIndex : Integer; AValue : String); 
+Procedure TSearchTypespelling.SethtmlCorrectedQuery(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhtmlCorrectedQuery=AValue) then exit;
@@ -1664,7 +1664,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSearchTypeurl.Settemplate(AIndex : Integer; AValue : String); 
+Procedure TSearchTypeurl.Settemplate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftemplate=AValue) then exit;
@@ -1674,7 +1674,7 @@ end;
 
 
 
-Procedure TSearchTypeurl.Set_type(AIndex : Integer; AValue : String); 
+Procedure TSearchTypeurl.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1722,7 +1722,7 @@ end;
 
 
 
-Procedure TSearch.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSearch.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googledatastore.pp

@@ -170,7 +170,7 @@ type
     FisolationLevel : String;
   Protected
     //Property setters
-    Procedure SetisolationLevel(AIndex : Integer; AValue : String); virtual;
+    Procedure SetisolationLevel(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property isolationLevel : String Index 0 Read FisolationLevel Write SetisolationLevel;
@@ -188,7 +188,7 @@ type
   Protected
     //Property setters
     Procedure Setheader(AIndex : Integer; AValue : TResponseHeader); virtual;
-    Procedure Settransaction(AIndex : Integer; AValue : String); virtual;
+    Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property header : TResponseHeader Index 0 Read Fheader Write Setheader;
@@ -209,9 +209,9 @@ type
   Protected
     //Property setters
     Procedure SetignoreReadOnly(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setmode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmutation(AIndex : Integer; AValue : TMutation); virtual;
-    Procedure Settransaction(AIndex : Integer; AValue : String); virtual;
+    Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property ignoreReadOnly : boolean Index 0 Read FignoreReadOnly Write SetignoreReadOnly;
@@ -252,7 +252,7 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setfilters(AIndex : Integer; AValue : TCompositeFilterTypefiltersArray); virtual;
-    Procedure Set_operator(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -347,7 +347,7 @@ type
     Procedure SetallowLiteral(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetnameArgs(AIndex : Integer; AValue : TGqlQueryTypenameArgsArray); virtual;
     Procedure SetnumberArgs(AIndex : Integer; AValue : TGqlQueryTypenumberArgsArray); virtual;
-    Procedure SetqueryString(AIndex : Integer; AValue : String); virtual;
+    Procedure SetqueryString(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -372,8 +372,8 @@ type
     Fvalue : TValue;
   Protected
     //Property setters
-    Procedure Setcursor(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcursor(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; AValue : TValue); virtual;
   Public
   Published
@@ -417,9 +417,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; 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;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -437,7 +437,7 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -564,8 +564,8 @@ type
     Fnamespace : String;
   Protected
     //Property setters
-    Procedure SetdatasetId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnamespace(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnamespace(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
@@ -593,18 +593,18 @@ type
     FstringValue : String;
   Protected
     //Property setters
-    Procedure SetblobKeyValue(AIndex : Integer; AValue : String); virtual;
-    Procedure SetblobValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetblobKeyValue(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetblobValue(AIndex : Integer; const AValue : String); virtual;
     Procedure SetbooleanValue(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetdateTimeValue(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SetdoubleValue(AIndex : Integer; AValue : double); virtual;
     Procedure SetentityValue(AIndex : Integer; AValue : TEntity); virtual;
     Procedure Setindexed(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetintegerValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetintegerValue(AIndex : Integer; const AValue : String); virtual;
     Procedure SetkeyValue(AIndex : Integer; AValue : TKey); virtual;
     Procedure SetlistValue(AIndex : Integer; AValue : TPropertyTypelistValueArray); virtual;
     Procedure Setmeaning(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetstringValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -637,7 +637,7 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetaggregationFunction(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaggregationFunction(AIndex : Integer; const AValue : String); virtual;
     Procedure Set_property(AIndex : Integer; AValue : TPropertyReference); virtual;
   Public
   Published
@@ -658,7 +658,7 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_operator(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
     Procedure Set_property(AIndex : Integer; AValue : TPropertyReference); virtual;
     Procedure Setvalue(AIndex : Integer; AValue : TValue); virtual;
   Public
@@ -680,7 +680,7 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setdirection(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdirection(AIndex : Integer; const AValue : String); virtual;
     Procedure Set_property(AIndex : Integer; AValue : TPropertyReference); virtual;
   Public
   Published
@@ -698,7 +698,7 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -722,7 +722,7 @@ type
     FstartCursor : String;
   Protected
     //Property setters
-    Procedure SetendCursor(AIndex : Integer; AValue : String); virtual;
+    Procedure SetendCursor(AIndex : Integer; const AValue : String); virtual;
     Procedure Setfilter(AIndex : Integer; AValue : TFilter); virtual;
     Procedure SetgroupBy(AIndex : Integer; AValue : TQueryTypegroupByArray); virtual;
     Procedure Setkinds(AIndex : Integer; AValue : TQueryTypekindsArray); virtual;
@@ -730,7 +730,7 @@ type
     Procedure Setoffset(AIndex : Integer; AValue : integer); virtual;
     Procedure Setorder(AIndex : Integer; AValue : TQueryTypeorderArray); virtual;
     Procedure Setprojection(AIndex : Integer; AValue : TQueryTypeprojectionArray); virtual;
-    Procedure SetstartCursor(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstartCursor(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -762,10 +762,10 @@ type
     FskippedResults : integer;
   Protected
     //Property setters
-    Procedure SetendCursor(AIndex : Integer; AValue : String); virtual;
-    Procedure SetentityResultType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetendCursor(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetentityResultType(AIndex : Integer; const AValue : String); virtual;
     Procedure SetentityResults(AIndex : Integer; AValue : TQueryResultBatchTypeentityResultsArray); virtual;
-    Procedure SetmoreResults(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmoreResults(AIndex : Integer; const AValue : String); virtual;
     Procedure SetskippedResults(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -791,8 +791,8 @@ type
     Ftransaction : String;
   Protected
     //Property setters
-    Procedure SetreadConsistency(AIndex : Integer; AValue : String); virtual;
-    Procedure Settransaction(AIndex : Integer; AValue : String); virtual;
+    Procedure SetreadConsistency(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property readConsistency : String Index 0 Read FreadConsistency Write SetreadConsistency;
@@ -809,7 +809,7 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -825,7 +825,7 @@ type
     Ftransaction : String;
   Protected
     //Property setters
-    Procedure Settransaction(AIndex : Integer; AValue : String); virtual;
+    Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property transaction : String Index 0 Read Ftransaction Write Settransaction;
@@ -912,18 +912,18 @@ type
     FstringValue : String;
   Protected
     //Property setters
-    Procedure SetblobKeyValue(AIndex : Integer; AValue : String); virtual;
-    Procedure SetblobValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetblobKeyValue(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetblobValue(AIndex : Integer; const AValue : String); virtual;
     Procedure SetbooleanValue(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetdateTimeValue(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SetdoubleValue(AIndex : Integer; AValue : double); virtual;
     Procedure SetentityValue(AIndex : Integer; AValue : TEntity); virtual;
     Procedure Setindexed(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetintegerValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetintegerValue(AIndex : Integer; const AValue : String); virtual;
     Procedure SetkeyValue(AIndex : Integer; AValue : TKey); virtual;
     Procedure SetlistValue(AIndex : Integer; AValue : TValueTypelistValueArray); virtual;
     Procedure Setmeaning(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetstringValue(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1077,7 +1077,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBeginTransactionRequest.SetisolationLevel(AIndex : Integer; AValue : String); 
+Procedure TBeginTransactionRequest.SetisolationLevel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FisolationLevel=AValue) then exit;
@@ -1104,7 +1104,7 @@ end;
 
 
 
-Procedure TBeginTransactionResponse.Settransaction(AIndex : Integer; AValue : String); 
+Procedure TBeginTransactionResponse.Settransaction(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftransaction=AValue) then exit;
@@ -1131,7 +1131,7 @@ end;
 
 
 
-Procedure TCommitRequest.Setmode(AIndex : Integer; AValue : String); 
+Procedure TCommitRequest.Setmode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmode=AValue) then exit;
@@ -1151,7 +1151,7 @@ end;
 
 
 
-Procedure TCommitRequest.Settransaction(AIndex : Integer; AValue : String); 
+Procedure TCommitRequest.Settransaction(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftransaction=AValue) then exit;
@@ -1205,7 +1205,7 @@ end;
 
 
 
-Procedure TCompositeFilter.Set_operator(AIndex : Integer; AValue : String); 
+Procedure TCompositeFilter.Set_operator(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_operator=AValue) then exit;
@@ -1360,7 +1360,7 @@ end;
 
 
 
-Procedure TGqlQuery.SetqueryString(AIndex : Integer; AValue : String); 
+Procedure TGqlQuery.SetqueryString(AIndex : Integer; const AValue : String); 
 
 begin
   If (FqueryString=AValue) then exit;
@@ -1391,7 +1391,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGqlQueryArg.Setcursor(AIndex : Integer; AValue : String); 
+Procedure TGqlQueryArg.Setcursor(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcursor=AValue) then exit;
@@ -1401,7 +1401,7 @@ end;
 
 
 
-Procedure TGqlQueryArg.Setname(AIndex : Integer; AValue : String); 
+Procedure TGqlQueryArg.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1468,7 +1468,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TKeyPathElement.Setid(AIndex : Integer; AValue : String); 
+Procedure TKeyPathElement.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1478,7 +1478,7 @@ end;
 
 
 
-Procedure TKeyPathElement.Setkind(AIndex : Integer; AValue : String); 
+Procedure TKeyPathElement.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1488,7 +1488,7 @@ end;
 
 
 
-Procedure TKeyPathElement.Setname(AIndex : Integer; AValue : String); 
+Procedure TKeyPathElement.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1505,7 +1505,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TKindExpression.Setname(AIndex : Integer; AValue : String); 
+Procedure TKindExpression.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1748,7 +1748,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPartitionId.SetdatasetId(AIndex : Integer; AValue : String); 
+Procedure TPartitionId.SetdatasetId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdatasetId=AValue) then exit;
@@ -1758,7 +1758,7 @@ end;
 
 
 
-Procedure TPartitionId.Setnamespace(AIndex : Integer; AValue : String); 
+Procedure TPartitionId.Setnamespace(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnamespace=AValue) then exit;
@@ -1775,7 +1775,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProperty.SetblobKeyValue(AIndex : Integer; AValue : String); 
+Procedure TProperty.SetblobKeyValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FblobKeyValue=AValue) then exit;
@@ -1785,7 +1785,7 @@ end;
 
 
 
-Procedure TProperty.SetblobValue(AIndex : Integer; AValue : String); 
+Procedure TProperty.SetblobValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FblobValue=AValue) then exit;
@@ -1845,7 +1845,7 @@ end;
 
 
 
-Procedure TProperty.SetintegerValue(AIndex : Integer; AValue : String); 
+Procedure TProperty.SetintegerValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FintegerValue=AValue) then exit;
@@ -1885,7 +1885,7 @@ end;
 
 
 
-Procedure TProperty.SetstringValue(AIndex : Integer; AValue : String); 
+Procedure TProperty.SetstringValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstringValue=AValue) then exit;
@@ -1915,7 +1915,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPropertyExpression.SetaggregationFunction(AIndex : Integer; AValue : String); 
+Procedure TPropertyExpression.SetaggregationFunction(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaggregationFunction=AValue) then exit;
@@ -1953,7 +1953,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPropertyFilter.Set_operator(AIndex : Integer; AValue : String); 
+Procedure TPropertyFilter.Set_operator(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_operator=AValue) then exit;
@@ -2002,7 +2002,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPropertyOrder.Setdirection(AIndex : Integer; AValue : String); 
+Procedure TPropertyOrder.Setdirection(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdirection=AValue) then exit;
@@ -2040,7 +2040,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPropertyReference.Setname(AIndex : Integer; AValue : String); 
+Procedure TPropertyReference.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2057,7 +2057,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuery.SetendCursor(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetendCursor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendCursor=AValue) then exit;
@@ -2137,7 +2137,7 @@ end;
 
 
 
-Procedure TQuery.SetstartCursor(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetstartCursor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartCursor=AValue) then exit;
@@ -2170,7 +2170,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQueryResultBatch.SetendCursor(AIndex : Integer; AValue : String); 
+Procedure TQueryResultBatch.SetendCursor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendCursor=AValue) then exit;
@@ -2180,7 +2180,7 @@ end;
 
 
 
-Procedure TQueryResultBatch.SetentityResultType(AIndex : Integer; AValue : String); 
+Procedure TQueryResultBatch.SetentityResultType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FentityResultType=AValue) then exit;
@@ -2200,7 +2200,7 @@ end;
 
 
 
-Procedure TQueryResultBatch.SetmoreResults(AIndex : Integer; AValue : String); 
+Procedure TQueryResultBatch.SetmoreResults(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmoreResults=AValue) then exit;
@@ -2240,7 +2240,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReadOptions.SetreadConsistency(AIndex : Integer; AValue : String); 
+Procedure TReadOptions.SetreadConsistency(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreadConsistency=AValue) then exit;
@@ -2250,7 +2250,7 @@ end;
 
 
 
-Procedure TReadOptions.Settransaction(AIndex : Integer; AValue : String); 
+Procedure TReadOptions.Settransaction(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftransaction=AValue) then exit;
@@ -2267,7 +2267,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResponseHeader.Setkind(AIndex : Integer; AValue : String); 
+Procedure TResponseHeader.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2284,7 +2284,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRollbackRequest.Settransaction(AIndex : Integer; AValue : String); 
+Procedure TRollbackRequest.Settransaction(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftransaction=AValue) then exit;
@@ -2392,7 +2392,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TValue.SetblobKeyValue(AIndex : Integer; AValue : String); 
+Procedure TValue.SetblobKeyValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FblobKeyValue=AValue) then exit;
@@ -2402,7 +2402,7 @@ end;
 
 
 
-Procedure TValue.SetblobValue(AIndex : Integer; AValue : String); 
+Procedure TValue.SetblobValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FblobValue=AValue) then exit;
@@ -2462,7 +2462,7 @@ end;
 
 
 
-Procedure TValue.SetintegerValue(AIndex : Integer; AValue : String); 
+Procedure TValue.SetintegerValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FintegerValue=AValue) then exit;
@@ -2502,7 +2502,7 @@ end;
 
 
 
-Procedure TValue.SetstringValue(AIndex : Integer; AValue : String); 
+Procedure TValue.SetstringValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstringValue=AValue) then exit;

packages/googleapi/src/googledeploymentmanager.pp

@@ -86,14 +86,14 @@ type
     Fupdate : TDeploymentUpdate;
   Protected
     //Property setters
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setintent(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmanifest(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); 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 Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setintent(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
     Procedure Settarget(AIndex : Integer; AValue : TTargetConfiguration); virtual;
     Procedure Setupdate(AIndex : Integer; AValue : TDeploymentUpdate); virtual;
   Public
@@ -122,7 +122,7 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setmanifest(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -145,7 +145,7 @@ type
   Protected
     //Property setters
     Procedure Setdeployments(AIndex : Integer; AValue : TDeploymentsListResponseTypedeploymentsArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -167,8 +167,8 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setcontent(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property content : String Index 0 Read Fcontent Write Setcontent;
@@ -192,14 +192,14 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setconfig(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetevaluatedConfig(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setconfig(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetevaluatedConfig(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setimports(AIndex : Integer; AValue : TManifestTypeimportsArray); virtual;
-    Procedure Setlayout(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlayout(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(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;
@@ -228,7 +228,7 @@ type
   Protected
     //Property setters
     Procedure Setmanifests(AIndex : Integer; AValue : TManifestsListResponseTypemanifestsArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -251,9 +251,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -292,8 +292,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -312,9 +312,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); 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;
@@ -357,28 +357,28 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SetclientOperationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
-    Procedure SethttpErrorMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
     Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinsertTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : String); 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; AValue : integer); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); 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; AValue : TOperationTypewarningsArray); virtual;
-    Procedure Setzone(AIndex : Integer; 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;
@@ -420,7 +420,7 @@ type
     Foperations : TOperationsListResponseTypeoperationsArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setoperations(AIndex : Integer; AValue : TOperationsListResponseTypeoperationsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -450,14 +450,14 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetfinalProperties(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmanifest(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setproperties(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfinalProperties(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setproperties(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
     Procedure Setupdate(AIndex : Integer; AValue : TResourceUpdate); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property finalProperties : String Index 0 Read FfinalProperties Write SetfinalProperties;
@@ -486,11 +486,11 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetfinalProperties(AIndex : Integer; AValue : String); virtual;
-    Procedure Setintent(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmanifest(AIndex : Integer; AValue : String); virtual;
-    Procedure Setproperties(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfinalProperties(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setintent(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setproperties(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -516,7 +516,7 @@ type
     Fresources : TResourcesListResponseTyperesourcesArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TResourcesListResponseTyperesourcesArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -539,7 +539,7 @@ type
     Fimports : TTargetConfigurationTypeimportsArray;
   Protected
     //Property setters
-    Procedure Setconfig(AIndex : Integer; AValue : String); virtual;
+    Procedure Setconfig(AIndex : Integer; const AValue : String); virtual;
     Procedure Setimports(AIndex : Integer; AValue : TTargetConfigurationTypeimportsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -561,7 +561,7 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -578,7 +578,7 @@ type
     Ftypes : TTypesListResponseTypetypesArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Settypes(AIndex : Integer; AValue : TTypesListResponseTypetypesArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -794,7 +794,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TDeployment.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TDeployment.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -804,7 +804,7 @@ end;
 
 
 
-Procedure TDeployment.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -814,7 +814,7 @@ end;
 
 
 
-Procedure TDeployment.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -824,7 +824,7 @@ end;
 
 
 
-Procedure TDeployment.Setid(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -834,7 +834,7 @@ end;
 
 
 
-Procedure TDeployment.Setintent(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setintent(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fintent=AValue) then exit;
@@ -844,7 +844,7 @@ end;
 
 
 
-Procedure TDeployment.Setmanifest(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setmanifest(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmanifest=AValue) then exit;
@@ -854,7 +854,7 @@ end;
 
 
 
-Procedure TDeployment.Setname(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -864,7 +864,7 @@ end;
 
 
 
-Procedure TDeployment.Setstate(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -911,7 +911,7 @@ end;
 
 
 
-Procedure TDeploymentUpdate.Setmanifest(AIndex : Integer; AValue : String); 
+Procedure TDeploymentUpdate.Setmanifest(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmanifest=AValue) then exit;
@@ -951,7 +951,7 @@ end;
 
 
 
-Procedure TDeploymentsListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TDeploymentsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -981,7 +981,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TImportFile.Setcontent(AIndex : Integer; AValue : String); 
+Procedure TImportFile.Setcontent(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcontent=AValue) then exit;
@@ -991,7 +991,7 @@ end;
 
 
 
-Procedure TImportFile.Setname(AIndex : Integer; AValue : String); 
+Procedure TImportFile.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1008,7 +1008,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TManifest.Setconfig(AIndex : Integer; AValue : String); 
+Procedure TManifest.Setconfig(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fconfig=AValue) then exit;
@@ -1018,7 +1018,7 @@ end;
 
 
 
-Procedure TManifest.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TManifest.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1028,7 +1028,7 @@ end;
 
 
 
-Procedure TManifest.SetevaluatedConfig(AIndex : Integer; AValue : String); 
+Procedure TManifest.SetevaluatedConfig(AIndex : Integer; const AValue : String); 
 
 begin
   If (FevaluatedConfig=AValue) then exit;
@@ -1038,7 +1038,7 @@ end;
 
 
 
-Procedure TManifest.Setid(AIndex : Integer; AValue : String); 
+Procedure TManifest.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1058,7 +1058,7 @@ end;
 
 
 
-Procedure TManifest.Setlayout(AIndex : Integer; AValue : String); 
+Procedure TManifest.Setlayout(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flayout=AValue) then exit;
@@ -1068,7 +1068,7 @@ end;
 
 
 
-Procedure TManifest.Setname(AIndex : Integer; AValue : String); 
+Procedure TManifest.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1078,7 +1078,7 @@ end;
 
 
 
-Procedure TManifest.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TManifest.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1118,7 +1118,7 @@ end;
 
 
 
-Procedure TManifestsListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TManifestsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1148,7 +1148,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1158,7 +1158,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -1168,7 +1168,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1215,7 +1215,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1225,7 +1225,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1242,7 +1242,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1262,7 +1262,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1292,7 +1292,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -1302,7 +1302,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1312,7 +1312,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1332,7 +1332,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -1352,7 +1352,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1362,7 +1362,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -1372,7 +1372,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1382,7 +1382,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1392,7 +1392,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -1412,7 +1412,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -1422,7 +1422,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1432,7 +1432,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1442,7 +1442,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1452,7 +1452,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1462,7 +1462,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetId=AValue) then exit;
@@ -1472,7 +1472,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -1482,7 +1482,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -1502,7 +1502,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -1532,7 +1532,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationsListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TOperationsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1572,7 +1572,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResource.SetfinalProperties(AIndex : Integer; AValue : String); 
+Procedure TResource.SetfinalProperties(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfinalProperties=AValue) then exit;
@@ -1582,7 +1582,7 @@ end;
 
 
 
-Procedure TResource.Setid(AIndex : Integer; AValue : String); 
+Procedure TResource.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1592,7 +1592,7 @@ end;
 
 
 
-Procedure TResource.Setmanifest(AIndex : Integer; AValue : String); 
+Procedure TResource.Setmanifest(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmanifest=AValue) then exit;
@@ -1602,7 +1602,7 @@ end;
 
 
 
-Procedure TResource.Setname(AIndex : Integer; AValue : String); 
+Procedure TResource.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1612,7 +1612,7 @@ end;
 
 
 
-Procedure TResource.Setproperties(AIndex : Integer; AValue : String); 
+Procedure TResource.Setproperties(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fproperties=AValue) then exit;
@@ -1622,7 +1622,7 @@ end;
 
 
 
-Procedure TResource.Set_type(AIndex : Integer; AValue : String); 
+Procedure TResource.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1642,7 +1642,7 @@ end;
 
 
 
-Procedure TResource.Seturl(AIndex : Integer; AValue : String); 
+Procedure TResource.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -1680,7 +1680,7 @@ end;
 
 
 
-Procedure TResourceUpdate.SetfinalProperties(AIndex : Integer; AValue : String); 
+Procedure TResourceUpdate.SetfinalProperties(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfinalProperties=AValue) then exit;
@@ -1690,7 +1690,7 @@ end;
 
 
 
-Procedure TResourceUpdate.Setintent(AIndex : Integer; AValue : String); 
+Procedure TResourceUpdate.Setintent(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fintent=AValue) then exit;
@@ -1700,7 +1700,7 @@ end;
 
 
 
-Procedure TResourceUpdate.Setmanifest(AIndex : Integer; AValue : String); 
+Procedure TResourceUpdate.Setmanifest(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmanifest=AValue) then exit;
@@ -1710,7 +1710,7 @@ end;
 
 
 
-Procedure TResourceUpdate.Setproperties(AIndex : Integer; AValue : String); 
+Procedure TResourceUpdate.Setproperties(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fproperties=AValue) then exit;
@@ -1720,7 +1720,7 @@ end;
 
 
 
-Procedure TResourceUpdate.Setstate(AIndex : Integer; AValue : String); 
+Procedure TResourceUpdate.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -1750,7 +1750,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourcesListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TResourcesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1790,7 +1790,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTargetConfiguration.Setconfig(AIndex : Integer; AValue : String); 
+Procedure TTargetConfiguration.Setconfig(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fconfig=AValue) then exit;
@@ -1830,7 +1830,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TType.Setname(AIndex : Integer; AValue : String); 
+Procedure TType.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1847,7 +1847,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTypesListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTypesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googlediscovery.pp

@@ -71,8 +71,8 @@ type
     Fx32 : String;
   Protected
     //Property setters
-    Procedure Setx16(AIndex : Integer; AValue : String); virtual;
-    Procedure Setx32(AIndex : Integer; AValue : String); virtual;
+    Procedure Setx16(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setx32(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property x16 : String Index 0 Read Fx16 Write Setx16;
@@ -100,18 +100,18 @@ type
     Fversion : String;
   Protected
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdiscoveryLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdiscoveryRestUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdocumentationLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdiscoveryLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdiscoveryRestUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdocumentationLink(AIndex : Integer; const AValue : String); virtual;
     Procedure Seticons(AIndex : Integer; AValue : TDirectoryListTypeitemsItemTypeicons); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlabels(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpreferred(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -144,9 +144,9 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure SetdiscoveryVersion(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdiscoveryVersion(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TDirectoryListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -204,8 +204,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setref(AIndex : Integer; AValue : String); virtual;
-    Procedure Settype_value(AIndex : Integer; AValue : String); virtual;
+    Procedure Setref(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settype_value(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property ref : String Index 0 Read Fref Write Setref;
@@ -223,7 +223,7 @@ type
     Fmap : TJsonSchemaTypevariantTypemapArray;
   Protected
     //Property setters
-    Procedure Setdiscriminant(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdiscriminant(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmap(AIndex : Integer; AValue : TJsonSchemaTypevariantTypemapArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -265,25 +265,25 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setref(AIndex : Integer; AValue : String); virtual;
+    Procedure Setref(AIndex : Integer; const AValue : String); virtual;
     Procedure SetadditionalProperties(AIndex : Integer; AValue : TJsonSchema); virtual;
     Procedure Setannotations(AIndex : Integer; AValue : TJsonSchemaTypeannotations); virtual;
-    Procedure Setdefault(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdefault(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Setenum(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetenumDescriptions(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TJsonSchema); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmaximum(AIndex : Integer; AValue : String); virtual;
-    Procedure Setminimum(AIndex : Integer; AValue : String); virtual;
-    Procedure Setpattern(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmaximum(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setminimum(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setpattern(AIndex : Integer; const AValue : String); virtual;
     Procedure Setproperties(AIndex : Integer; AValue : TJsonSchemaTypeproperties); virtual;
     Procedure SetreadOnly(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setrepeated(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setrequired(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
     Procedure Setvariant(AIndex : Integer; AValue : TJsonSchemaTypevariant); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -370,8 +370,8 @@ type
     Fx32 : String;
   Protected
     //Property setters
-    Procedure Setx16(AIndex : Integer; AValue : String); virtual;
-    Procedure Setx32(AIndex : Integer; AValue : String); virtual;
+    Procedure Setx16(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setx32(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property x16 : String Index 0 Read Fx16 Write Setx16;
@@ -472,33 +472,33 @@ type
   Protected
     //Property setters
     Procedure Setauth(AIndex : Integer; AValue : TRestDescriptionTypeauth); virtual;
-    Procedure SetbasePath(AIndex : Integer; AValue : String); virtual;
-    Procedure SetbaseUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetbatchPath(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcanonicalName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdiscoveryVersion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdocumentationLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbasePath(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetbaseUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetbatchPath(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcanonicalName(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdiscoveryVersion(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdocumentationLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setfeatures(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Seticons(AIndex : Integer; AValue : TRestDescriptionTypeicons); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlabels(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setmethods(AIndex : Integer; AValue : TRestDescriptionTypemethods); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetownerDomain(AIndex : Integer; AValue : String); virtual;
-    Procedure SetownerName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpackagePath(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetownerDomain(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetownerName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpackagePath(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TRestDescriptionTypeparameters); virtual;
-    Procedure Setprotocol(AIndex : Integer; AValue : String); virtual;
+    Procedure Setprotocol(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TRestDescriptionTyperesources); virtual;
-    Procedure Setrevision(AIndex : Integer; AValue : String); virtual;
-    Procedure SetrootUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure Setrevision(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetrootUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure Setschemas(AIndex : Integer; AValue : TRestDescriptionTypeschemas); virtual;
-    Procedure SetservicePath(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure SetservicePath(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -547,7 +547,7 @@ type
   Protected
     //Property setters
     Procedure Setmultipart(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setpath(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property multipart : boolean Index 0 Read Fmultipart Write Setmultipart;
@@ -566,7 +566,7 @@ type
   Protected
     //Property setters
     Procedure Setmultipart(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setpath(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property multipart : boolean Index 0 Read Fmultipart Write Setmultipart;
@@ -605,7 +605,7 @@ type
   Protected
     //Property setters
     Procedure Setaccept(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetmaxSize(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmaxSize(AIndex : Integer; const AValue : String); virtual;
     Procedure Setprotocols(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocols); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -644,8 +644,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setref(AIndex : Integer; AValue : String); virtual;
-    Procedure SetparameterName(AIndex : Integer; AValue : String); virtual;
+    Procedure Setref(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetparameterName(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property ref : String Index 0 Read Fref Write Setref;
@@ -663,7 +663,7 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setref(AIndex : Integer; AValue : String); virtual;
+    Procedure Setref(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property ref : String Index 0 Read Fref Write Setref;
@@ -693,14 +693,14 @@ type
     FuseMediaDownloadService : boolean;
   Protected
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure SetetagRequired(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SethttpMethod(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SethttpMethod(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmediaUpload(AIndex : Integer; AValue : TRestMethodTypemediaUpload); virtual;
     Procedure SetparameterOrder(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TRestMethodTypeparameters); virtual;
-    Procedure Setpath(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrequest(AIndex : Integer; AValue : TRestMethodTyperequest); virtual;
     Procedure Setresponse(AIndex : Integer; AValue : TRestMethodTyperesponse); virtual;
     Procedure Setscopes(AIndex : Integer; AValue : TStringArray); virtual;
@@ -846,7 +846,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TDirectoryListTypeitemsItemTypeicons.Setx16(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItemTypeicons.Setx16(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fx16=AValue) then exit;
@@ -856,7 +856,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItemTypeicons.Setx32(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItemTypeicons.Setx32(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fx32=AValue) then exit;
@@ -873,7 +873,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDirectoryListTypeitemsItem.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -883,7 +883,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.SetdiscoveryLink(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.SetdiscoveryLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdiscoveryLink=AValue) then exit;
@@ -893,7 +893,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.SetdiscoveryRestUrl(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.SetdiscoveryRestUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdiscoveryRestUrl=AValue) then exit;
@@ -903,7 +903,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.SetdocumentationLink(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.SetdocumentationLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdocumentationLink=AValue) then exit;
@@ -923,7 +923,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.Setid(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -933,7 +933,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -953,7 +953,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -973,7 +973,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.Settitle(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -983,7 +983,7 @@ end;
 
 
 
-Procedure TDirectoryListTypeitemsItem.Setversion(AIndex : Integer; AValue : String); 
+Procedure TDirectoryListTypeitemsItem.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -1013,7 +1013,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDirectoryList.SetdiscoveryVersion(AIndex : Integer; AValue : String); 
+Procedure TDirectoryList.SetdiscoveryVersion(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdiscoveryVersion=AValue) then exit;
@@ -1033,7 +1033,7 @@ end;
 
 
 
-Procedure TDirectoryList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TDirectoryList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1106,7 +1106,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TJsonSchemaTypevariantTypemapItem.Setref(AIndex : Integer; AValue : String); 
+Procedure TJsonSchemaTypevariantTypemapItem.Setref(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fref=AValue) then exit;
@@ -1116,7 +1116,7 @@ end;
 
 
 
-Procedure TJsonSchemaTypevariantTypemapItem.Settype_value(AIndex : Integer; AValue : String); 
+Procedure TJsonSchemaTypevariantTypemapItem.Settype_value(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftype_value=AValue) then exit;
@@ -1144,7 +1144,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TJsonSchemaTypevariant.Setdiscriminant(AIndex : Integer; AValue : String); 
+Procedure TJsonSchemaTypevariant.Setdiscriminant(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdiscriminant=AValue) then exit;
@@ -1184,7 +1184,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TJsonSchema.Setref(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setref(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fref=AValue) then exit;
@@ -1214,7 +1214,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setdefault(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setdefault(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdefault=AValue) then exit;
@@ -1224,7 +1224,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1254,7 +1254,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setformat(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -1264,7 +1264,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setid(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1284,7 +1284,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -1294,7 +1294,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setmaximum(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setmaximum(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmaximum=AValue) then exit;
@@ -1304,7 +1304,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setminimum(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setminimum(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fminimum=AValue) then exit;
@@ -1314,7 +1314,7 @@ end;
 
 
 
-Procedure TJsonSchema.Setpattern(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Setpattern(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpattern=AValue) then exit;
@@ -1364,7 +1364,7 @@ end;
 
 
 
-Procedure TJsonSchema.Set_type(AIndex : Integer; AValue : String); 
+Procedure TJsonSchema.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1464,7 +1464,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRestDescriptionTypeicons.Setx16(AIndex : Integer; AValue : String); 
+Procedure TRestDescriptionTypeicons.Setx16(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fx16=AValue) then exit;
@@ -1474,7 +1474,7 @@ end;
 
 
 
-Procedure TRestDescriptionTypeicons.Setx32(AIndex : Integer; AValue : String); 
+Procedure TRestDescriptionTypeicons.Setx32(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fx32=AValue) then exit;
@@ -1553,7 +1553,7 @@ end;
 
 
 
-Procedure TRestDescription.SetbasePath(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetbasePath(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbasePath=AValue) then exit;
@@ -1563,7 +1563,7 @@ end;
 
 
 
-Procedure TRestDescription.SetbaseUrl(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetbaseUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbaseUrl=AValue) then exit;
@@ -1573,7 +1573,7 @@ end;
 
 
 
-Procedure TRestDescription.SetbatchPath(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetbatchPath(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbatchPath=AValue) then exit;
@@ -1583,7 +1583,7 @@ end;
 
 
 
-Procedure TRestDescription.SetcanonicalName(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetcanonicalName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcanonicalName=AValue) then exit;
@@ -1593,7 +1593,7 @@ end;
 
 
 
-Procedure TRestDescription.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1603,7 +1603,7 @@ end;
 
 
 
-Procedure TRestDescription.SetdiscoveryVersion(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetdiscoveryVersion(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdiscoveryVersion=AValue) then exit;
@@ -1613,7 +1613,7 @@ end;
 
 
 
-Procedure TRestDescription.SetdocumentationLink(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetdocumentationLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdocumentationLink=AValue) then exit;
@@ -1623,7 +1623,7 @@ end;
 
 
 
-Procedure TRestDescription.Setetag(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1653,7 +1653,7 @@ end;
 
 
 
-Procedure TRestDescription.Setid(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1663,7 +1663,7 @@ end;
 
 
 
-Procedure TRestDescription.Setkind(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1693,7 +1693,7 @@ end;
 
 
 
-Procedure TRestDescription.Setname(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1703,7 +1703,7 @@ end;
 
 
 
-Procedure TRestDescription.SetownerDomain(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetownerDomain(AIndex : Integer; const AValue : String); 
 
 begin
   If (FownerDomain=AValue) then exit;
@@ -1713,7 +1713,7 @@ end;
 
 
 
-Procedure TRestDescription.SetownerName(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetownerName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FownerName=AValue) then exit;
@@ -1723,7 +1723,7 @@ end;
 
 
 
-Procedure TRestDescription.SetpackagePath(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetpackagePath(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpackagePath=AValue) then exit;
@@ -1743,7 +1743,7 @@ end;
 
 
 
-Procedure TRestDescription.Setprotocol(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setprotocol(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fprotocol=AValue) then exit;
@@ -1763,7 +1763,7 @@ end;
 
 
 
-Procedure TRestDescription.Setrevision(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setrevision(AIndex : Integer; const AValue : String); 
 
 begin
   If (Frevision=AValue) then exit;
@@ -1773,7 +1773,7 @@ end;
 
 
 
-Procedure TRestDescription.SetrootUrl(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetrootUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrootUrl=AValue) then exit;
@@ -1793,7 +1793,7 @@ end;
 
 
 
-Procedure TRestDescription.SetservicePath(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.SetservicePath(AIndex : Integer; const AValue : String); 
 
 begin
   If (FservicePath=AValue) then exit;
@@ -1803,7 +1803,7 @@ end;
 
 
 
-Procedure TRestDescription.Settitle(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1813,7 +1813,7 @@ end;
 
 
 
-Procedure TRestDescription.Setversion(AIndex : Integer; AValue : String); 
+Procedure TRestDescription.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -1854,7 +1854,7 @@ end;
 
 
 
-Procedure TRestMethodTypemediaUploadTypeprotocolsTyperesumable.Setpath(AIndex : Integer; AValue : String); 
+Procedure TRestMethodTypemediaUploadTypeprotocolsTyperesumable.Setpath(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpath=AValue) then exit;
@@ -1881,7 +1881,7 @@ end;
 
 
 
-Procedure TRestMethodTypemediaUploadTypeprotocolsTypesimple.Setpath(AIndex : Integer; AValue : String); 
+Procedure TRestMethodTypemediaUploadTypeprotocolsTypesimple.Setpath(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpath=AValue) then exit;
@@ -1935,7 +1935,7 @@ end;
 
 
 
-Procedure TRestMethodTypemediaUpload.SetmaxSize(AIndex : Integer; AValue : String); 
+Procedure TRestMethodTypemediaUpload.SetmaxSize(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmaxSize=AValue) then exit;
@@ -1988,7 +1988,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRestMethodTyperequest.Setref(AIndex : Integer; AValue : String); 
+Procedure TRestMethodTyperequest.Setref(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fref=AValue) then exit;
@@ -1998,7 +1998,7 @@ end;
 
 
 
-Procedure TRestMethodTyperequest.SetparameterName(AIndex : Integer; AValue : String); 
+Procedure TRestMethodTyperequest.SetparameterName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FparameterName=AValue) then exit;
@@ -2026,7 +2026,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRestMethodTyperesponse.Setref(AIndex : Integer; AValue : String); 
+Procedure TRestMethodTyperesponse.Setref(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fref=AValue) then exit;
@@ -2054,7 +2054,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRestMethod.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TRestMethod.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -2074,7 +2074,7 @@ end;
 
 
 
-Procedure TRestMethod.SethttpMethod(AIndex : Integer; AValue : String); 
+Procedure TRestMethod.SethttpMethod(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhttpMethod=AValue) then exit;
@@ -2084,7 +2084,7 @@ end;
 
 
 
-Procedure TRestMethod.Setid(AIndex : Integer; AValue : String); 
+Procedure TRestMethod.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -2124,7 +2124,7 @@ end;
 
 
 
-Procedure TRestMethod.Setpath(AIndex : Integer; AValue : String); 
+Procedure TRestMethod.Setpath(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpath=AValue) then exit;

packages/googleapi/src/googledns.pp

@@ -63,10 +63,10 @@ type
     //Property setters
     Procedure Setadditions(AIndex : Integer; AValue : TChangeTypeadditionsArray); virtual;
     Procedure Setdeletions(AIndex : Integer; AValue : TChangeTypedeletionsArray); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTime(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;
@@ -94,8 +94,8 @@ type
   Protected
     //Property setters
     Procedure Setchanges(AIndex : Integer; AValue : TChangesListResponseTypechangesArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -124,13 +124,13 @@ type
     FnameServers : TStringArray;
   Protected
     //Property setters
-    Procedure SetcreationTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdnsName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnameServerSet(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdnsName(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 SetnameServerSet(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnameServers(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -160,9 +160,9 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponseTypemanagedZonesArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -187,9 +187,9 @@ type
     Fquota : TQuota;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnumber(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnumber(AIndex : Integer; const AValue : String); virtual;
     Procedure Setquota(AIndex : Integer; AValue : TQuota); virtual;
   Public
   Published
@@ -215,7 +215,7 @@ type
     FtotalRrdataSizePerChange : integer;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmanagedZones(AIndex : Integer; AValue : integer); virtual;
     Procedure SetresourceRecordsPerRrset(AIndex : Integer; AValue : integer); virtual;
     Procedure SetrrsetAdditionsPerChange(AIndex : Integer; AValue : integer); virtual;
@@ -248,11 +248,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrrdatas(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setttl(AIndex : Integer; AValue : integer); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -278,8 +278,8 @@ type
     Frrsets : TResourceRecordSetsListResponseTyperrsetsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponseTyperrsetsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -457,7 +457,7 @@ end;
 
 
 
-Procedure TChange.Setid(AIndex : Integer; AValue : String); 
+Procedure TChange.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -467,7 +467,7 @@ end;
 
 
 
-Procedure TChange.Setkind(AIndex : Integer; AValue : String); 
+Procedure TChange.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -477,7 +477,7 @@ end;
 
 
 
-Procedure TChange.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TChange.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -487,7 +487,7 @@ end;
 
 
 
-Procedure TChange.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TChange.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -528,7 +528,7 @@ end;
 
 
 
-Procedure TChangesListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TChangesListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -538,7 +538,7 @@ end;
 
 
 
-Procedure TChangesListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TChangesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -568,7 +568,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TManagedZone.SetcreationTime(AIndex : Integer; AValue : String); 
+Procedure TManagedZone.SetcreationTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTime=AValue) then exit;
@@ -578,7 +578,7 @@ end;
 
 
 
-Procedure TManagedZone.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TManagedZone.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -588,7 +588,7 @@ end;
 
 
 
-Procedure TManagedZone.SetdnsName(AIndex : Integer; AValue : String); 
+Procedure TManagedZone.SetdnsName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdnsName=AValue) then exit;
@@ -598,7 +598,7 @@ end;
 
 
 
-Procedure TManagedZone.Setid(AIndex : Integer; AValue : String); 
+Procedure TManagedZone.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -608,7 +608,7 @@ end;
 
 
 
-Procedure TManagedZone.Setkind(AIndex : Integer; AValue : String); 
+Procedure TManagedZone.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -618,7 +618,7 @@ end;
 
 
 
-Procedure TManagedZone.Setname(AIndex : Integer; AValue : String); 
+Procedure TManagedZone.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -628,7 +628,7 @@ end;
 
 
 
-Procedure TManagedZone.SetnameServerSet(AIndex : Integer; AValue : String); 
+Procedure TManagedZone.SetnameServerSet(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnameServerSet=AValue) then exit;
@@ -668,7 +668,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TManagedZonesListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TManagedZonesListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -688,7 +688,7 @@ end;
 
 
 
-Procedure TManagedZonesListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TManagedZonesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -718,7 +718,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProject.Setid(AIndex : Integer; AValue : String); 
+Procedure TProject.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -728,7 +728,7 @@ end;
 
 
 
-Procedure TProject.Setkind(AIndex : Integer; AValue : String); 
+Procedure TProject.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -738,7 +738,7 @@ end;
 
 
 
-Procedure TProject.Setnumber(AIndex : Integer; AValue : String); 
+Procedure TProject.Setnumber(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnumber=AValue) then exit;
@@ -765,7 +765,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuota.Setkind(AIndex : Integer; AValue : String); 
+Procedure TQuota.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -842,7 +842,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourceRecordSet.Setkind(AIndex : Integer; AValue : String); 
+Procedure TResourceRecordSet.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -852,7 +852,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Setname(AIndex : Integer; AValue : String); 
+Procedure TResourceRecordSet.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -882,7 +882,7 @@ end;
 
 
 
-Procedure TResourceRecordSet.Set_type(AIndex : Integer; AValue : String); 
+Procedure TResourceRecordSet.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -923,7 +923,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourceRecordSetsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TResourceRecordSetsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -933,7 +933,7 @@ end;
 
 
 
-Procedure TResourceRecordSetsListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TResourceRecordSetsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googledoubleclickbidmanager.pp

@@ -80,8 +80,8 @@ type
   Protected
     //Property setters
     Procedure SetfilterIds(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetfilterType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfilterType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -103,7 +103,7 @@ type
     FlineItems : String;
   Protected
     //Property setters
-    Procedure SetlineItems(AIndex : Integer; AValue : String); virtual;
+    Procedure SetlineItems(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property lineItems : String Index 0 Read FlineItems Write SetlineItems;
@@ -121,8 +121,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property _type : String Index 0 Read F_type Write Set_type;
@@ -140,7 +140,7 @@ type
     Fqueries : TListQueriesResponseTypequeriesArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setqueries(AIndex : Integer; AValue : TListQueriesResponseTypequeriesArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -163,7 +163,7 @@ type
     Freports : TListReportsResponseTypereportsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setreports(AIndex : Integer; AValue : TListReportsResponseTypereportsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -194,7 +194,7 @@ type
     Procedure SetgroupBys(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetincludeInviteData(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -225,14 +225,14 @@ type
     FtimezoneCode : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmetadata(AIndex : Integer; AValue : TQueryMetadata); virtual;
     Procedure Setparams(AIndex : Integer; AValue : TParameters); virtual;
-    Procedure SetqueryId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreportDataEndTimeMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreportDataStartTimeMs(AIndex : Integer; AValue : String); virtual;
+    Procedure SetqueryId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); virtual;
     Procedure Setschedule(AIndex : Integer; AValue : TQuerySchedule); virtual;
-    Procedure SettimezoneCode(AIndex : Integer; AValue : String); virtual;
+    Procedure SettimezoneCode(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -265,17 +265,17 @@ type
     Ftitle : String;
   Protected
     //Property setters
-    Procedure SetdataRange(AIndex : Integer; AValue : String); virtual;
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
-    Procedure SetgoogleCloudStoragePathForLatestReport(AIndex : Integer; AValue : String); virtual;
-    Procedure SetgoogleDrivePathForLatestReport(AIndex : Integer; AValue : String); virtual;
-    Procedure SetlatestReportRunTimeMs(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocale(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdataRange(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetgoogleCloudStoragePathForLatestReport(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetgoogleDrivePathForLatestReport(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetlatestReportRunTimeMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
     Procedure SetreportCount(AIndex : Integer; AValue : integer); virtual;
     Procedure Setrunning(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetsendNotification(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetshareEmailAddress(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -308,10 +308,10 @@ type
     FnextRunTimezoneCode : String;
   Protected
     //Property setters
-    Procedure SetendTimeMs(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfrequency(AIndex : Integer; AValue : String); virtual;
+    Procedure SetendTimeMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfrequency(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnextRunMinuteOfDay(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetnextRunTimezoneCode(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextRunTimezoneCode(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property endTimeMs : String Index 0 Read FendTimeMs Write SetendTimeMs;
@@ -352,7 +352,7 @@ type
     FerrorCode : String;
   Protected
     //Property setters
-    Procedure SeterrorCode(AIndex : Integer; AValue : String); virtual;
+    Procedure SeterrorCode(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property errorCode : String Index 0 Read FerrorCode Write SeterrorCode;
@@ -369,8 +369,8 @@ type
     FreportId : String;
   Protected
     //Property setters
-    Procedure SetqueryId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreportId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetqueryId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreportId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property queryId : String Index 0 Read FqueryId Write SetqueryId;
@@ -390,9 +390,9 @@ type
     Fstatus : TReportStatus;
   Protected
     //Property setters
-    Procedure SetgoogleCloudStoragePath(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreportDataEndTimeMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreportDataStartTimeMs(AIndex : Integer; AValue : String); virtual;
+    Procedure SetgoogleCloudStoragePath(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); virtual;
     Procedure Setstatus(AIndex : Integer; AValue : TReportStatus); virtual;
   Public
   Published
@@ -416,9 +416,9 @@ type
   Protected
     //Property setters
     Procedure Setfailure(AIndex : Integer; AValue : TReportFailure); virtual;
-    Procedure SetfinishTimeMs(AIndex : Integer; AValue : String); virtual;
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfinishTimeMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property failure : TReportFailure Index 0 Read Ffailure Write Setfailure;
@@ -443,8 +443,8 @@ type
   Protected
     //Property setters
     Procedure Setchanged(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetentityId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetentityName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetentityId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetentityName(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setpersisted(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetrowNumber(AIndex : Integer; AValue : integer); virtual;
@@ -475,10 +475,10 @@ type
     FtimezoneCode : String;
   Protected
     //Property setters
-    Procedure SetdataRange(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreportDataEndTimeMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreportDataStartTimeMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SettimezoneCode(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdataRange(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettimezoneCode(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property dataRange : String Index 0 Read FdataRange Write SetdataRange;
@@ -500,8 +500,8 @@ type
   Protected
     //Property setters
     Procedure SetdryRun(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
-    Procedure SetlineItems(AIndex : Integer; AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetlineItems(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property dryRun : boolean Index 0 Read FdryRun Write SetdryRun;
@@ -655,7 +655,7 @@ end;
 
 
 
-Procedure TDownloadLineItemsRequest.SetfilterType(AIndex : Integer; AValue : String); 
+Procedure TDownloadLineItemsRequest.SetfilterType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfilterType=AValue) then exit;
@@ -665,7 +665,7 @@ end;
 
 
 
-Procedure TDownloadLineItemsRequest.Setformat(AIndex : Integer; AValue : String); 
+Procedure TDownloadLineItemsRequest.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -695,7 +695,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDownloadLineItemsResponse.SetlineItems(AIndex : Integer; AValue : String); 
+Procedure TDownloadLineItemsResponse.SetlineItems(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlineItems=AValue) then exit;
@@ -712,7 +712,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TFilterPair.Set_type(AIndex : Integer; AValue : String); 
+Procedure TFilterPair.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -722,7 +722,7 @@ end;
 
 
 
-Procedure TFilterPair.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TFilterPair.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -750,7 +750,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListQueriesResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListQueriesResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -790,7 +790,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListReportsResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TListReportsResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -870,7 +870,7 @@ end;
 
 
 
-Procedure TParameters.Set_type(AIndex : Integer; AValue : String); 
+Procedure TParameters.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -913,7 +913,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuery.Setkind(AIndex : Integer; AValue : String); 
+Procedure TQuery.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -943,7 +943,7 @@ end;
 
 
 
-Procedure TQuery.SetqueryId(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetqueryId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FqueryId=AValue) then exit;
@@ -953,7 +953,7 @@ end;
 
 
 
-Procedure TQuery.SetreportDataEndTimeMs(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportDataEndTimeMs=AValue) then exit;
@@ -963,7 +963,7 @@ end;
 
 
 
-Procedure TQuery.SetreportDataStartTimeMs(AIndex : Integer; AValue : String); 
+Procedure TQuery.SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportDataStartTimeMs=AValue) then exit;
@@ -983,7 +983,7 @@ end;
 
 
 
-Procedure TQuery.SettimezoneCode(AIndex : Integer; AValue : String); 
+Procedure TQuery.SettimezoneCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtimezoneCode=AValue) then exit;
@@ -1000,7 +1000,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQueryMetadata.SetdataRange(AIndex : Integer; AValue : String); 
+Procedure TQueryMetadata.SetdataRange(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdataRange=AValue) then exit;
@@ -1010,7 +1010,7 @@ end;
 
 
 
-Procedure TQueryMetadata.Setformat(AIndex : Integer; AValue : String); 
+Procedure TQueryMetadata.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -1020,7 +1020,7 @@ end;
 
 
 
-Procedure TQueryMetadata.SetgoogleCloudStoragePathForLatestReport(AIndex : Integer; AValue : String); 
+Procedure TQueryMetadata.SetgoogleCloudStoragePathForLatestReport(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgoogleCloudStoragePathForLatestReport=AValue) then exit;
@@ -1030,7 +1030,7 @@ end;
 
 
 
-Procedure TQueryMetadata.SetgoogleDrivePathForLatestReport(AIndex : Integer; AValue : String); 
+Procedure TQueryMetadata.SetgoogleDrivePathForLatestReport(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgoogleDrivePathForLatestReport=AValue) then exit;
@@ -1040,7 +1040,7 @@ end;
 
 
 
-Procedure TQueryMetadata.SetlatestReportRunTimeMs(AIndex : Integer; AValue : String); 
+Procedure TQueryMetadata.SetlatestReportRunTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlatestReportRunTimeMs=AValue) then exit;
@@ -1050,7 +1050,7 @@ end;
 
 
 
-Procedure TQueryMetadata.Setlocale(AIndex : Integer; AValue : String); 
+Procedure TQueryMetadata.Setlocale(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocale=AValue) then exit;
@@ -1100,7 +1100,7 @@ end;
 
 
 
-Procedure TQueryMetadata.Settitle(AIndex : Integer; AValue : String); 
+Procedure TQueryMetadata.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1130,7 +1130,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuerySchedule.SetendTimeMs(AIndex : Integer; AValue : String); 
+Procedure TQuerySchedule.SetendTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTimeMs=AValue) then exit;
@@ -1140,7 +1140,7 @@ end;
 
 
 
-Procedure TQuerySchedule.Setfrequency(AIndex : Integer; AValue : String); 
+Procedure TQuerySchedule.Setfrequency(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffrequency=AValue) then exit;
@@ -1160,7 +1160,7 @@ end;
 
 
 
-Procedure TQuerySchedule.SetnextRunTimezoneCode(AIndex : Integer; AValue : String); 
+Procedure TQuerySchedule.SetnextRunTimezoneCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextRunTimezoneCode=AValue) then exit;
@@ -1214,7 +1214,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportFailure.SeterrorCode(AIndex : Integer; AValue : String); 
+Procedure TReportFailure.SeterrorCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FerrorCode=AValue) then exit;
@@ -1231,7 +1231,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportKey.SetqueryId(AIndex : Integer; AValue : String); 
+Procedure TReportKey.SetqueryId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FqueryId=AValue) then exit;
@@ -1241,7 +1241,7 @@ end;
 
 
 
-Procedure TReportKey.SetreportId(AIndex : Integer; AValue : String); 
+Procedure TReportKey.SetreportId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportId=AValue) then exit;
@@ -1258,7 +1258,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportMetadata.SetgoogleCloudStoragePath(AIndex : Integer; AValue : String); 
+Procedure TReportMetadata.SetgoogleCloudStoragePath(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgoogleCloudStoragePath=AValue) then exit;
@@ -1268,7 +1268,7 @@ end;
 
 
 
-Procedure TReportMetadata.SetreportDataEndTimeMs(AIndex : Integer; AValue : String); 
+Procedure TReportMetadata.SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportDataEndTimeMs=AValue) then exit;
@@ -1278,7 +1278,7 @@ end;
 
 
 
-Procedure TReportMetadata.SetreportDataStartTimeMs(AIndex : Integer; AValue : String); 
+Procedure TReportMetadata.SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportDataStartTimeMs=AValue) then exit;
@@ -1315,7 +1315,7 @@ end;
 
 
 
-Procedure TReportStatus.SetfinishTimeMs(AIndex : Integer; AValue : String); 
+Procedure TReportStatus.SetfinishTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfinishTimeMs=AValue) then exit;
@@ -1325,7 +1325,7 @@ end;
 
 
 
-Procedure TReportStatus.Setformat(AIndex : Integer; AValue : String); 
+Procedure TReportStatus.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -1335,7 +1335,7 @@ end;
 
 
 
-Procedure TReportStatus.Setstate(AIndex : Integer; AValue : String); 
+Procedure TReportStatus.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -1362,7 +1362,7 @@ end;
 
 
 
-Procedure TRowStatus.SetentityId(AIndex : Integer; AValue : String); 
+Procedure TRowStatus.SetentityId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FentityId=AValue) then exit;
@@ -1372,7 +1372,7 @@ end;
 
 
 
-Procedure TRowStatus.SetentityName(AIndex : Integer; AValue : String); 
+Procedure TRowStatus.SetentityName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FentityName=AValue) then exit;
@@ -1432,7 +1432,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRunQueryRequest.SetdataRange(AIndex : Integer; AValue : String); 
+Procedure TRunQueryRequest.SetdataRange(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdataRange=AValue) then exit;
@@ -1442,7 +1442,7 @@ end;
 
 
 
-Procedure TRunQueryRequest.SetreportDataEndTimeMs(AIndex : Integer; AValue : String); 
+Procedure TRunQueryRequest.SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportDataEndTimeMs=AValue) then exit;
@@ -1452,7 +1452,7 @@ end;
 
 
 
-Procedure TRunQueryRequest.SetreportDataStartTimeMs(AIndex : Integer; AValue : String); 
+Procedure TRunQueryRequest.SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportDataStartTimeMs=AValue) then exit;
@@ -1462,7 +1462,7 @@ end;
 
 
 
-Procedure TRunQueryRequest.SettimezoneCode(AIndex : Integer; AValue : String); 
+Procedure TRunQueryRequest.SettimezoneCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtimezoneCode=AValue) then exit;
@@ -1489,7 +1489,7 @@ end;
 
 
 
-Procedure TUploadLineItemsRequest.Setformat(AIndex : Integer; AValue : String); 
+Procedure TUploadLineItemsRequest.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -1499,7 +1499,7 @@ end;
 
 
 
-Procedure TUploadLineItemsRequest.SetlineItems(AIndex : Integer; AValue : String); 
+Procedure TUploadLineItemsRequest.SetlineItems(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlineItems=AValue) then exit;

packages/googleapi/src/googledoubleclicksearch.pp

@@ -82,12 +82,12 @@ type
     FsegmentationType : String;
   Protected
     //Property setters
-    Procedure SetadvertiserId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetagencyId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetavailabilityTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsegmentationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsegmentationName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsegmentationType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetagencyId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetavailabilityTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsegmentationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsegmentationName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsegmentationType(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property advertiserId : String Index 0 Read FadvertiserId Write SetadvertiserId;
@@ -141,39 +141,39 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetadGroupId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetadId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetadvertiserId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetagencyId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetattributionModel(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcampaignId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setchannel(AIndex : Integer; AValue : String); virtual;
-    Procedure SetclickId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetconversionId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetconversionModifiedTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetconversionTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcountMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcriterionId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcurrencyCode(AIndex : Integer; AValue : String); virtual;
+    Procedure SetadGroupId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetadId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetagencyId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetattributionModel(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcampaignId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setchannel(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetclickId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetconversionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetconversionModifiedTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetconversionTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcountMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcriterionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcustomDimension(AIndex : Integer; AValue : TConversionTypecustomDimensionArray); virtual;
     Procedure SetcustomMetric(AIndex : Integer; AValue : TConversionTypecustomMetricArray); virtual;
-    Procedure SetdeviceType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdsConversionId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetengineAccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfeedId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfloodlightOrderId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductCountry(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductGroupId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductLanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure SetquantityMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure SetrevenueMicros(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsegmentationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsegmentationName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsegmentationType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstoreId(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdeviceType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdsConversionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetengineAccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfeedId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfloodlightOrderId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductCountry(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductGroupId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductLanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetquantityMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetrevenueMicros(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsegmentationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsegmentationName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsegmentationType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstoreId(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;
@@ -227,7 +227,7 @@ type
   Protected
     //Property setters
     Procedure Setconversion(AIndex : Integer; AValue : TConversionListTypeconversionArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -249,8 +249,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -268,7 +268,7 @@ type
     Fvalue : double;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; AValue : double); virtual;
   Public
   Published
@@ -287,8 +287,8 @@ type
     Furl : String;
   Protected
     //Property setters
-    Procedure SetbyteCount(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbyteCount(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property byteCount : String Index 0 Read FbyteCount Write SetbyteCount;
@@ -314,14 +314,14 @@ type
   Protected
     //Property setters
     Procedure Setfiles(AIndex : Integer; AValue : TReportTypefilesArray); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetisReportReady(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrequest(AIndex : Integer; AValue : TReportRequest); virtual;
     Procedure SetrowCount(AIndex : Integer; AValue : integer); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
-    Procedure SetstatisticsCurrencyCode(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatisticsTimeZone(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstatisticsCurrencyCode(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstatisticsTimeZone(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -357,15 +357,15 @@ type
     FstartDate : String;
   Protected
     //Property setters
-    Procedure SetcolumnName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomDimensionName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomMetricName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendDate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcolumnName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomDimensionName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomMetricName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
     Procedure SetgroupByColumn(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetheaderText(AIndex : Integer; AValue : String); virtual;
-    Procedure SetplatformSource(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsavedColumnName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartDate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetheaderText(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetplatformSource(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsavedColumnName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property columnName : String Index 0 Read FcolumnName Write SetcolumnName;
@@ -393,7 +393,7 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setcolumn(AIndex : Integer; AValue : TReportApiColumnSpec); virtual;
-    Procedure Set_operator(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
     Procedure Setvalues(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -418,7 +418,7 @@ type
   Protected
     //Property setters
     Procedure Setcolumn(AIndex : Integer; AValue : TReportApiColumnSpec); virtual;
-    Procedure SetsortOrder(AIndex : Integer; AValue : String); virtual;
+    Procedure SetsortOrder(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property column : TReportApiColumnSpec Index 0 Read Fcolumn Write Setcolumn;
@@ -441,13 +441,13 @@ type
     FkeywordId : String;
   Protected
     //Property setters
-    Procedure SetadGroupId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetadId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetadvertiserId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetagencyId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcampaignId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetengineAccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetkeywordId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetadGroupId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetadId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetagencyId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcampaignId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetengineAccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetkeywordId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property adGroupId : String Index 0 Read FadGroupId Write SetadGroupId;
@@ -474,8 +474,8 @@ type
     //Property setters
     Procedure SetchangedAttributesSinceTimestamp(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SetchangedMetricsSinceTimestamp(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetendDate(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartDate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property changedAttributesSinceTimestamp : TDatetime Index 0 Read FchangedAttributesSinceTimestamp Write SetchangedAttributesSinceTimestamp;
@@ -508,17 +508,17 @@ type
   Protected
     //Property setters
     Procedure Setcolumns(AIndex : Integer; AValue : TReportRequestTypecolumnsArray); virtual;
-    Procedure SetdownloadFormat(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdownloadFormat(AIndex : Integer; const AValue : String); virtual;
     Procedure Setfilters(AIndex : Integer; AValue : TReportRequestTypefiltersArray); virtual;
     Procedure SetincludeDeletedEntities(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetincludeRemovedEntities(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetmaxRowsPerFile(AIndex : Integer; AValue : integer); virtual;
     Procedure SetorderBy(AIndex : Integer; AValue : TReportRequestTypeorderByArray); virtual;
     Procedure SetreportScope(AIndex : Integer; AValue : TReportRequestTypereportScope); virtual;
-    Procedure SetreportType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetreportType(AIndex : Integer; const AValue : String); virtual;
     Procedure SetrowCount(AIndex : Integer; AValue : integer); virtual;
     Procedure SetstartRow(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetstatisticsCurrency(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstatisticsCurrency(AIndex : Integer; const AValue : String); virtual;
     Procedure SettimeRange(AIndex : Integer; AValue : TReportRequestTypetimeRange); virtual;
     Procedure SetverifySingleTimeZone(AIndex : Integer; AValue : boolean); virtual;
     //2.6.4. bug workaround
@@ -570,9 +570,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsavedColumnName(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsavedColumnName(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;
@@ -592,7 +592,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TSavedColumnListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -771,7 +771,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAvailability.SetadvertiserId(AIndex : Integer; AValue : String); 
+Procedure TAvailability.SetadvertiserId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadvertiserId=AValue) then exit;
@@ -781,7 +781,7 @@ end;
 
 
 
-Procedure TAvailability.SetagencyId(AIndex : Integer; AValue : String); 
+Procedure TAvailability.SetagencyId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FagencyId=AValue) then exit;
@@ -791,7 +791,7 @@ end;
 
 
 
-Procedure TAvailability.SetavailabilityTimestamp(AIndex : Integer; AValue : String); 
+Procedure TAvailability.SetavailabilityTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FavailabilityTimestamp=AValue) then exit;
@@ -801,7 +801,7 @@ end;
 
 
 
-Procedure TAvailability.SetsegmentationId(AIndex : Integer; AValue : String); 
+Procedure TAvailability.SetsegmentationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsegmentationId=AValue) then exit;
@@ -811,7 +811,7 @@ end;
 
 
 
-Procedure TAvailability.SetsegmentationName(AIndex : Integer; AValue : String); 
+Procedure TAvailability.SetsegmentationName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsegmentationName=AValue) then exit;
@@ -821,7 +821,7 @@ end;
 
 
 
-Procedure TAvailability.SetsegmentationType(AIndex : Integer; AValue : String); 
+Procedure TAvailability.SetsegmentationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsegmentationType=AValue) then exit;
@@ -838,7 +838,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TConversion.SetadGroupId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetadGroupId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadGroupId=AValue) then exit;
@@ -848,7 +848,7 @@ end;
 
 
 
-Procedure TConversion.SetadId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetadId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadId=AValue) then exit;
@@ -858,7 +858,7 @@ end;
 
 
 
-Procedure TConversion.SetadvertiserId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetadvertiserId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadvertiserId=AValue) then exit;
@@ -868,7 +868,7 @@ end;
 
 
 
-Procedure TConversion.SetagencyId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetagencyId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FagencyId=AValue) then exit;
@@ -878,7 +878,7 @@ end;
 
 
 
-Procedure TConversion.SetattributionModel(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetattributionModel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FattributionModel=AValue) then exit;
@@ -888,7 +888,7 @@ end;
 
 
 
-Procedure TConversion.SetcampaignId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetcampaignId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcampaignId=AValue) then exit;
@@ -898,7 +898,7 @@ end;
 
 
 
-Procedure TConversion.Setchannel(AIndex : Integer; AValue : String); 
+Procedure TConversion.Setchannel(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fchannel=AValue) then exit;
@@ -908,7 +908,7 @@ end;
 
 
 
-Procedure TConversion.SetclickId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetclickId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclickId=AValue) then exit;
@@ -918,7 +918,7 @@ end;
 
 
 
-Procedure TConversion.SetconversionId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetconversionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FconversionId=AValue) then exit;
@@ -928,7 +928,7 @@ end;
 
 
 
-Procedure TConversion.SetconversionModifiedTimestamp(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetconversionModifiedTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FconversionModifiedTimestamp=AValue) then exit;
@@ -938,7 +938,7 @@ end;
 
 
 
-Procedure TConversion.SetconversionTimestamp(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetconversionTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FconversionTimestamp=AValue) then exit;
@@ -948,7 +948,7 @@ end;
 
 
 
-Procedure TConversion.SetcountMillis(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetcountMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcountMillis=AValue) then exit;
@@ -958,7 +958,7 @@ end;
 
 
 
-Procedure TConversion.SetcriterionId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetcriterionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcriterionId=AValue) then exit;
@@ -968,7 +968,7 @@ end;
 
 
 
-Procedure TConversion.SetcurrencyCode(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetcurrencyCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -998,7 +998,7 @@ end;
 
 
 
-Procedure TConversion.SetdeviceType(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetdeviceType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdeviceType=AValue) then exit;
@@ -1008,7 +1008,7 @@ end;
 
 
 
-Procedure TConversion.SetdsConversionId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetdsConversionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdsConversionId=AValue) then exit;
@@ -1018,7 +1018,7 @@ end;
 
 
 
-Procedure TConversion.SetengineAccountId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetengineAccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FengineAccountId=AValue) then exit;
@@ -1028,7 +1028,7 @@ end;
 
 
 
-Procedure TConversion.SetfeedId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetfeedId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfeedId=AValue) then exit;
@@ -1038,7 +1038,7 @@ end;
 
 
 
-Procedure TConversion.SetfloodlightOrderId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetfloodlightOrderId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfloodlightOrderId=AValue) then exit;
@@ -1048,7 +1048,7 @@ end;
 
 
 
-Procedure TConversion.SetproductCountry(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetproductCountry(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductCountry=AValue) then exit;
@@ -1058,7 +1058,7 @@ end;
 
 
 
-Procedure TConversion.SetproductGroupId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetproductGroupId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductGroupId=AValue) then exit;
@@ -1068,7 +1068,7 @@ end;
 
 
 
-Procedure TConversion.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -1078,7 +1078,7 @@ end;
 
 
 
-Procedure TConversion.SetproductLanguage(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetproductLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductLanguage=AValue) then exit;
@@ -1088,7 +1088,7 @@ end;
 
 
 
-Procedure TConversion.SetquantityMillis(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetquantityMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FquantityMillis=AValue) then exit;
@@ -1098,7 +1098,7 @@ end;
 
 
 
-Procedure TConversion.SetrevenueMicros(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetrevenueMicros(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrevenueMicros=AValue) then exit;
@@ -1108,7 +1108,7 @@ end;
 
 
 
-Procedure TConversion.SetsegmentationId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetsegmentationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsegmentationId=AValue) then exit;
@@ -1118,7 +1118,7 @@ end;
 
 
 
-Procedure TConversion.SetsegmentationName(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetsegmentationName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsegmentationName=AValue) then exit;
@@ -1128,7 +1128,7 @@ end;
 
 
 
-Procedure TConversion.SetsegmentationType(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetsegmentationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsegmentationType=AValue) then exit;
@@ -1138,7 +1138,7 @@ end;
 
 
 
-Procedure TConversion.Setstate(AIndex : Integer; AValue : String); 
+Procedure TConversion.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -1148,7 +1148,7 @@ end;
 
 
 
-Procedure TConversion.SetstoreId(AIndex : Integer; AValue : String); 
+Procedure TConversion.SetstoreId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstoreId=AValue) then exit;
@@ -1158,7 +1158,7 @@ end;
 
 
 
-Procedure TConversion.Set_type(AIndex : Integer; AValue : String); 
+Procedure TConversion.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1210,7 +1210,7 @@ end;
 
 
 
-Procedure TConversionList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TConversionList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1240,7 +1240,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomDimension.Setname(AIndex : Integer; AValue : String); 
+Procedure TCustomDimension.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1250,7 +1250,7 @@ end;
 
 
 
-Procedure TCustomDimension.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TCustomDimension.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1267,7 +1267,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomMetric.Setname(AIndex : Integer; AValue : String); 
+Procedure TCustomMetric.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1294,7 +1294,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportTypefilesItem.SetbyteCount(AIndex : Integer; AValue : String); 
+Procedure TReportTypefilesItem.SetbyteCount(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbyteCount=AValue) then exit;
@@ -1304,7 +1304,7 @@ end;
 
 
 
-Procedure TReportTypefilesItem.Seturl(AIndex : Integer; AValue : String); 
+Procedure TReportTypefilesItem.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -1331,7 +1331,7 @@ end;
 
 
 
-Procedure TReport.Setid(AIndex : Integer; AValue : String); 
+Procedure TReport.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1351,7 +1351,7 @@ end;
 
 
 
-Procedure TReport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TReport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1391,7 +1391,7 @@ end;
 
 
 
-Procedure TReport.SetstatisticsCurrencyCode(AIndex : Integer; AValue : String); 
+Procedure TReport.SetstatisticsCurrencyCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatisticsCurrencyCode=AValue) then exit;
@@ -1401,7 +1401,7 @@ end;
 
 
 
-Procedure TReport.SetstatisticsTimeZone(AIndex : Integer; AValue : String); 
+Procedure TReport.SetstatisticsTimeZone(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatisticsTimeZone=AValue) then exit;
@@ -1432,7 +1432,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportApiColumnSpec.SetcolumnName(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetcolumnName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcolumnName=AValue) then exit;
@@ -1442,7 +1442,7 @@ end;
 
 
 
-Procedure TReportApiColumnSpec.SetcustomDimensionName(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetcustomDimensionName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomDimensionName=AValue) then exit;
@@ -1452,7 +1452,7 @@ end;
 
 
 
-Procedure TReportApiColumnSpec.SetcustomMetricName(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetcustomMetricName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomMetricName=AValue) then exit;
@@ -1462,7 +1462,7 @@ end;
 
 
 
-Procedure TReportApiColumnSpec.SetendDate(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetendDate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendDate=AValue) then exit;
@@ -1482,7 +1482,7 @@ end;
 
 
 
-Procedure TReportApiColumnSpec.SetheaderText(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetheaderText(AIndex : Integer; const AValue : String); 
 
 begin
   If (FheaderText=AValue) then exit;
@@ -1492,7 +1492,7 @@ end;
 
 
 
-Procedure TReportApiColumnSpec.SetplatformSource(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetplatformSource(AIndex : Integer; const AValue : String); 
 
 begin
   If (FplatformSource=AValue) then exit;
@@ -1502,7 +1502,7 @@ end;
 
 
 
-Procedure TReportApiColumnSpec.SetsavedColumnName(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetsavedColumnName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsavedColumnName=AValue) then exit;
@@ -1512,7 +1512,7 @@ end;
 
 
 
-Procedure TReportApiColumnSpec.SetstartDate(AIndex : Integer; AValue : String); 
+Procedure TReportApiColumnSpec.SetstartDate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartDate=AValue) then exit;
@@ -1539,7 +1539,7 @@ end;
 
 
 
-Procedure TReportRequestTypefiltersItem.Set_operator(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypefiltersItem.Set_operator(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_operator=AValue) then exit;
@@ -1600,7 +1600,7 @@ end;
 
 
 
-Procedure TReportRequestTypeorderByItem.SetsortOrder(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypeorderByItem.SetsortOrder(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsortOrder=AValue) then exit;
@@ -1617,7 +1617,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReportRequestTypereportScope.SetadGroupId(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypereportScope.SetadGroupId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadGroupId=AValue) then exit;
@@ -1627,7 +1627,7 @@ end;
 
 
 
-Procedure TReportRequestTypereportScope.SetadId(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypereportScope.SetadId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadId=AValue) then exit;
@@ -1637,7 +1637,7 @@ end;
 
 
 
-Procedure TReportRequestTypereportScope.SetadvertiserId(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypereportScope.SetadvertiserId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FadvertiserId=AValue) then exit;
@@ -1647,7 +1647,7 @@ end;
 
 
 
-Procedure TReportRequestTypereportScope.SetagencyId(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypereportScope.SetagencyId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FagencyId=AValue) then exit;
@@ -1657,7 +1657,7 @@ end;
 
 
 
-Procedure TReportRequestTypereportScope.SetcampaignId(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypereportScope.SetcampaignId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcampaignId=AValue) then exit;
@@ -1667,7 +1667,7 @@ end;
 
 
 
-Procedure TReportRequestTypereportScope.SetengineAccountId(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypereportScope.SetengineAccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FengineAccountId=AValue) then exit;
@@ -1677,7 +1677,7 @@ end;
 
 
 
-Procedure TReportRequestTypereportScope.SetkeywordId(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypereportScope.SetkeywordId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FkeywordId=AValue) then exit;
@@ -1714,7 +1714,7 @@ end;
 
 
 
-Procedure TReportRequestTypetimeRange.SetendDate(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypetimeRange.SetendDate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendDate=AValue) then exit;
@@ -1724,7 +1724,7 @@ end;
 
 
 
-Procedure TReportRequestTypetimeRange.SetstartDate(AIndex : Integer; AValue : String); 
+Procedure TReportRequestTypetimeRange.SetstartDate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartDate=AValue) then exit;
@@ -1751,7 +1751,7 @@ end;
 
 
 
-Procedure TReportRequest.SetdownloadFormat(AIndex : Integer; AValue : String); 
+Procedure TReportRequest.SetdownloadFormat(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdownloadFormat=AValue) then exit;
@@ -1821,7 +1821,7 @@ end;
 
 
 
-Procedure TReportRequest.SetreportType(AIndex : Integer; AValue : String); 
+Procedure TReportRequest.SetreportType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportType=AValue) then exit;
@@ -1851,7 +1851,7 @@ end;
 
 
 
-Procedure TReportRequest.SetstatisticsCurrency(AIndex : Integer; AValue : String); 
+Procedure TReportRequest.SetstatisticsCurrency(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatisticsCurrency=AValue) then exit;
@@ -1916,7 +1916,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSavedColumn.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSavedColumn.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1926,7 +1926,7 @@ end;
 
 
 
-Procedure TSavedColumn.SetsavedColumnName(AIndex : Integer; AValue : String); 
+Procedure TSavedColumn.SetsavedColumnName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsavedColumnName=AValue) then exit;
@@ -1936,7 +1936,7 @@ end;
 
 
 
-Procedure TSavedColumn.Set_type(AIndex : Integer; AValue : String); 
+Procedure TSavedColumn.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1974,7 +1974,7 @@ end;
 
 
 
-Procedure TSavedColumnList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSavedColumnList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googlefitness.pp

@@ -66,10 +66,10 @@ type
     Fversion : String;
   Protected
     //Property setters
-    Procedure SetdetailsUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpackageName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdetailsUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property detailsUrl : String Index 0 Read FdetailsUrl Write SetdetailsUrl;
@@ -95,13 +95,13 @@ type
     Fvalue : TDataPointTypevalueArray;
   Protected
     //Property setters
-    Procedure SetcomputationTimeMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdataTypeName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTimeNanos(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmodifiedTimeMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoriginDataSourceId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetrawTimestampNanos(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTimeNanos(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcomputationTimeMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdataTypeName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTimeNanos(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmodifiedTimeMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetoriginDataSourceId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetrawTimestampNanos(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTimeNanos(AIndex : Integer; const AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; AValue : TDataPointTypevalueArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -137,12 +137,12 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setapplication(AIndex : Integer; AValue : TApplication); virtual;
-    Procedure SetdataStreamId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdataStreamName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdataStreamId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdataStreamName(AIndex : Integer; const AValue : String); virtual;
     Procedure SetdataType(AIndex : Integer; AValue : TDataType); virtual;
     Procedure Setdevice(AIndex : Integer; AValue : TDevice); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property application : TApplication Index 0 Read Fapplication Write Setapplication;
@@ -166,7 +166,7 @@ type
   Protected
     //Property setters
     Procedure Setfield(AIndex : Integer; AValue : TDataTypeTypefieldArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -189,8 +189,8 @@ type
     Foptional : boolean;
   Protected
     //Property setters
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setoptional(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -213,10 +213,10 @@ type
     Fpoint : TDatasetTypepointArray;
   Protected
     //Property setters
-    Procedure SetdataSourceId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmaxEndTimeNs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetminStartTimeNs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdataSourceId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmaxEndTimeNs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetminStartTimeNs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpoint(AIndex : Integer; AValue : TDatasetTypepointArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -246,11 +246,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setmanufacturer(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmodel(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmanufacturer(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmodel(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setuid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property manufacturer : String Index 0 Read Fmanufacturer Write Setmanufacturer;
@@ -293,7 +293,7 @@ type
   Protected
     //Property setters
     Procedure SetdeletedSession(AIndex : Integer; AValue : TListSessionsResponseTypedeletedSessionArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsession(AIndex : Integer; AValue : TListSessionsResponseTypesessionArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -324,15 +324,15 @@ type
     FstartTimeMillis : String;
   Protected
     //Property setters
-    Procedure SetactiveTimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SetactiveTimeMillis(AIndex : Integer; const AValue : String); virtual;
     Procedure SetactivityType(AIndex : Integer; AValue : integer); virtual;
     Procedure Setapplication(AIndex : Integer; AValue : TApplication); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTimeMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmodifiedTimeMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTimeMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmodifiedTimeMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTimeMillis(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property activeTimeMillis : String Index 0 Read FactiveTimeMillis Write SetactiveTimeMillis;
@@ -565,7 +565,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TApplication.SetdetailsUrl(AIndex : Integer; AValue : String); 
+Procedure TApplication.SetdetailsUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdetailsUrl=AValue) then exit;
@@ -575,7 +575,7 @@ end;
 
 
 
-Procedure TApplication.Setname(AIndex : Integer; AValue : String); 
+Procedure TApplication.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -585,7 +585,7 @@ end;
 
 
 
-Procedure TApplication.SetpackageName(AIndex : Integer; AValue : String); 
+Procedure TApplication.SetpackageName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpackageName=AValue) then exit;
@@ -595,7 +595,7 @@ end;
 
 
 
-Procedure TApplication.Setversion(AIndex : Integer; AValue : String); 
+Procedure TApplication.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -612,7 +612,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDataPoint.SetcomputationTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TDataPoint.SetcomputationTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcomputationTimeMillis=AValue) then exit;
@@ -622,7 +622,7 @@ end;
 
 
 
-Procedure TDataPoint.SetdataTypeName(AIndex : Integer; AValue : String); 
+Procedure TDataPoint.SetdataTypeName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdataTypeName=AValue) then exit;
@@ -632,7 +632,7 @@ end;
 
 
 
-Procedure TDataPoint.SetendTimeNanos(AIndex : Integer; AValue : String); 
+Procedure TDataPoint.SetendTimeNanos(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTimeNanos=AValue) then exit;
@@ -642,7 +642,7 @@ end;
 
 
 
-Procedure TDataPoint.SetmodifiedTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TDataPoint.SetmodifiedTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmodifiedTimeMillis=AValue) then exit;
@@ -652,7 +652,7 @@ end;
 
 
 
-Procedure TDataPoint.SetoriginDataSourceId(AIndex : Integer; AValue : String); 
+Procedure TDataPoint.SetoriginDataSourceId(AIndex : Integer; const AValue : String); 
 
 begin
   If (ForiginDataSourceId=AValue) then exit;
@@ -662,7 +662,7 @@ end;
 
 
 
-Procedure TDataPoint.SetrawTimestampNanos(AIndex : Integer; AValue : String); 
+Procedure TDataPoint.SetrawTimestampNanos(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrawTimestampNanos=AValue) then exit;
@@ -672,7 +672,7 @@ end;
 
 
 
-Procedure TDataPoint.SetstartTimeNanos(AIndex : Integer; AValue : String); 
+Procedure TDataPoint.SetstartTimeNanos(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTimeNanos=AValue) then exit;
@@ -722,7 +722,7 @@ end;
 
 
 
-Procedure TDataSource.SetdataStreamId(AIndex : Integer; AValue : String); 
+Procedure TDataSource.SetdataStreamId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdataStreamId=AValue) then exit;
@@ -732,7 +732,7 @@ end;
 
 
 
-Procedure TDataSource.SetdataStreamName(AIndex : Integer; AValue : String); 
+Procedure TDataSource.SetdataStreamName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdataStreamName=AValue) then exit;
@@ -762,7 +762,7 @@ end;
 
 
 
-Procedure TDataSource.Setname(AIndex : Integer; AValue : String); 
+Procedure TDataSource.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -772,7 +772,7 @@ end;
 
 
 
-Procedure TDataSource.Set_type(AIndex : Integer; AValue : String); 
+Procedure TDataSource.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -810,7 +810,7 @@ end;
 
 
 
-Procedure TDataType.Setname(AIndex : Integer; AValue : String); 
+Procedure TDataType.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -840,7 +840,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDataTypeField.Setformat(AIndex : Integer; AValue : String); 
+Procedure TDataTypeField.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -850,7 +850,7 @@ end;
 
 
 
-Procedure TDataTypeField.Setname(AIndex : Integer; AValue : String); 
+Procedure TDataTypeField.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -877,7 +877,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDataset.SetdataSourceId(AIndex : Integer; AValue : String); 
+Procedure TDataset.SetdataSourceId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdataSourceId=AValue) then exit;
@@ -887,7 +887,7 @@ end;
 
 
 
-Procedure TDataset.SetmaxEndTimeNs(AIndex : Integer; AValue : String); 
+Procedure TDataset.SetmaxEndTimeNs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmaxEndTimeNs=AValue) then exit;
@@ -897,7 +897,7 @@ end;
 
 
 
-Procedure TDataset.SetminStartTimeNs(AIndex : Integer; AValue : String); 
+Procedure TDataset.SetminStartTimeNs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FminStartTimeNs=AValue) then exit;
@@ -907,7 +907,7 @@ end;
 
 
 
-Procedure TDataset.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TDataset.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -947,7 +947,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDevice.Setmanufacturer(AIndex : Integer; AValue : String); 
+Procedure TDevice.Setmanufacturer(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmanufacturer=AValue) then exit;
@@ -957,7 +957,7 @@ end;
 
 
 
-Procedure TDevice.Setmodel(AIndex : Integer; AValue : String); 
+Procedure TDevice.Setmodel(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmodel=AValue) then exit;
@@ -967,7 +967,7 @@ end;
 
 
 
-Procedure TDevice.Set_type(AIndex : Integer; AValue : String); 
+Procedure TDevice.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -977,7 +977,7 @@ end;
 
 
 
-Procedure TDevice.Setuid(AIndex : Integer; AValue : String); 
+Procedure TDevice.Setuid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuid=AValue) then exit;
@@ -987,7 +987,7 @@ end;
 
 
 
-Procedure TDevice.Setversion(AIndex : Integer; AValue : String); 
+Procedure TDevice.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -1055,7 +1055,7 @@ end;
 
 
 
-Procedure TListSessionsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListSessionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1096,7 +1096,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSession.SetactiveTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSession.SetactiveTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FactiveTimeMillis=AValue) then exit;
@@ -1126,7 +1126,7 @@ end;
 
 
 
-Procedure TSession.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TSession.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1136,7 +1136,7 @@ end;
 
 
 
-Procedure TSession.SetendTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSession.SetendTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTimeMillis=AValue) then exit;
@@ -1146,7 +1146,7 @@ end;
 
 
 
-Procedure TSession.Setid(AIndex : Integer; AValue : String); 
+Procedure TSession.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1156,7 +1156,7 @@ end;
 
 
 
-Procedure TSession.SetmodifiedTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSession.SetmodifiedTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmodifiedTimeMillis=AValue) then exit;
@@ -1166,7 +1166,7 @@ end;
 
 
 
-Procedure TSession.Setname(AIndex : Integer; AValue : String); 
+Procedure TSession.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1176,7 +1176,7 @@ end;
 
 
 
-Procedure TSession.SetstartTimeMillis(AIndex : Integer; AValue : String); 
+Procedure TSession.SetstartTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTimeMillis=AValue) then exit;

packages/googleapi/src/googlefreebase.pp

@@ -45,8 +45,8 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -68,9 +68,9 @@ type
   Protected
     //Property setters
     Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setlang(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlang(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setnotable(AIndex : Integer; AValue : TReconcileCandidateTypenotable); virtual;
   Public
   Published
@@ -112,9 +112,9 @@ type
     Freason : String;
   Protected
     //Property setters
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
-    Procedure Setreason(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property location : String Index 0 Read Flocation Write Setlocation;
@@ -192,7 +192,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileCandidateTypenotable.Setid(AIndex : Integer; AValue : String); 
+Procedure TReconcileCandidateTypenotable.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -202,7 +202,7 @@ end;
 
 
 
-Procedure TReconcileCandidateTypenotable.Setname(AIndex : Integer; AValue : String); 
+Procedure TReconcileCandidateTypenotable.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -229,7 +229,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setlang(AIndex : Integer; AValue : String); 
+Procedure TReconcileCandidate.Setlang(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flang=AValue) then exit;
@@ -239,7 +239,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setmid(AIndex : Integer; AValue : String); 
+Procedure TReconcileCandidate.Setmid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmid=AValue) then exit;
@@ -249,7 +249,7 @@ end;
 
 
 
-Procedure TReconcileCandidate.Setname(AIndex : Integer; AValue : String); 
+Procedure TReconcileCandidate.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -303,7 +303,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReconcileGetTypewarningItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TReconcileGetTypewarningItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -313,7 +313,7 @@ end;
 
 
 
-Procedure TReconcileGetTypewarningItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TReconcileGetTypewarningItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -323,7 +323,7 @@ end;
 
 
 
-Procedure TReconcileGetTypewarningItem.Setreason(AIndex : Integer; AValue : String); 
+Procedure TReconcileGetTypewarningItem.Setreason(AIndex : Integer; const AValue : String); 
 
 begin
   If (Freason=AValue) then exit;

packages/googleapi/src/googlefusiontables.pp

@@ -97,8 +97,8 @@ type
     Fweight : integer;
   Protected
     //Property setters
-    Procedure Setcolor(AIndex : Integer; AValue : String); virtual;
-    Procedure Seticon(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seticon(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmax(AIndex : Integer; AValue : double); virtual;
     Procedure Setmin(AIndex : Integer; AValue : double); virtual;
     Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
@@ -156,14 +156,14 @@ type
     //Property setters
     Procedure SetbaseColumn(AIndex : Integer; AValue : TColumnTypebaseColumn); virtual;
     Procedure SetcolumnId(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetcolumnJsonSchema(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcolumnPropertiesJson(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetformatPattern(AIndex : Integer; AValue : String); virtual;
-    Procedure SetgraphPredicate(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcolumnJsonSchema(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcolumnPropertiesJson(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetformatPattern(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetgraphPredicate(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
     Procedure SetvalidValues(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetvalidateData(AIndex : Integer; AValue : boolean); virtual;
     //2.6.4. bug workaround
@@ -200,8 +200,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TColumnListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -230,7 +230,7 @@ type
     //Property setters
     Procedure Setgeometries(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     Procedure Setgeometry(AIndex : Integer; AValue : TJSONSchema); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -253,8 +253,8 @@ type
     FnumRowsReceived : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumRowsReceived(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumRowsReceived(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -274,7 +274,7 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setcoordinates(AIndex : Integer; AValue : TLineTypecoordinatesArray); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -299,7 +299,7 @@ type
     FstrokeWeightStyler : TStyleFunction;
   Protected
     //Property setters
-    Procedure SetstrokeColor(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstrokeColor(AIndex : Integer; const AValue : String); virtual;
     Procedure SetstrokeColorStyler(AIndex : Integer; AValue : TStyleFunction); virtual;
     Procedure SetstrokeOpacity(AIndex : Integer; AValue : double); virtual;
     Procedure SetstrokeWeight(AIndex : Integer; AValue : integer); virtual;
@@ -326,7 +326,7 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setcoordinates(AIndex : Integer; AValue : TdoubleArray); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -348,7 +348,7 @@ type
     FiconStyler : TStyleFunction;
   Protected
     //Property setters
-    Procedure SeticonName(AIndex : Integer; AValue : String); virtual;
+    Procedure SeticonName(AIndex : Integer; const AValue : String); virtual;
     Procedure SeticonStyler(AIndex : Integer; AValue : TStyleFunction); virtual;
   Public
   Published
@@ -369,7 +369,7 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setcoordinates(AIndex : Integer; AValue : TPolygonTypecoordinatesArray); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -397,10 +397,10 @@ type
     FstrokeWeightStyler : TStyleFunction;
   Protected
     //Property setters
-    Procedure SetfillColor(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfillColor(AIndex : Integer; const AValue : String); virtual;
     Procedure SetfillColorStyler(AIndex : Integer; AValue : TStyleFunction); virtual;
     Procedure SetfillOpacity(AIndex : Integer; AValue : double); virtual;
-    Procedure SetstrokeColor(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstrokeColor(AIndex : Integer; const AValue : String); virtual;
     Procedure SetstrokeColorStyler(AIndex : Integer; AValue : TStyleFunction); virtual;
     Procedure SetstrokeOpacity(AIndex : Integer; AValue : double); virtual;
     Procedure SetstrokeWeight(AIndex : Integer; AValue : integer); virtual;
@@ -430,7 +430,7 @@ type
   Protected
     //Property setters
     Procedure Setcolumns(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TSqlresponseTyperowsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -454,7 +454,7 @@ type
     Fopacity : double;
   Protected
     //Property setters
-    Procedure Setcolor(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
     Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
   Public
   Published
@@ -502,9 +502,9 @@ type
   Protected
     //Property setters
     Procedure Setbuckets(AIndex : Integer; AValue : TStyleFunctionTypebucketsArray); virtual;
-    Procedure SetcolumnName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcolumnName(AIndex : Integer; const AValue : String); virtual;
     Procedure Setgradient(AIndex : Integer; AValue : TStyleFunctionTypegradient); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -533,13 +533,13 @@ type
     FtableId : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmarkerOptions(AIndex : Integer; AValue : TPointStyle); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpolygonOptions(AIndex : Integer; AValue : TPolygonStyle); virtual;
     Procedure SetpolylineOptions(AIndex : Integer; AValue : TLineStyle); virtual;
     Procedure SetstyleId(AIndex : Integer; AValue : integer); virtual;
-    Procedure SettableId(AIndex : Integer; AValue : String); virtual;
+    Procedure SettableId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -565,8 +565,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TStyleSettingListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -602,19 +602,19 @@ type
     FtablePropertiesJsonSchema : String;
   Protected
     //Property setters
-    Procedure Setattribution(AIndex : Integer; AValue : String); virtual;
-    Procedure SetattributionLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setattribution(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetattributionLink(AIndex : Integer; const AValue : String); virtual;
     Procedure SetbaseTableIds(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetcolumnPropertiesJsonSchema(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcolumnPropertiesJsonSchema(AIndex : Integer; const AValue : String); virtual;
     Procedure Setcolumns(AIndex : Integer; AValue : TTableTypecolumnsArray); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure SetisExportable(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setsql(AIndex : Integer; AValue : String); virtual;
-    Procedure SettableId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettablePropertiesJson(AIndex : Integer; AValue : String); virtual;
-    Procedure SettablePropertiesJsonSchema(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setsql(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettableId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettablePropertiesJson(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettablePropertiesJsonSchema(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -649,8 +649,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTableListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -677,11 +677,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setprogress(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setprogress(AIndex : Integer; const AValue : String); virtual;
     Procedure Setstarted(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SettaskId(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SettaskId(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;
@@ -705,8 +705,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTaskListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -736,10 +736,10 @@ type
   Protected
     //Property setters
     Procedure SetautomaticColumnNames(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setbody(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SettableId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setbody(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettableId(AIndex : Integer; const AValue : String); virtual;
     Procedure SettemplateId(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -769,8 +769,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTemplateListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -1078,7 +1078,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TBucket.Setcolor(AIndex : Integer; AValue : String); 
+Procedure TBucket.Setcolor(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcolor=AValue) then exit;
@@ -1088,7 +1088,7 @@ end;
 
 
 
-Procedure TBucket.Seticon(AIndex : Integer; AValue : String); 
+Procedure TBucket.Seticon(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ficon=AValue) then exit;
@@ -1192,7 +1192,7 @@ end;
 
 
 
-Procedure TColumn.SetcolumnJsonSchema(AIndex : Integer; AValue : String); 
+Procedure TColumn.SetcolumnJsonSchema(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcolumnJsonSchema=AValue) then exit;
@@ -1202,7 +1202,7 @@ end;
 
 
 
-Procedure TColumn.SetcolumnPropertiesJson(AIndex : Integer; AValue : String); 
+Procedure TColumn.SetcolumnPropertiesJson(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcolumnPropertiesJson=AValue) then exit;
@@ -1212,7 +1212,7 @@ end;
 
 
 
-Procedure TColumn.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TColumn.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1222,7 +1222,7 @@ end;
 
 
 
-Procedure TColumn.SetformatPattern(AIndex : Integer; AValue : String); 
+Procedure TColumn.SetformatPattern(AIndex : Integer; const AValue : String); 
 
 begin
   If (FformatPattern=AValue) then exit;
@@ -1232,7 +1232,7 @@ end;
 
 
 
-Procedure TColumn.SetgraphPredicate(AIndex : Integer; AValue : String); 
+Procedure TColumn.SetgraphPredicate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgraphPredicate=AValue) then exit;
@@ -1242,7 +1242,7 @@ end;
 
 
 
-Procedure TColumn.Setkind(AIndex : Integer; AValue : String); 
+Procedure TColumn.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1252,7 +1252,7 @@ end;
 
 
 
-Procedure TColumn.Setname(AIndex : Integer; AValue : String); 
+Procedure TColumn.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1262,7 +1262,7 @@ end;
 
 
 
-Procedure TColumn.Set_type(AIndex : Integer; AValue : String); 
+Procedure TColumn.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1333,7 +1333,7 @@ end;
 
 
 
-Procedure TColumnList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TColumnList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1343,7 +1343,7 @@ end;
 
 
 
-Procedure TColumnList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TColumnList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1403,7 +1403,7 @@ end;
 
 
 
-Procedure TGeometry.Set_type(AIndex : Integer; AValue : String); 
+Procedure TGeometry.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1444,7 +1444,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TImport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TImport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1454,7 +1454,7 @@ end;
 
 
 
-Procedure TImport.SetnumRowsReceived(AIndex : Integer; AValue : String); 
+Procedure TImport.SetnumRowsReceived(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumRowsReceived=AValue) then exit;
@@ -1481,7 +1481,7 @@ end;
 
 
 
-Procedure TLine.Set_type(AIndex : Integer; AValue : String); 
+Procedure TLine.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1522,7 +1522,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLineStyle.SetstrokeColor(AIndex : Integer; AValue : String); 
+Procedure TLineStyle.SetstrokeColor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstrokeColor=AValue) then exit;
@@ -1589,7 +1589,7 @@ end;
 
 
 
-Procedure TPoint.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPoint.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1630,7 +1630,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPointStyle.SeticonName(AIndex : Integer; AValue : String); 
+Procedure TPointStyle.SeticonName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FiconName=AValue) then exit;
@@ -1667,7 +1667,7 @@ end;
 
 
 
-Procedure TPolygon.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPolygon.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1708,7 +1708,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPolygonStyle.SetfillColor(AIndex : Integer; AValue : String); 
+Procedure TPolygonStyle.SetfillColor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfillColor=AValue) then exit;
@@ -1738,7 +1738,7 @@ end;
 
 
 
-Procedure TPolygonStyle.SetstrokeColor(AIndex : Integer; AValue : String); 
+Procedure TPolygonStyle.SetstrokeColor(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstrokeColor=AValue) then exit;
@@ -1805,7 +1805,7 @@ end;
 
 
 
-Procedure TSqlresponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSqlresponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1846,7 +1846,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStyleFunctionTypegradientTypecolorsItem.Setcolor(AIndex : Integer; AValue : String); 
+Procedure TStyleFunctionTypegradientTypecolorsItem.Setcolor(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcolor=AValue) then exit;
@@ -1933,7 +1933,7 @@ end;
 
 
 
-Procedure TStyleFunction.SetcolumnName(AIndex : Integer; AValue : String); 
+Procedure TStyleFunction.SetcolumnName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcolumnName=AValue) then exit;
@@ -1953,7 +1953,7 @@ end;
 
 
 
-Procedure TStyleFunction.Setkind(AIndex : Integer; AValue : String); 
+Procedure TStyleFunction.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1983,7 +1983,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStyleSetting.Setkind(AIndex : Integer; AValue : String); 
+Procedure TStyleSetting.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2003,7 +2003,7 @@ end;
 
 
 
-Procedure TStyleSetting.Setname(AIndex : Integer; AValue : String); 
+Procedure TStyleSetting.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2043,7 +2043,7 @@ end;
 
 
 
-Procedure TStyleSetting.SettableId(AIndex : Integer; AValue : String); 
+Procedure TStyleSetting.SettableId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtableId=AValue) then exit;
@@ -2070,7 +2070,7 @@ end;
 
 
 
-Procedure TStyleSettingList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TStyleSettingList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2080,7 +2080,7 @@ end;
 
 
 
-Procedure TStyleSettingList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TStyleSettingList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -2120,7 +2120,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTable.Setattribution(AIndex : Integer; AValue : String); 
+Procedure TTable.Setattribution(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fattribution=AValue) then exit;
@@ -2130,7 +2130,7 @@ end;
 
 
 
-Procedure TTable.SetattributionLink(AIndex : Integer; AValue : String); 
+Procedure TTable.SetattributionLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FattributionLink=AValue) then exit;
@@ -2150,7 +2150,7 @@ end;
 
 
 
-Procedure TTable.SetcolumnPropertiesJsonSchema(AIndex : Integer; AValue : String); 
+Procedure TTable.SetcolumnPropertiesJsonSchema(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcolumnPropertiesJsonSchema=AValue) then exit;
@@ -2170,7 +2170,7 @@ end;
 
 
 
-Procedure TTable.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TTable.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -2190,7 +2190,7 @@ end;
 
 
 
-Procedure TTable.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTable.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2200,7 +2200,7 @@ end;
 
 
 
-Procedure TTable.Setname(AIndex : Integer; AValue : String); 
+Procedure TTable.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2210,7 +2210,7 @@ end;
 
 
 
-Procedure TTable.Setsql(AIndex : Integer; AValue : String); 
+Procedure TTable.Setsql(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsql=AValue) then exit;
@@ -2220,7 +2220,7 @@ end;
 
 
 
-Procedure TTable.SettableId(AIndex : Integer; AValue : String); 
+Procedure TTable.SettableId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtableId=AValue) then exit;
@@ -2230,7 +2230,7 @@ end;
 
 
 
-Procedure TTable.SettablePropertiesJson(AIndex : Integer; AValue : String); 
+Procedure TTable.SettablePropertiesJson(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtablePropertiesJson=AValue) then exit;
@@ -2240,7 +2240,7 @@ end;
 
 
 
-Procedure TTable.SettablePropertiesJsonSchema(AIndex : Integer; AValue : String); 
+Procedure TTable.SettablePropertiesJsonSchema(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtablePropertiesJsonSchema=AValue) then exit;
@@ -2281,7 +2281,7 @@ end;
 
 
 
-Procedure TTableList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTableList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2291,7 +2291,7 @@ end;
 
 
 
-Procedure TTableList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTableList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -2321,7 +2321,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTask.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTask.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2331,7 +2331,7 @@ end;
 
 
 
-Procedure TTask.Setprogress(AIndex : Integer; AValue : String); 
+Procedure TTask.Setprogress(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fprogress=AValue) then exit;
@@ -2351,7 +2351,7 @@ end;
 
 
 
-Procedure TTask.SettaskId(AIndex : Integer; AValue : String); 
+Procedure TTask.SettaskId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtaskId=AValue) then exit;
@@ -2361,7 +2361,7 @@ end;
 
 
 
-Procedure TTask.Set_type(AIndex : Integer; AValue : String); 
+Procedure TTask.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2399,7 +2399,7 @@ end;
 
 
 
-Procedure TTaskList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTaskList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2409,7 +2409,7 @@ end;
 
 
 
-Procedure TTaskList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTaskList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -2459,7 +2459,7 @@ end;
 
 
 
-Procedure TTemplate.Setbody(AIndex : Integer; AValue : String); 
+Procedure TTemplate.Setbody(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fbody=AValue) then exit;
@@ -2469,7 +2469,7 @@ end;
 
 
 
-Procedure TTemplate.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTemplate.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2479,7 +2479,7 @@ end;
 
 
 
-Procedure TTemplate.Setname(AIndex : Integer; AValue : String); 
+Procedure TTemplate.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2489,7 +2489,7 @@ end;
 
 
 
-Procedure TTemplate.SettableId(AIndex : Integer; AValue : String); 
+Procedure TTemplate.SettableId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtableId=AValue) then exit;
@@ -2539,7 +2539,7 @@ end;
 
 
 
-Procedure TTemplateList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTemplateList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2549,7 +2549,7 @@ end;
 
 
 
-Procedure TTemplateList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTemplateList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googlegamesConfiguration.pp

@@ -68,14 +68,14 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetachievementType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetachievementType(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdraft(AIndex : Integer; AValue : TAchievementConfigurationDetail); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinitialState(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetinitialState(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Set_published(AIndex : Integer; AValue : TAchievementConfigurationDetail); virtual;
     Procedure SetstepsToUnlock(AIndex : Integer; AValue : integer); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property achievementType : String Index 0 Read FachievementType Write SetachievementType;
@@ -104,8 +104,8 @@ type
   Protected
     //Property setters
     Procedure Setdescription(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
-    Procedure SeticonUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
     Procedure SetpointValue(AIndex : Integer; AValue : integer); virtual;
     Procedure SetsortRank(AIndex : Integer; AValue : integer); virtual;
@@ -132,8 +132,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -189,9 +189,9 @@ type
     Fsuffix : TGamesNumberAffixConfiguration;
   Protected
     //Property setters
-    Procedure SetcurrencyCode(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnumDecimalPlaces(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetnumberFormatType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnumberFormatType(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsuffix(AIndex : Integer; AValue : TGamesNumberAffixConfiguration); virtual;
   Public
   Published
@@ -214,10 +214,10 @@ type
     Furl : String;
   Protected
     //Property setters
-    Procedure SetimageType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetresourceId(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetimageType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetresourceId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property imageType : String Index 0 Read FimageType Write SetimageType;
@@ -245,13 +245,13 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setdraft(AIndex : Integer; AValue : TLeaderboardConfigurationDetail); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Set_published(AIndex : Integer; AValue : TLeaderboardConfigurationDetail); virtual;
-    Procedure SetscoreMax(AIndex : Integer; AValue : String); virtual;
-    Procedure SetscoreMin(AIndex : Integer; AValue : String); virtual;
-    Procedure SetscoreOrder(AIndex : Integer; AValue : String); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetscoreMax(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetscoreMin(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetscoreOrder(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property draft : TLeaderboardConfigurationDetail Index 0 Read Fdraft Write Setdraft;
@@ -278,8 +278,8 @@ type
     FsortRank : integer;
   Protected
     //Property setters
-    Procedure SeticonUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
     Procedure SetscoreFormat(AIndex : Integer; AValue : TGamesNumberFormatConfiguration); virtual;
     Procedure SetsortRank(AIndex : Integer; AValue : integer); virtual;
@@ -305,8 +305,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -330,9 +330,9 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocale(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -351,7 +351,7 @@ type
     Ftranslations : TLocalizedStringBundleTypetranslationsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Settranslations(AIndex : Integer; AValue : TLocalizedStringBundleTypetranslationsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -483,7 +483,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementConfiguration.SetachievementType(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfiguration.SetachievementType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FachievementType=AValue) then exit;
@@ -503,7 +503,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Setid(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfiguration.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -513,7 +513,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.SetinitialState(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfiguration.SetinitialState(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinitialState=AValue) then exit;
@@ -523,7 +523,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfiguration.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -553,7 +553,7 @@ end;
 
 
 
-Procedure TAchievementConfiguration.Settoken(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfiguration.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -591,7 +591,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.SeticonUrl(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfigurationDetail.SeticonUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -601,7 +601,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationDetail.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfigurationDetail.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -658,7 +658,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfigurationListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -668,7 +668,7 @@ end;
 
 
 
-Procedure TAchievementConfigurationListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TAchievementConfigurationListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -765,7 +765,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesNumberFormatConfiguration.SetcurrencyCode(AIndex : Integer; AValue : String); 
+Procedure TGamesNumberFormatConfiguration.SetcurrencyCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrencyCode=AValue) then exit;
@@ -785,7 +785,7 @@ end;
 
 
 
-Procedure TGamesNumberFormatConfiguration.SetnumberFormatType(AIndex : Integer; AValue : String); 
+Procedure TGamesNumberFormatConfiguration.SetnumberFormatType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumberFormatType=AValue) then exit;
@@ -812,7 +812,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TImageConfiguration.SetimageType(AIndex : Integer; AValue : String); 
+Procedure TImageConfiguration.SetimageType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FimageType=AValue) then exit;
@@ -822,7 +822,7 @@ end;
 
 
 
-Procedure TImageConfiguration.Setkind(AIndex : Integer; AValue : String); 
+Procedure TImageConfiguration.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -832,7 +832,7 @@ end;
 
 
 
-Procedure TImageConfiguration.SetresourceId(AIndex : Integer; AValue : String); 
+Procedure TImageConfiguration.SetresourceId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceId=AValue) then exit;
@@ -842,7 +842,7 @@ end;
 
 
 
-Procedure TImageConfiguration.Seturl(AIndex : Integer; AValue : String); 
+Procedure TImageConfiguration.Seturl(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furl=AValue) then exit;
@@ -869,7 +869,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Setid(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfiguration.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -879,7 +879,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfiguration.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -899,7 +899,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreMax(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfiguration.SetscoreMax(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscoreMax=AValue) then exit;
@@ -909,7 +909,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreMin(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfiguration.SetscoreMin(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscoreMin=AValue) then exit;
@@ -919,7 +919,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.SetscoreOrder(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfiguration.SetscoreOrder(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscoreOrder=AValue) then exit;
@@ -929,7 +929,7 @@ end;
 
 
 
-Procedure TLeaderboardConfiguration.Settoken(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfiguration.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -957,7 +957,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLeaderboardConfigurationDetail.SeticonUrl(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfigurationDetail.SeticonUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -967,7 +967,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationDetail.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfigurationDetail.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1024,7 +1024,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfigurationListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1034,7 +1034,7 @@ end;
 
 
 
-Procedure TLeaderboardConfigurationListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TLeaderboardConfigurationListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1064,7 +1064,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLocalizedString.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLocalizedString.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1074,7 +1074,7 @@ end;
 
 
 
-Procedure TLocalizedString.Setlocale(AIndex : Integer; AValue : String); 
+Procedure TLocalizedString.Setlocale(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocale=AValue) then exit;
@@ -1084,7 +1084,7 @@ end;
 
 
 
-Procedure TLocalizedString.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TLocalizedString.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1101,7 +1101,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLocalizedStringBundle.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLocalizedStringBundle.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googlegamesManagement.pp

@@ -68,7 +68,7 @@ type
     Fresults : TAchievementResetAllResponseTyperesultsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresults(AIndex : Integer; AValue : TAchievementResetAllResponseTyperesultsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -92,7 +92,7 @@ type
   Protected
     //Property setters
     Procedure Setachievement_ids(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -116,9 +116,9 @@ type
     FupdateOccurred : boolean;
   Protected
     //Property setters
-    Procedure SetcurrentState(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdefinitionId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcurrentState(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdefinitionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetupdateOccurred(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -140,7 +140,7 @@ type
   Protected
     //Property setters
     Procedure Setevent_ids(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -163,7 +163,7 @@ type
   Protected
     //Property setters
     Procedure SetautoMatched(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SettimeMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SettimeMillis(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property autoMatched : boolean Index 0 Read FautoMatched Write SetautoMatched;
@@ -183,9 +183,9 @@ type
     FnextLevel : TGamesPlayerLevelResource;
   Protected
     //Property setters
-    Procedure SetcurrentExperiencePoints(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcurrentExperiencePoints(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcurrentLevel(AIndex : Integer; AValue : TGamesPlayerLevelResource); virtual;
-    Procedure SetlastLevelUpTimestampMillis(AIndex : Integer; AValue : String); virtual;
+    Procedure SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnextLevel(AIndex : Integer; AValue : TGamesPlayerLevelResource); virtual;
   Public
   Published
@@ -208,8 +208,8 @@ type
   Protected
     //Property setters
     Procedure Setlevel(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetmaxExperiencePoints(AIndex : Integer; AValue : String); virtual;
-    Procedure SetminExperiencePoints(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmaxExperiencePoints(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetminExperiencePoints(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property level : integer Index 0 Read Flevel Write Setlevel;
@@ -229,8 +229,8 @@ type
     Fplayer : TPlayer;
   Protected
     //Property setters
-    Procedure SethiddenTimeMillis(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SethiddenTimeMillis(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setplayer(AIndex : Integer; AValue : TPlayer); virtual;
   Public
   Published
@@ -252,8 +252,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : THiddenPlayerListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -276,8 +276,8 @@ type
     FgivenName : String;
   Protected
     //Property setters
-    Procedure SetfamilyName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetgivenName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property familyName : String Index 0 Read FfamilyName Write SetfamilyName;
@@ -301,14 +301,14 @@ type
     Ftitle : String;
   Protected
     //Property setters
-    Procedure SetavatarImageUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetavatarImageUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
     Procedure SetexperienceInfo(AIndex : Integer; AValue : TGamesPlayerExperienceInfoResource); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetlastPlayedWith(AIndex : Integer; AValue : TGamesPlayedResource); virtual;
     Procedure Setname(AIndex : Integer; AValue : TPlayerTypename); virtual;
-    Procedure SetplayerId(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure SetplayerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property avatarImageUrl : String Index 0 Read FavatarImageUrl Write SetavatarImageUrl;
@@ -332,7 +332,7 @@ type
     Fresults : TPlayerScoreResetAllResponseTyperesultsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresults(AIndex : Integer; AValue : TPlayerScoreResetAllResponseTyperesultsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -356,8 +356,8 @@ type
     FresetScoreTimeSpans : TStringArray;
   Protected
     //Property setters
-    Procedure SetdefinitionId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdefinitionId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetresetScoreTimeSpans(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -381,7 +381,7 @@ type
     Fquest_ids : TStringArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setquest_ids(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -404,7 +404,7 @@ type
     Fleaderboard_ids : TStringArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setleaderboard_ids(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -621,7 +621,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementResetAllResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAchievementResetAllResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -671,7 +671,7 @@ end;
 
 
 
-Procedure TAchievementResetMultipleForAllRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAchievementResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -701,7 +701,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAchievementResetResponse.SetcurrentState(AIndex : Integer; AValue : String); 
+Procedure TAchievementResetResponse.SetcurrentState(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrentState=AValue) then exit;
@@ -711,7 +711,7 @@ end;
 
 
 
-Procedure TAchievementResetResponse.SetdefinitionId(AIndex : Integer; AValue : String); 
+Procedure TAchievementResetResponse.SetdefinitionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdefinitionId=AValue) then exit;
@@ -721,7 +721,7 @@ end;
 
 
 
-Procedure TAchievementResetResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAchievementResetResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -758,7 +758,7 @@ end;
 
 
 
-Procedure TEventsResetMultipleForAllRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TEventsResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -798,7 +798,7 @@ end;
 
 
 
-Procedure TGamesPlayedResource.SettimeMillis(AIndex : Integer; AValue : String); 
+Procedure TGamesPlayedResource.SettimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtimeMillis=AValue) then exit;
@@ -815,7 +815,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGamesPlayerExperienceInfoResource.SetcurrentExperiencePoints(AIndex : Integer; AValue : String); 
+Procedure TGamesPlayerExperienceInfoResource.SetcurrentExperiencePoints(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcurrentExperiencePoints=AValue) then exit;
@@ -835,7 +835,7 @@ end;
 
 
 
-Procedure TGamesPlayerExperienceInfoResource.SetlastLevelUpTimestampMillis(AIndex : Integer; AValue : String); 
+Procedure TGamesPlayerExperienceInfoResource.SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlastLevelUpTimestampMillis=AValue) then exit;
@@ -872,7 +872,7 @@ end;
 
 
 
-Procedure TGamesPlayerLevelResource.SetmaxExperiencePoints(AIndex : Integer; AValue : String); 
+Procedure TGamesPlayerLevelResource.SetmaxExperiencePoints(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmaxExperiencePoints=AValue) then exit;
@@ -882,7 +882,7 @@ end;
 
 
 
-Procedure TGamesPlayerLevelResource.SetminExperiencePoints(AIndex : Integer; AValue : String); 
+Procedure TGamesPlayerLevelResource.SetminExperiencePoints(AIndex : Integer; const AValue : String); 
 
 begin
   If (FminExperiencePoints=AValue) then exit;
@@ -899,7 +899,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure THiddenPlayer.SethiddenTimeMillis(AIndex : Integer; AValue : String); 
+Procedure THiddenPlayer.SethiddenTimeMillis(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhiddenTimeMillis=AValue) then exit;
@@ -909,7 +909,7 @@ end;
 
 
 
-Procedure THiddenPlayer.Setkind(AIndex : Integer; AValue : String); 
+Procedure THiddenPlayer.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -946,7 +946,7 @@ end;
 
 
 
-Procedure THiddenPlayerList.Setkind(AIndex : Integer; AValue : String); 
+Procedure THiddenPlayerList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -956,7 +956,7 @@ end;
 
 
 
-Procedure THiddenPlayerList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure THiddenPlayerList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -986,7 +986,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayerTypename.SetfamilyName(AIndex : Integer; AValue : String); 
+Procedure TPlayerTypename.SetfamilyName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfamilyName=AValue) then exit;
@@ -996,7 +996,7 @@ end;
 
 
 
-Procedure TPlayerTypename.SetgivenName(AIndex : Integer; AValue : String); 
+Procedure TPlayerTypename.SetgivenName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgivenName=AValue) then exit;
@@ -1013,7 +1013,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayer.SetavatarImageUrl(AIndex : Integer; AValue : String); 
+Procedure TPlayer.SetavatarImageUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FavatarImageUrl=AValue) then exit;
@@ -1023,7 +1023,7 @@ end;
 
 
 
-Procedure TPlayer.SetdisplayName(AIndex : Integer; AValue : String); 
+Procedure TPlayer.SetdisplayName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -1043,7 +1043,7 @@ end;
 
 
 
-Procedure TPlayer.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPlayer.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1073,7 +1073,7 @@ end;
 
 
 
-Procedure TPlayer.SetplayerId(AIndex : Integer; AValue : String); 
+Procedure TPlayer.SetplayerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FplayerId=AValue) then exit;
@@ -1083,7 +1083,7 @@ end;
 
 
 
-Procedure TPlayer.Settitle(AIndex : Integer; AValue : String); 
+Procedure TPlayer.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1100,7 +1100,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayerScoreResetAllResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPlayerScoreResetAllResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1140,7 +1140,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPlayerScoreResetResponse.SetdefinitionId(AIndex : Integer; AValue : String); 
+Procedure TPlayerScoreResetResponse.SetdefinitionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdefinitionId=AValue) then exit;
@@ -1150,7 +1150,7 @@ end;
 
 
 
-Procedure TPlayerScoreResetResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPlayerScoreResetResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1190,7 +1190,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TQuestsResetMultipleForAllRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TQuestsResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1230,7 +1230,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TScoresResetMultipleForAllRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TScoresResetMultipleForAllRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googlegmail.pp

@@ -89,7 +89,7 @@ type
     Fmessage : TMessage;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmessage(AIndex : Integer; AValue : TMessage); virtual;
   Public
   Published
@@ -112,7 +112,7 @@ type
     FmessagesDeleted : THistoryTypemessagesDeletedArray;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetlabelsAdded(AIndex : Integer; AValue : THistoryTypelabelsAddedArray); virtual;
     Procedure SetlabelsRemoved(AIndex : Integer; AValue : THistoryTypelabelsRemovedArray); virtual;
     Procedure Setmessages(AIndex : Integer; AValue : THistoryTypemessagesArray); virtual;
@@ -229,15 +229,15 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetlabelListVisibility(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmessageListVisibility(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetlabelListVisibility(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmessageListVisibility(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmessagesTotal(AIndex : Integer; AValue : integer); virtual;
     Procedure SetmessagesUnread(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetthreadsTotal(AIndex : Integer; AValue : integer); virtual;
     Procedure SetthreadsUnread(AIndex : Integer; AValue : integer); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -264,7 +264,7 @@ type
   Protected
     //Property setters
     Procedure Setdrafts(AIndex : Integer; AValue : TListDraftsResponseTypedraftsArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SetresultSizeEstimate(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -290,8 +290,8 @@ type
   Protected
     //Property setters
     Procedure Sethistory(AIndex : Integer; AValue : TListHistoryResponseTypehistoryArray); virtual;
-    Procedure SethistoryId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -336,7 +336,7 @@ type
   Protected
     //Property setters
     Procedure Setmessages(AIndex : Integer; AValue : TListMessagesResponseTypemessagesArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SetresultSizeEstimate(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -361,7 +361,7 @@ type
     Fthreads : TListThreadsResponseTypethreadsArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SetresultSizeEstimate(AIndex : Integer; AValue : integer); virtual;
     Procedure Setthreads(AIndex : Integer; AValue : TListThreadsResponseTypethreadsArray); virtual;
     //2.6.4. bug workaround
@@ -392,14 +392,14 @@ type
     FthreadId : String;
   Protected
     //Property setters
-    Procedure SethistoryId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetlabelIds(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setpayload(AIndex : Integer; AValue : TMessagePart); virtual;
-    Procedure Setraw(AIndex : Integer; AValue : String); virtual;
+    Procedure Setraw(AIndex : Integer; const AValue : String); virtual;
     Procedure SetsizeEstimate(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setsnippet(AIndex : Integer; AValue : String); virtual;
-    Procedure SetthreadId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetthreadId(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -432,10 +432,10 @@ type
   Protected
     //Property setters
     Procedure Setbody(AIndex : Integer; AValue : TMessagePartBody); virtual;
-    Procedure Setfilename(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfilename(AIndex : Integer; const AValue : String); virtual;
     Procedure Setheaders(AIndex : Integer; AValue : TMessagePartTypeheadersArray); virtual;
-    Procedure SetmimeType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpartId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpartId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparts(AIndex : Integer; AValue : TMessagePartTypepartsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -463,8 +463,8 @@ type
     Fsize : integer;
   Protected
     //Property setters
-    Procedure SetattachmentId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
+    Procedure SetattachmentId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsize(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -484,8 +484,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -551,8 +551,8 @@ type
     FthreadsTotal : integer;
   Protected
     //Property setters
-    Procedure SetemailAddress(AIndex : Integer; AValue : String); virtual;
-    Procedure SethistoryId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmessagesTotal(AIndex : Integer; AValue : integer); virtual;
     Procedure SetthreadsTotal(AIndex : Integer; AValue : integer); virtual;
   Public
@@ -576,10 +576,10 @@ type
     Fsnippet : String;
   Protected
     //Property setters
-    Procedure SethistoryId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmessages(AIndex : Integer; AValue : TThreadTypemessagesArray); virtual;
-    Procedure Setsnippet(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -902,7 +902,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TDraft.Setid(AIndex : Integer; AValue : String); 
+Procedure TDraft.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -929,7 +929,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure THistory.Setid(AIndex : Integer; AValue : String); 
+Procedure THistory.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1127,7 +1127,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLabel.Setid(AIndex : Integer; AValue : String); 
+Procedure TLabel.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1137,7 +1137,7 @@ end;
 
 
 
-Procedure TLabel.SetlabelListVisibility(AIndex : Integer; AValue : String); 
+Procedure TLabel.SetlabelListVisibility(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlabelListVisibility=AValue) then exit;
@@ -1147,7 +1147,7 @@ end;
 
 
 
-Procedure TLabel.SetmessageListVisibility(AIndex : Integer; AValue : String); 
+Procedure TLabel.SetmessageListVisibility(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmessageListVisibility=AValue) then exit;
@@ -1177,7 +1177,7 @@ end;
 
 
 
-Procedure TLabel.Setname(AIndex : Integer; AValue : String); 
+Procedure TLabel.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1207,7 +1207,7 @@ end;
 
 
 
-Procedure TLabel.Set_type(AIndex : Integer; AValue : String); 
+Procedure TLabel.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1245,7 +1245,7 @@ end;
 
 
 
-Procedure TListDraftsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListDraftsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1295,7 +1295,7 @@ end;
 
 
 
-Procedure TListHistoryResponse.SethistoryId(AIndex : Integer; AValue : String); 
+Procedure TListHistoryResponse.SethistoryId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhistoryId=AValue) then exit;
@@ -1305,7 +1305,7 @@ end;
 
 
 
-Procedure TListHistoryResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListHistoryResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1375,7 +1375,7 @@ end;
 
 
 
-Procedure TListMessagesResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListMessagesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1415,7 +1415,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListThreadsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListThreadsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1465,7 +1465,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMessage.SethistoryId(AIndex : Integer; AValue : String); 
+Procedure TMessage.SethistoryId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhistoryId=AValue) then exit;
@@ -1475,7 +1475,7 @@ end;
 
 
 
-Procedure TMessage.Setid(AIndex : Integer; AValue : String); 
+Procedure TMessage.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1505,7 +1505,7 @@ end;
 
 
 
-Procedure TMessage.Setraw(AIndex : Integer; AValue : String); 
+Procedure TMessage.Setraw(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fraw=AValue) then exit;
@@ -1525,7 +1525,7 @@ end;
 
 
 
-Procedure TMessage.Setsnippet(AIndex : Integer; AValue : String); 
+Procedure TMessage.Setsnippet(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsnippet=AValue) then exit;
@@ -1535,7 +1535,7 @@ end;
 
 
 
-Procedure TMessage.SetthreadId(AIndex : Integer; AValue : String); 
+Procedure TMessage.SetthreadId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FthreadId=AValue) then exit;
@@ -1575,7 +1575,7 @@ end;
 
 
 
-Procedure TMessagePart.Setfilename(AIndex : Integer; AValue : String); 
+Procedure TMessagePart.Setfilename(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffilename=AValue) then exit;
@@ -1595,7 +1595,7 @@ end;
 
 
 
-Procedure TMessagePart.SetmimeType(AIndex : Integer; AValue : String); 
+Procedure TMessagePart.SetmimeType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmimeType=AValue) then exit;
@@ -1605,7 +1605,7 @@ end;
 
 
 
-Procedure TMessagePart.SetpartId(AIndex : Integer; AValue : String); 
+Procedure TMessagePart.SetpartId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpartId=AValue) then exit;
@@ -1646,7 +1646,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMessagePartBody.SetattachmentId(AIndex : Integer; AValue : String); 
+Procedure TMessagePartBody.SetattachmentId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FattachmentId=AValue) then exit;
@@ -1656,7 +1656,7 @@ end;
 
 
 
-Procedure TMessagePartBody.Setdata(AIndex : Integer; AValue : String); 
+Procedure TMessagePartBody.Setdata(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -1683,7 +1683,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMessagePartHeader.Setname(AIndex : Integer; AValue : String); 
+Procedure TMessagePartHeader.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1693,7 +1693,7 @@ end;
 
 
 
-Procedure TMessagePartHeader.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TMessagePartHeader.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1792,7 +1792,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TProfile.SetemailAddress(AIndex : Integer; AValue : String); 
+Procedure TProfile.SetemailAddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (FemailAddress=AValue) then exit;
@@ -1802,7 +1802,7 @@ end;
 
 
 
-Procedure TProfile.SethistoryId(AIndex : Integer; AValue : String); 
+Procedure TProfile.SethistoryId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhistoryId=AValue) then exit;
@@ -1839,7 +1839,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TThread.SethistoryId(AIndex : Integer; AValue : String); 
+Procedure TThread.SethistoryId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhistoryId=AValue) then exit;
@@ -1849,7 +1849,7 @@ end;
 
 
 
-Procedure TThread.Setid(AIndex : Integer; AValue : String); 
+Procedure TThread.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1869,7 +1869,7 @@ end;
 
 
 
-Procedure TThread.Setsnippet(AIndex : Integer; AValue : String); 
+Procedure TThread.Setsnippet(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsnippet=AValue) then exit;

packages/googleapi/src/googlegroupsmigration.pp

@@ -38,8 +38,8 @@ type
     FresponseCode : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetresponseCode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetresponseCode(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -104,7 +104,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGroups.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroups.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -114,7 +114,7 @@ end;
 
 
 
-Procedure TGroups.SetresponseCode(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetresponseCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresponseCode=AValue) then exit;

packages/googleapi/src/googlegroupssettings.pp

@@ -64,34 +64,34 @@ type
     FwhoCanViewMembership : String;
   Protected
     //Property setters
-    Procedure SetallowExternalMembers(AIndex : Integer; AValue : String); virtual;
-    Procedure SetallowGoogleCommunication(AIndex : Integer; AValue : String); virtual;
-    Procedure SetallowWebPosting(AIndex : Integer; AValue : String); virtual;
-    Procedure SetarchiveOnly(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomReplyTo(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdefaultMessageDenyNotificationText(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
-    Procedure SetincludeInGlobalAddressList(AIndex : Integer; AValue : String); virtual;
-    Procedure SetisArchived(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetallowExternalMembers(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetallowGoogleCommunication(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetallowWebPosting(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetarchiveOnly(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomReplyTo(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdefaultMessageDenyNotificationText(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetincludeInGlobalAddressList(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetisArchived(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaxMessageBytes(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetmembersCanPostAsTheGroup(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmessageDisplayFont(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmessageModerationLevel(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprimaryLanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure SetreplyTo(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsendMessageDenyNotification(AIndex : Integer; AValue : String); virtual;
-    Procedure SetshowInGroupDirectory(AIndex : Integer; AValue : String); virtual;
-    Procedure SetspamModerationLevel(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwhoCanContactOwner(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwhoCanInvite(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwhoCanJoin(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwhoCanLeaveGroup(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwhoCanPostMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwhoCanViewGroup(AIndex : Integer; AValue : String); virtual;
-    Procedure SetwhoCanViewMembership(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmembersCanPostAsTheGroup(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmessageDisplayFont(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmessageModerationLevel(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetprimaryLanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetreplyTo(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsendMessageDenyNotification(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetshowInGroupDirectory(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetspamModerationLevel(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwhoCanContactOwner(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwhoCanInvite(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwhoCanJoin(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwhoCanLeaveGroup(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwhoCanPostMessage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwhoCanViewGroup(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetwhoCanViewMembership(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property allowExternalMembers : String Index 0 Read FallowExternalMembers Write SetallowExternalMembers;
@@ -184,7 +184,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TGroups.SetallowExternalMembers(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetallowExternalMembers(AIndex : Integer; const AValue : String); 
 
 begin
   If (FallowExternalMembers=AValue) then exit;
@@ -194,7 +194,7 @@ end;
 
 
 
-Procedure TGroups.SetallowGoogleCommunication(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetallowGoogleCommunication(AIndex : Integer; const AValue : String); 
 
 begin
   If (FallowGoogleCommunication=AValue) then exit;
@@ -204,7 +204,7 @@ end;
 
 
 
-Procedure TGroups.SetallowWebPosting(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetallowWebPosting(AIndex : Integer; const AValue : String); 
 
 begin
   If (FallowWebPosting=AValue) then exit;
@@ -214,7 +214,7 @@ end;
 
 
 
-Procedure TGroups.SetarchiveOnly(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetarchiveOnly(AIndex : Integer; const AValue : String); 
 
 begin
   If (FarchiveOnly=AValue) then exit;
@@ -224,7 +224,7 @@ end;
 
 
 
-Procedure TGroups.SetcustomReplyTo(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetcustomReplyTo(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomReplyTo=AValue) then exit;
@@ -234,7 +234,7 @@ end;
 
 
 
-Procedure TGroups.SetdefaultMessageDenyNotificationText(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetdefaultMessageDenyNotificationText(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdefaultMessageDenyNotificationText=AValue) then exit;
@@ -244,7 +244,7 @@ end;
 
 
 
-Procedure TGroups.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TGroups.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -254,7 +254,7 @@ end;
 
 
 
-Procedure TGroups.Setemail(AIndex : Integer; AValue : String); 
+Procedure TGroups.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -264,7 +264,7 @@ end;
 
 
 
-Procedure TGroups.SetincludeInGlobalAddressList(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetincludeInGlobalAddressList(AIndex : Integer; const AValue : String); 
 
 begin
   If (FincludeInGlobalAddressList=AValue) then exit;
@@ -274,7 +274,7 @@ end;
 
 
 
-Procedure TGroups.SetisArchived(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetisArchived(AIndex : Integer; const AValue : String); 
 
 begin
   If (FisArchived=AValue) then exit;
@@ -284,7 +284,7 @@ end;
 
 
 
-Procedure TGroups.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroups.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -304,7 +304,7 @@ end;
 
 
 
-Procedure TGroups.SetmembersCanPostAsTheGroup(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetmembersCanPostAsTheGroup(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmembersCanPostAsTheGroup=AValue) then exit;
@@ -314,7 +314,7 @@ end;
 
 
 
-Procedure TGroups.SetmessageDisplayFont(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetmessageDisplayFont(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmessageDisplayFont=AValue) then exit;
@@ -324,7 +324,7 @@ end;
 
 
 
-Procedure TGroups.SetmessageModerationLevel(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetmessageModerationLevel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmessageModerationLevel=AValue) then exit;
@@ -334,7 +334,7 @@ end;
 
 
 
-Procedure TGroups.Setname(AIndex : Integer; AValue : String); 
+Procedure TGroups.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -344,7 +344,7 @@ end;
 
 
 
-Procedure TGroups.SetprimaryLanguage(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetprimaryLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprimaryLanguage=AValue) then exit;
@@ -354,7 +354,7 @@ end;
 
 
 
-Procedure TGroups.SetreplyTo(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetreplyTo(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreplyTo=AValue) then exit;
@@ -364,7 +364,7 @@ end;
 
 
 
-Procedure TGroups.SetsendMessageDenyNotification(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetsendMessageDenyNotification(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsendMessageDenyNotification=AValue) then exit;
@@ -374,7 +374,7 @@ end;
 
 
 
-Procedure TGroups.SetshowInGroupDirectory(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetshowInGroupDirectory(AIndex : Integer; const AValue : String); 
 
 begin
   If (FshowInGroupDirectory=AValue) then exit;
@@ -384,7 +384,7 @@ end;
 
 
 
-Procedure TGroups.SetspamModerationLevel(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetspamModerationLevel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FspamModerationLevel=AValue) then exit;
@@ -394,7 +394,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanContactOwner(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetwhoCanContactOwner(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwhoCanContactOwner=AValue) then exit;
@@ -404,7 +404,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanInvite(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetwhoCanInvite(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwhoCanInvite=AValue) then exit;
@@ -414,7 +414,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanJoin(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetwhoCanJoin(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwhoCanJoin=AValue) then exit;
@@ -424,7 +424,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanLeaveGroup(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetwhoCanLeaveGroup(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwhoCanLeaveGroup=AValue) then exit;
@@ -434,7 +434,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanPostMessage(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetwhoCanPostMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwhoCanPostMessage=AValue) then exit;
@@ -444,7 +444,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanViewGroup(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetwhoCanViewGroup(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwhoCanViewGroup=AValue) then exit;
@@ -454,7 +454,7 @@ end;
 
 
 
-Procedure TGroups.SetwhoCanViewMembership(AIndex : Integer; AValue : String); 
+Procedure TGroups.SetwhoCanViewMembership(AIndex : Integer; const AValue : String); 
 
 begin
   If (FwhoCanViewMembership=AValue) then exit;

packages/googleapi/src/googlelicensing.pp

@@ -47,12 +47,12 @@ type
     FuserId : String;
   Protected
     //Property setters
-    Procedure Setetags(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetproductId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetskuId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetuserId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetags(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetskuId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property etags : String Index 0 Read Fetags Write Setetags;
@@ -73,7 +73,7 @@ type
     FuserId : String;
   Protected
     //Property setters
-    Procedure SetuserId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property userId : String Index 0 Read FuserId Write SetuserId;
@@ -92,10 +92,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TLicenseAssignmentListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -192,7 +192,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignment.Setetags(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignment.Setetags(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetags=AValue) then exit;
@@ -202,7 +202,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignment.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -212,7 +212,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetproductId(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignment.SetproductId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FproductId=AValue) then exit;
@@ -222,7 +222,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignment.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -232,7 +232,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetskuId(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignment.SetskuId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FskuId=AValue) then exit;
@@ -242,7 +242,7 @@ end;
 
 
 
-Procedure TLicenseAssignment.SetuserId(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignment.SetuserId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserId=AValue) then exit;
@@ -259,7 +259,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignmentInsert.SetuserId(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignmentInsert.SetuserId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserId=AValue) then exit;
@@ -276,7 +276,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLicenseAssignmentList.Setetag(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignmentList.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -296,7 +296,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignmentList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -306,7 +306,7 @@ end;
 
 
 
-Procedure TLicenseAssignmentList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TLicenseAssignmentList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googlelogging.pp

@@ -79,7 +79,7 @@ type
   Protected
     //Property setters
     Procedure Setlogs(AIndex : Integer; AValue : TListLogsResponseTypelogsArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -102,9 +102,9 @@ type
     FpayloadType : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpayloadType(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpayloadType(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -207,10 +207,10 @@ type
     //Property setters
     Procedure Setmetadata(AIndex : Integer; AValue : TLogEntryMetadata); virtual;
     Procedure SetprotoPayload(AIndex : Integer; AValue : TLogEntryTypeprotoPayload); virtual;
-    Procedure SettextPayload(AIndex : Integer; AValue : String); virtual;
+    Procedure SettextPayload(AIndex : Integer; const AValue : String); virtual;
     Procedure SetstructPayload(AIndex : Integer; AValue : TLogEntryTypestructPayload); virtual;
-    Procedure SetinsertId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlog(AIndex : Integer; AValue : String); virtual;
+    Procedure SetinsertId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlog(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property metadata : TLogEntryMetadata Index 0 Read Fmetadata Write Setmetadata;
@@ -252,13 +252,13 @@ type
     Flabels : TLogEntryMetadataTypelabels;
   Protected
     //Property setters
-    Procedure Settimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setseverity(AIndex : Integer; AValue : String); virtual;
-    Procedure SetprojectId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetserviceName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure Setzone(AIndex : Integer; AValue : String); virtual;
-    Procedure SetuserId(AIndex : Integer; AValue : String); virtual;
+    Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetserviceName(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlabels(AIndex : Integer; AValue : TLogEntryMetadataTypelabels); virtual;
   Public
   Published
@@ -297,7 +297,7 @@ type
   Protected
     //Property setters
     Procedure SetlogServices(AIndex : Integer; AValue : TListLogServicesResponseTypelogServicesArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -319,7 +319,7 @@ type
     FindexKeys : TStringArray;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetindexKeys(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -343,7 +343,7 @@ type
   Protected
     //Property setters
     Procedure SetserviceIndexPrefixes(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -386,8 +386,8 @@ type
     Ferrors : TLogSinkTypeerrorsArray;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdestination(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdestination(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterrors(AIndex : Integer; AValue : TLogSinkTypeerrorsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -412,9 +412,9 @@ type
     FtimeNanos : String;
   Protected
     //Property setters
-    Procedure Setresource(AIndex : Integer; AValue : String); virtual;
+    Procedure Setresource(AIndex : Integer; const AValue : String); virtual;
     Procedure Setstatus(AIndex : Integer; AValue : TStatus); virtual;
-    Procedure SettimeNanos(AIndex : Integer; AValue : String); virtual;
+    Procedure SettimeNanos(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property resource : String Index 0 Read Fresource Write Setresource;
@@ -449,7 +449,7 @@ type
   Protected
     //Property setters
     Procedure Setcode(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdetails(AIndex : Integer; AValue : TStatusTypedetailsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -746,7 +746,7 @@ end;
 
 
 
-Procedure TListLogsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListLogsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -776,7 +776,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLog.Setname(AIndex : Integer; AValue : String); 
+Procedure TLog.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -786,7 +786,7 @@ end;
 
 
 
-Procedure TLog.SetdisplayName(AIndex : Integer; AValue : String); 
+Procedure TLog.SetdisplayName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -796,7 +796,7 @@ end;
 
 
 
-Procedure TLog.SetpayloadType(AIndex : Integer; AValue : String); 
+Procedure TLog.SetpayloadType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpayloadType=AValue) then exit;
@@ -919,7 +919,7 @@ end;
 
 
 
-Procedure TLogEntry.SettextPayload(AIndex : Integer; AValue : String); 
+Procedure TLogEntry.SettextPayload(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtextPayload=AValue) then exit;
@@ -939,7 +939,7 @@ end;
 
 
 
-Procedure TLogEntry.SetinsertId(AIndex : Integer; AValue : String); 
+Procedure TLogEntry.SetinsertId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinsertId=AValue) then exit;
@@ -949,7 +949,7 @@ end;
 
 
 
-Procedure TLogEntry.Setlog(AIndex : Integer; AValue : String); 
+Procedure TLogEntry.Setlog(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flog=AValue) then exit;
@@ -979,7 +979,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLogEntryMetadata.Settimestamp(AIndex : Integer; AValue : String); 
+Procedure TLogEntryMetadata.Settimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftimestamp=AValue) then exit;
@@ -989,7 +989,7 @@ end;
 
 
 
-Procedure TLogEntryMetadata.Setseverity(AIndex : Integer; AValue : String); 
+Procedure TLogEntryMetadata.Setseverity(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fseverity=AValue) then exit;
@@ -999,7 +999,7 @@ end;
 
 
 
-Procedure TLogEntryMetadata.SetprojectId(AIndex : Integer; AValue : String); 
+Procedure TLogEntryMetadata.SetprojectId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FprojectId=AValue) then exit;
@@ -1009,7 +1009,7 @@ end;
 
 
 
-Procedure TLogEntryMetadata.SetserviceName(AIndex : Integer; AValue : String); 
+Procedure TLogEntryMetadata.SetserviceName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FserviceName=AValue) then exit;
@@ -1019,7 +1019,7 @@ end;
 
 
 
-Procedure TLogEntryMetadata.Setregion(AIndex : Integer; AValue : String); 
+Procedure TLogEntryMetadata.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -1029,7 +1029,7 @@ end;
 
 
 
-Procedure TLogEntryMetadata.Setzone(AIndex : Integer; AValue : String); 
+Procedure TLogEntryMetadata.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -1039,7 +1039,7 @@ end;
 
 
 
-Procedure TLogEntryMetadata.SetuserId(AIndex : Integer; AValue : String); 
+Procedure TLogEntryMetadata.SetuserId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserId=AValue) then exit;
@@ -1083,7 +1083,7 @@ end;
 
 
 
-Procedure TListLogServicesResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListLogServicesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1113,7 +1113,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLogService.Setname(AIndex : Integer; AValue : String); 
+Procedure TLogService.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1163,7 +1163,7 @@ end;
 
 
 
-Procedure TListLogServiceIndexesResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListLogServiceIndexesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1223,7 +1223,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLogSink.Setname(AIndex : Integer; AValue : String); 
+Procedure TLogSink.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1233,7 +1233,7 @@ end;
 
 
 
-Procedure TLogSink.Setdestination(AIndex : Integer; AValue : String); 
+Procedure TLogSink.Setdestination(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdestination=AValue) then exit;
@@ -1273,7 +1273,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLogError.Setresource(AIndex : Integer; AValue : String); 
+Procedure TLogError.Setresource(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fresource=AValue) then exit;
@@ -1293,7 +1293,7 @@ end;
 
 
 
-Procedure TLogError.SettimeNanos(AIndex : Integer; AValue : String); 
+Procedure TLogError.SettimeNanos(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtimeNanos=AValue) then exit;
@@ -1333,7 +1333,7 @@ end;
 
 
 
-Procedure TStatus.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;

packages/googleapi/src/googlemanager.pp

@@ -122,9 +122,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnatIp(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; 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 name : String Index 0 Read Fname Write Setname;
@@ -166,7 +166,7 @@ type
     Fports : TStringArray;
   Protected
     //Property setters
-    Procedure SetIPProtocol(AIndex : Integer; AValue : String); virtual;
+    Procedure SetIPProtocol(AIndex : Integer; const AValue : String); virtual;
     Procedure Setports(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -195,11 +195,11 @@ type
   Protected
     //Property setters
     Procedure SetcoolDownPeriodSec(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaxNumReplicas(AIndex : Integer; AValue : integer); virtual;
     Procedure SetminNumReplicas(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetsignalType(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetModule(AIndex : Integer; AValue : String); virtual;
+    Procedure SetsignalType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettargetModule(AIndex : Integer; const AValue : String); virtual;
     Procedure SettargetUtilization(AIndex : Integer; AValue : double); virtual;
   Public
   Published
@@ -222,7 +222,7 @@ type
     FautoscalingConfigUrl : String;
   Protected
     //Property setters
-    Procedure SetautoscalingConfigUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetautoscalingConfigUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property autoscalingConfigUrl : String Index 0 Read FautoscalingConfigUrl Write SetautoscalingConfigUrl;
@@ -239,8 +239,8 @@ type
     Fstatus : String;
   Protected
     //Property setters
-    Procedure Setdetails(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdetails(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property details : String Index 0 Read Fdetails Write Setdetails;
@@ -277,13 +277,13 @@ type
     FtemplateName : String;
   Protected
     //Property setters
-    Procedure SetcreationDate(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmodules(AIndex : Integer; AValue : TDeploymentTypemodules); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setoverrides(AIndex : Integer; AValue : TDeploymentTypeoverridesArray); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TDeployState); virtual;
-    Procedure SettemplateName(AIndex : Integer; AValue : String); virtual;
+    Procedure SettemplateName(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -310,7 +310,7 @@ type
     Fresources : TDeploymentsListResponseTyperesourcesArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TDeploymentsListResponseTyperesourcesArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -333,7 +333,7 @@ type
     Findex : integer;
   Protected
     //Property setters
-    Procedure SetdeviceName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdeviceName(AIndex : Integer; const AValue : String); virtual;
     Procedure Setindex(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -353,7 +353,7 @@ type
   Protected
     //Property setters
     Procedure Sethidden(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property hidden : boolean Index 0 Read Fhidden Write Sethidden;
@@ -372,7 +372,7 @@ type
   Protected
     //Property setters
     Procedure Setattachment(AIndex : Integer; AValue : TDiskAttachment); virtual;
-    Procedure Setsource(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property attachment : TDiskAttachment Index 0 Read Fattachment Write Setattachment;
@@ -395,8 +395,8 @@ type
   Protected
     //Property setters
     Procedure Setallowed(AIndex : Integer; AValue : TFirewallModuleTypeallowedArray); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
     Procedure SetsourceRanges(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetsourceTags(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SettargetTags(AIndex : Integer; AValue : TStringArray); virtual;
@@ -424,7 +424,7 @@ type
     FfirewallUrl : String;
   Protected
     //Property setters
-    Procedure SetfirewallUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfirewallUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property firewallUrl : String Index 0 Read FfirewallUrl Write SetfirewallUrl;
@@ -448,10 +448,10 @@ type
   Protected
     //Property setters
     Procedure SetcheckIntervalSec(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure SethealthyThreshold(AIndex : Integer; AValue : integer); virtual;
-    Procedure Sethost(AIndex : Integer; AValue : String); virtual;
-    Procedure Setpath(AIndex : Integer; AValue : String); virtual;
+    Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
     Procedure Setport(AIndex : Integer; AValue : integer); virtual;
     Procedure SettimeoutSec(AIndex : Integer; AValue : integer); virtual;
     Procedure SetunhealthyThreshold(AIndex : Integer; AValue : integer); virtual;
@@ -477,7 +477,7 @@ type
     FhealthCheckUrl : String;
   Protected
     //Property setters
-    Procedure SethealthCheckUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SethealthCheckUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property healthCheckUrl : String Index 0 Read FhealthCheckUrl Write SethealthCheckUrl;
@@ -499,12 +499,12 @@ type
     FtargetModules : TStringArray;
   Protected
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure SethealthChecks(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetipAddress(AIndex : Integer; AValue : String); virtual;
-    Procedure SetipProtocol(AIndex : Integer; AValue : String); virtual;
-    Procedure SetportRange(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsessionAffinity(AIndex : Integer; AValue : String); virtual;
+    Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetipProtocol(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetportRange(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsessionAffinity(AIndex : Integer; const AValue : String); virtual;
     Procedure SettargetModules(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -532,8 +532,8 @@ type
     FtargetPoolUrl : String;
   Protected
     //Property setters
-    Procedure SetforwardingRuleUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetPoolUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetforwardingRuleUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettargetPoolUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property forwardingRuleUrl : String Index 0 Read FforwardingRuleUrl Write SetforwardingRuleUrl;
@@ -551,7 +551,7 @@ type
     Fitems : TMetadataTypeitemsArray;
   Protected
     //Property setters
-    Procedure SetfingerPrint(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfingerPrint(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -574,8 +574,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -605,7 +605,7 @@ type
     Procedure SetlbModule(AIndex : Integer; AValue : TLbModule); virtual;
     Procedure SetnetworkModule(AIndex : Integer; AValue : TNetworkModule); virtual;
     Procedure SetreplicaPoolModule(AIndex : Integer; AValue : TReplicaPoolModule); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property autoscalingModule : TAutoscalingModule Index 0 Read FautoscalingModule Write SetautoscalingModule;
@@ -642,7 +642,7 @@ type
     Procedure SetnetworkModuleStatus(AIndex : Integer; AValue : TNetworkModuleStatus); virtual;
     Procedure SetreplicaPoolModuleStatus(AIndex : Integer; AValue : TReplicaPoolModuleStatus); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TDeployState); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property autoscalingModuleStatus : TAutoscalingModuleStatus Index 0 Read FautoscalingModuleStatus Write SetautoscalingModuleStatus;
@@ -669,9 +669,9 @@ type
   Protected
     //Property setters
     Procedure SetaccessConfigs(AIndex : Integer; AValue : TNetworkInterfaceTypeaccessConfigsArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnetworkIp(AIndex : Integer; AValue : String); 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;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -696,9 +696,9 @@ type
     FgatewayIPv4 : String;
   Protected
     //Property setters
-    Procedure SetIPv4Range(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure SetgatewayIPv4(AIndex : Integer; AValue : String); virtual;
+    Procedure SetIPv4Range(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetgatewayIPv4(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property IPv4Range : String Index 0 Read FIPv4Range Write SetIPv4Range;
@@ -716,7 +716,7 @@ type
     FnetworkUrl : String;
   Protected
     //Property setters
-    Procedure SetnetworkUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnetworkUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property networkUrl : String Index 0 Read FnetworkUrl Write SetnetworkUrl;
@@ -759,9 +759,9 @@ type
     FsourceImage : String;
   Protected
     //Property setters
-    Procedure SetdiskSizeGb(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdiskType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsourceImage(AIndex : Integer; 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 diskSizeGb : String Index 0 Read FdiskSizeGb Write SetdiskSizeGb;
@@ -780,8 +780,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setpath(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property path : String Index 0 Read Fpath Write Setpath;
@@ -820,7 +820,7 @@ type
     Procedure SethealthChecks(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetnumReplicas(AIndex : Integer; AValue : integer); virtual;
     Procedure SetreplicaPoolParams(AIndex : Integer; AValue : TReplicaPoolParams); virtual;
-    Procedure SetresourceView(AIndex : Integer; AValue : String); virtual;
+    Procedure SetresourceView(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -845,8 +845,8 @@ type
     FresourceViewUrl : String;
   Protected
     //Property setters
-    Procedure SetreplicaPoolUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure SetresourceViewUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetreplicaPoolUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetresourceViewUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property replicaPoolUrl : String Index 0 Read FreplicaPoolUrl Write SetreplicaPoolUrl;
@@ -893,19 +893,19 @@ type
   Protected
     //Property setters
     Procedure SetautoRestart(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetbaseInstanceName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbaseInstanceName(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcanIpForward(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure SetdisksToAttach(AIndex : Integer; AValue : TReplicaPoolParamsV1Beta1TypedisksToAttachArray); virtual;
     Procedure SetdisksToCreate(AIndex : Integer; AValue : TReplicaPoolParamsV1Beta1TypedisksToCreateArray); virtual;
-    Procedure SetinitAction(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmachineType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetinitAction(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmetadata(AIndex : Integer; AValue : TMetadata); virtual;
     Procedure SetnetworkInterfaces(AIndex : Integer; AValue : TReplicaPoolParamsV1Beta1TypenetworkInterfacesArray); virtual;
-    Procedure SetonHostMaintenance(AIndex : Integer; AValue : String); virtual;
+    Procedure SetonHostMaintenance(AIndex : Integer; const AValue : String); virtual;
     Procedure SetserviceAccounts(AIndex : Integer; AValue : TReplicaPoolParamsV1Beta1TypeserviceAccountsArray); virtual;
     Procedure Settags(AIndex : Integer; AValue : TTag); virtual;
-    Procedure Setzone(AIndex : Integer; 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;
@@ -939,7 +939,7 @@ type
     Fscopes : TStringArray;
   Protected
     //Property setters
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
     Procedure Setscopes(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -962,7 +962,7 @@ type
     Fitems : TStringArray;
   Protected
     //Property setters
-    Procedure SetfingerPrint(AIndex : Integer; AValue : String); virtual;
+    Procedure SetfingerPrint(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -1016,9 +1016,9 @@ type
   Protected
     //Property setters
     Procedure Setactions(AIndex : Integer; AValue : TTemplateTypeactions); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmodules(AIndex : Integer; AValue : TTemplateTypemodules); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property actions : TTemplateTypeactions Index 0 Read Factions Write Setactions;
@@ -1038,7 +1038,7 @@ type
     Fresources : TTemplatesListResponseTyperesourcesArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TTemplatesListResponseTyperesourcesArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -1149,7 +1149,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAccessConfig.Setname(AIndex : Integer; AValue : String); 
+Procedure TAccessConfig.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1159,7 +1159,7 @@ end;
 
 
 
-Procedure TAccessConfig.SetnatIp(AIndex : Integer; AValue : String); 
+Procedure TAccessConfig.SetnatIp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnatIp=AValue) then exit;
@@ -1169,7 +1169,7 @@ end;
 
 
 
-Procedure TAccessConfig.Set_type(AIndex : Integer; AValue : String); 
+Procedure TAccessConfig.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1237,7 +1237,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAllowedRule.SetIPProtocol(AIndex : Integer; AValue : String); 
+Procedure TAllowedRule.SetIPProtocol(AIndex : Integer; const AValue : String); 
 
 begin
   If (FIPProtocol=AValue) then exit;
@@ -1287,7 +1287,7 @@ end;
 
 
 
-Procedure TAutoscalingModule.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TAutoscalingModule.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1317,7 +1317,7 @@ end;
 
 
 
-Procedure TAutoscalingModule.SetsignalType(AIndex : Integer; AValue : String); 
+Procedure TAutoscalingModule.SetsignalType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsignalType=AValue) then exit;
@@ -1327,7 +1327,7 @@ end;
 
 
 
-Procedure TAutoscalingModule.SettargetModule(AIndex : Integer; AValue : String); 
+Procedure TAutoscalingModule.SettargetModule(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetModule=AValue) then exit;
@@ -1354,7 +1354,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAutoscalingModuleStatus.SetautoscalingConfigUrl(AIndex : Integer; AValue : String); 
+Procedure TAutoscalingModuleStatus.SetautoscalingConfigUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FautoscalingConfigUrl=AValue) then exit;
@@ -1371,7 +1371,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDeployState.Setdetails(AIndex : Integer; AValue : String); 
+Procedure TDeployState.Setdetails(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdetails=AValue) then exit;
@@ -1381,7 +1381,7 @@ end;
 
 
 
-Procedure TDeployState.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TDeployState.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1411,7 +1411,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDeployment.SetcreationDate(AIndex : Integer; AValue : String); 
+Procedure TDeployment.SetcreationDate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationDate=AValue) then exit;
@@ -1421,7 +1421,7 @@ end;
 
 
 
-Procedure TDeployment.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1441,7 +1441,7 @@ end;
 
 
 
-Procedure TDeployment.Setname(AIndex : Integer; AValue : String); 
+Procedure TDeployment.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1471,7 +1471,7 @@ end;
 
 
 
-Procedure TDeployment.SettemplateName(AIndex : Integer; AValue : String); 
+Procedure TDeployment.SettemplateName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtemplateName=AValue) then exit;
@@ -1501,7 +1501,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDeploymentsListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TDeploymentsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1541,7 +1541,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDiskAttachment.SetdeviceName(AIndex : Integer; AValue : String); 
+Procedure TDiskAttachment.SetdeviceName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdeviceName=AValue) then exit;
@@ -1578,7 +1578,7 @@ end;
 
 
 
-Procedure TEnvVariable.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TEnvVariable.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1605,7 +1605,7 @@ end;
 
 
 
-Procedure TExistingDisk.Setsource(AIndex : Integer; AValue : String); 
+Procedure TExistingDisk.Setsource(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsource=AValue) then exit;
@@ -1632,7 +1632,7 @@ end;
 
 
 
-Procedure TFirewallModule.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TFirewallModule.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1642,7 +1642,7 @@ end;
 
 
 
-Procedure TFirewallModule.Setnetwork(AIndex : Integer; AValue : String); 
+Procedure TFirewallModule.Setnetwork(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnetwork=AValue) then exit;
@@ -1705,7 +1705,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TFirewallModuleStatus.SetfirewallUrl(AIndex : Integer; AValue : String); 
+Procedure TFirewallModuleStatus.SetfirewallUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfirewallUrl=AValue) then exit;
@@ -1732,7 +1732,7 @@ end;
 
 
 
-Procedure THealthCheckModule.Setdescription(AIndex : Integer; AValue : String); 
+Procedure THealthCheckModule.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1752,7 +1752,7 @@ end;
 
 
 
-Procedure THealthCheckModule.Sethost(AIndex : Integer; AValue : String); 
+Procedure THealthCheckModule.Sethost(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fhost=AValue) then exit;
@@ -1762,7 +1762,7 @@ end;
 
 
 
-Procedure THealthCheckModule.Setpath(AIndex : Integer; AValue : String); 
+Procedure THealthCheckModule.Setpath(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpath=AValue) then exit;
@@ -1809,7 +1809,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure THealthCheckModuleStatus.SethealthCheckUrl(AIndex : Integer; AValue : String); 
+Procedure THealthCheckModuleStatus.SethealthCheckUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhealthCheckUrl=AValue) then exit;
@@ -1826,7 +1826,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLbModule.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TLbModule.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1846,7 +1846,7 @@ end;
 
 
 
-Procedure TLbModule.SetipAddress(AIndex : Integer; AValue : String); 
+Procedure TLbModule.SetipAddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (FipAddress=AValue) then exit;
@@ -1856,7 +1856,7 @@ end;
 
 
 
-Procedure TLbModule.SetipProtocol(AIndex : Integer; AValue : String); 
+Procedure TLbModule.SetipProtocol(AIndex : Integer; const AValue : String); 
 
 begin
   If (FipProtocol=AValue) then exit;
@@ -1866,7 +1866,7 @@ end;
 
 
 
-Procedure TLbModule.SetportRange(AIndex : Integer; AValue : String); 
+Procedure TLbModule.SetportRange(AIndex : Integer; const AValue : String); 
 
 begin
   If (FportRange=AValue) then exit;
@@ -1876,7 +1876,7 @@ end;
 
 
 
-Procedure TLbModule.SetsessionAffinity(AIndex : Integer; AValue : String); 
+Procedure TLbModule.SetsessionAffinity(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsessionAffinity=AValue) then exit;
@@ -1917,7 +1917,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLbModuleStatus.SetforwardingRuleUrl(AIndex : Integer; AValue : String); 
+Procedure TLbModuleStatus.SetforwardingRuleUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FforwardingRuleUrl=AValue) then exit;
@@ -1927,7 +1927,7 @@ end;
 
 
 
-Procedure TLbModuleStatus.SettargetPoolUrl(AIndex : Integer; AValue : String); 
+Procedure TLbModuleStatus.SettargetPoolUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetPoolUrl=AValue) then exit;
@@ -1944,7 +1944,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetadata.SetfingerPrint(AIndex : Integer; AValue : String); 
+Procedure TMetadata.SetfingerPrint(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfingerPrint=AValue) then exit;
@@ -1984,7 +1984,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMetadataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TMetadataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1994,7 +1994,7 @@ end;
 
 
 
-Procedure TMetadataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TMetadataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -2071,7 +2071,7 @@ end;
 
 
 
-Procedure TModule.Set_type(AIndex : Integer; AValue : String); 
+Procedure TModule.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2169,7 +2169,7 @@ end;
 
 
 
-Procedure TModuleStatus.Set_type(AIndex : Integer; AValue : String); 
+Procedure TModuleStatus.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2207,7 +2207,7 @@ end;
 
 
 
-Procedure TNetworkInterface.Setname(AIndex : Integer; AValue : String); 
+Procedure TNetworkInterface.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2217,7 +2217,7 @@ end;
 
 
 
-Procedure TNetworkInterface.Setnetwork(AIndex : Integer; AValue : String); 
+Procedure TNetworkInterface.Setnetwork(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnetwork=AValue) then exit;
@@ -2227,7 +2227,7 @@ end;
 
 
 
-Procedure TNetworkInterface.SetnetworkIp(AIndex : Integer; AValue : String); 
+Procedure TNetworkInterface.SetnetworkIp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnetworkIp=AValue) then exit;
@@ -2257,7 +2257,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TNetworkModule.SetIPv4Range(AIndex : Integer; AValue : String); 
+Procedure TNetworkModule.SetIPv4Range(AIndex : Integer; const AValue : String); 
 
 begin
   If (FIPv4Range=AValue) then exit;
@@ -2267,7 +2267,7 @@ end;
 
 
 
-Procedure TNetworkModule.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TNetworkModule.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -2277,7 +2277,7 @@ end;
 
 
 
-Procedure TNetworkModule.SetgatewayIPv4(AIndex : Integer; AValue : String); 
+Procedure TNetworkModule.SetgatewayIPv4(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgatewayIPv4=AValue) then exit;
@@ -2294,7 +2294,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TNetworkModuleStatus.SetnetworkUrl(AIndex : Integer; AValue : String); 
+Procedure TNetworkModuleStatus.SetnetworkUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnetworkUrl=AValue) then exit;
@@ -2358,7 +2358,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TNewDiskInitializeParams.SetdiskSizeGb(AIndex : Integer; AValue : String); 
+Procedure TNewDiskInitializeParams.SetdiskSizeGb(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdiskSizeGb=AValue) then exit;
@@ -2368,7 +2368,7 @@ end;
 
 
 
-Procedure TNewDiskInitializeParams.SetdiskType(AIndex : Integer; AValue : String); 
+Procedure TNewDiskInitializeParams.SetdiskType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdiskType=AValue) then exit;
@@ -2378,7 +2378,7 @@ end;
 
 
 
-Procedure TNewDiskInitializeParams.SetsourceImage(AIndex : Integer; AValue : String); 
+Procedure TNewDiskInitializeParams.SetsourceImage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsourceImage=AValue) then exit;
@@ -2395,7 +2395,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TParamOverride.Setpath(AIndex : Integer; AValue : String); 
+Procedure TParamOverride.Setpath(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpath=AValue) then exit;
@@ -2405,7 +2405,7 @@ end;
 
 
 
-Procedure TParamOverride.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TParamOverride.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -2475,7 +2475,7 @@ end;
 
 
 
-Procedure TReplicaPoolModule.SetresourceView(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolModule.SetresourceView(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceView=AValue) then exit;
@@ -2505,7 +2505,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReplicaPoolModuleStatus.SetreplicaPoolUrl(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolModuleStatus.SetreplicaPoolUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreplicaPoolUrl=AValue) then exit;
@@ -2515,7 +2515,7 @@ end;
 
 
 
-Procedure TReplicaPoolModuleStatus.SetresourceViewUrl(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolModuleStatus.SetresourceViewUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceViewUrl=AValue) then exit;
@@ -2559,7 +2559,7 @@ end;
 
 
 
-Procedure TReplicaPoolParamsV1Beta1.SetbaseInstanceName(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolParamsV1Beta1.SetbaseInstanceName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbaseInstanceName=AValue) then exit;
@@ -2579,7 +2579,7 @@ end;
 
 
 
-Procedure TReplicaPoolParamsV1Beta1.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolParamsV1Beta1.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -2609,7 +2609,7 @@ end;
 
 
 
-Procedure TReplicaPoolParamsV1Beta1.SetinitAction(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolParamsV1Beta1.SetinitAction(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinitAction=AValue) then exit;
@@ -2619,7 +2619,7 @@ end;
 
 
 
-Procedure TReplicaPoolParamsV1Beta1.SetmachineType(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolParamsV1Beta1.SetmachineType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmachineType=AValue) then exit;
@@ -2649,7 +2649,7 @@ end;
 
 
 
-Procedure TReplicaPoolParamsV1Beta1.SetonHostMaintenance(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolParamsV1Beta1.SetonHostMaintenance(AIndex : Integer; const AValue : String); 
 
 begin
   If (FonHostMaintenance=AValue) then exit;
@@ -2679,7 +2679,7 @@ end;
 
 
 
-Procedure TReplicaPoolParamsV1Beta1.Setzone(AIndex : Integer; AValue : String); 
+Procedure TReplicaPoolParamsV1Beta1.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -2712,7 +2712,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TServiceAccount.Setemail(AIndex : Integer; AValue : String); 
+Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -2752,7 +2752,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTag.SetfingerPrint(AIndex : Integer; AValue : String); 
+Procedure TTag.SetfingerPrint(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfingerPrint=AValue) then exit;
@@ -2828,7 +2828,7 @@ end;
 
 
 
-Procedure TTemplate.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TTemplate.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -2848,7 +2848,7 @@ end;
 
 
 
-Procedure TTemplate.Setname(AIndex : Integer; AValue : String); 
+Procedure TTemplate.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2865,7 +2865,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTemplatesListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTemplatesListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googlemirror.pp

@@ -93,7 +93,7 @@ type
     //Property setters
     Procedure SetauthTokens(AIndex : Integer; AValue : TAccountTypeauthTokensArray); virtual;
     Procedure Setfeatures(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setpassword(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
     Procedure SetuserData(AIndex : Integer; AValue : TAccountTypeuserDataArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -120,9 +120,9 @@ type
     FisProcessingContent : boolean;
   Protected
     //Property setters
-    Procedure SetcontentType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontentUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontentType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontentUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetisProcessingContent(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -144,7 +144,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TAttachmentsListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -167,8 +167,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetauthToken(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetauthToken(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property authToken : String Index 0 Read FauthToken Write SetauthToken;
@@ -186,7 +186,7 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property _type : String Index 0 Read F_type Write Set_type;
@@ -216,16 +216,16 @@ type
     //Property setters
     Procedure SetacceptCommands(AIndex : Integer; AValue : TContactTypeacceptCommandsArray); virtual;
     Procedure SetacceptTypes(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetimageUrls(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetphoneNumber(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpriority(AIndex : Integer; AValue : integer); virtual;
     Procedure SetsharingFeatures(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setsource(AIndex : Integer; AValue : String); virtual;
-    Procedure SetspeakableName(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetspeakableName(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;
@@ -258,7 +258,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TContactsListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -287,10 +287,10 @@ type
   Protected
     //Property setters
     Procedure Setaccuracy(AIndex : Integer; AValue : double); virtual;
-    Procedure Setaddress(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
     Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
     Procedure Settimestamp(AIndex : Integer; AValue : TDatetime); virtual;
@@ -318,7 +318,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TLocationsListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -344,10 +344,10 @@ type
     Fvalues : TMenuItemTypevaluesArray;
   Protected
     //Property setters
-    Procedure Setaction(AIndex : Integer; AValue : String); virtual;
-    Procedure Setcontextual_command(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setpayload(AIndex : Integer; AValue : String); virtual;
+    Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setcontextual_command(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setpayload(AIndex : Integer; const AValue : String); virtual;
     Procedure SetremoveWhenSelected(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setvalues(AIndex : Integer; AValue : TMenuItemTypevaluesArray); virtual;
     //2.6.4. bug workaround
@@ -376,9 +376,9 @@ type
     Fstate : String;
   Protected
     //Property setters
-    Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
-    Procedure SeticonUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
@@ -401,12 +401,12 @@ type
     FverifyToken : String;
   Protected
     //Property setters
-    Procedure Setcollection(AIndex : Integer; AValue : String); virtual;
-    Procedure SetitemId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setoperation(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcollection(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetitemId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setoperation(AIndex : Integer; const AValue : String); virtual;
     Procedure SetuserActions(AIndex : Integer; AValue : TNotificationTypeuserActionsArray); virtual;
-    Procedure SetuserToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetverifyToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetuserToken(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetverifyToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -433,7 +433,7 @@ type
   Protected
     //Property setters
     Procedure SetdeliveryTime(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setlevel(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlevel(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property deliveryTime : TDatetime Index 0 Read FdeliveryTime Write SetdeliveryTime;
@@ -452,9 +452,9 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -480,15 +480,15 @@ type
     FverifyToken : String;
   Protected
     //Property setters
-    Procedure SetcallbackUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setcollection(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcallbackUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setcollection(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setnotification(AIndex : Integer; AValue : TNotification); virtual;
     Procedure Setoperation(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetuserToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetverifyToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetuserToken(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetverifyToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -518,7 +518,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TSubscriptionsListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -565,30 +565,30 @@ type
   Protected
     //Property setters
     Procedure Setattachments(AIndex : Integer; AValue : TTimelineItemTypeattachmentsArray); virtual;
-    Procedure SetbundleId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcanonicalUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbundleId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcanonicalUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setcreator(AIndex : Integer; AValue : TContact); virtual;
     Procedure SetdisplayTime(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
-    Procedure Sethtml(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinReplyTo(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+    Procedure Sethtml(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetinReplyTo(AIndex : Integer; const AValue : String); virtual;
     Procedure SetisBundleCover(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetisDeleted(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetisPinned(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlocation(AIndex : Integer; AValue : TLocation); virtual;
     Procedure SetmenuItems(AIndex : Integer; AValue : TTimelineItemTypemenuItemsArray); virtual;
     Procedure Setnotification(AIndex : Integer; AValue : TNotificationConfig); virtual;
     Procedure SetpinScore(AIndex : Integer; AValue : integer); virtual;
     Procedure Setrecipients(AIndex : Integer; AValue : TTimelineItemTyperecipientsArray); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsourceItemId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetspeakableText(AIndex : Integer; AValue : String); virtual;
-    Procedure SetspeakableType(AIndex : Integer; AValue : String); virtual;
-    Procedure Settext(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsourceItemId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetspeakableText(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetspeakableType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settext(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -637,8 +637,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTimelineListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -662,8 +662,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setpayload(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpayload(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property payload : String Index 0 Read Fpayload Write Setpayload;
@@ -681,8 +681,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -906,7 +906,7 @@ end;
 
 
 
-Procedure TAccount.Setpassword(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setpassword(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpassword=AValue) then exit;
@@ -948,7 +948,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAttachment.SetcontentType(AIndex : Integer; AValue : String); 
+Procedure TAttachment.SetcontentType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontentType=AValue) then exit;
@@ -958,7 +958,7 @@ end;
 
 
 
-Procedure TAttachment.SetcontentUrl(AIndex : Integer; AValue : String); 
+Procedure TAttachment.SetcontentUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontentUrl=AValue) then exit;
@@ -968,7 +968,7 @@ end;
 
 
 
-Procedure TAttachment.Setid(AIndex : Integer; AValue : String); 
+Procedure TAttachment.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1005,7 +1005,7 @@ end;
 
 
 
-Procedure TAttachmentsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAttachmentsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1035,7 +1035,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAuthToken.SetauthToken(AIndex : Integer; AValue : String); 
+Procedure TAuthToken.SetauthToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FauthToken=AValue) then exit;
@@ -1045,7 +1045,7 @@ end;
 
 
 
-Procedure TAuthToken.Set_type(AIndex : Integer; AValue : String); 
+Procedure TAuthToken.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1073,7 +1073,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCommand.Set_type(AIndex : Integer; AValue : String); 
+Procedure TCommand.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1121,7 +1121,7 @@ end;
 
 
 
-Procedure TContact.SetdisplayName(AIndex : Integer; AValue : String); 
+Procedure TContact.SetdisplayName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -1131,7 +1131,7 @@ end;
 
 
 
-Procedure TContact.Setid(AIndex : Integer; AValue : String); 
+Procedure TContact.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1151,7 +1151,7 @@ end;
 
 
 
-Procedure TContact.Setkind(AIndex : Integer; AValue : String); 
+Procedure TContact.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1161,7 +1161,7 @@ end;
 
 
 
-Procedure TContact.SetphoneNumber(AIndex : Integer; AValue : String); 
+Procedure TContact.SetphoneNumber(AIndex : Integer; const AValue : String); 
 
 begin
   If (FphoneNumber=AValue) then exit;
@@ -1191,7 +1191,7 @@ end;
 
 
 
-Procedure TContact.Setsource(AIndex : Integer; AValue : String); 
+Procedure TContact.Setsource(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsource=AValue) then exit;
@@ -1201,7 +1201,7 @@ end;
 
 
 
-Procedure TContact.SetspeakableName(AIndex : Integer; AValue : String); 
+Procedure TContact.SetspeakableName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FspeakableName=AValue) then exit;
@@ -1211,7 +1211,7 @@ end;
 
 
 
-Procedure TContact.Set_type(AIndex : Integer; AValue : String); 
+Procedure TContact.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1265,7 +1265,7 @@ end;
 
 
 
-Procedure TContactsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TContactsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1305,7 +1305,7 @@ end;
 
 
 
-Procedure TLocation.Setaddress(AIndex : Integer; AValue : String); 
+Procedure TLocation.Setaddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (Faddress=AValue) then exit;
@@ -1315,7 +1315,7 @@ end;
 
 
 
-Procedure TLocation.SetdisplayName(AIndex : Integer; AValue : String); 
+Procedure TLocation.SetdisplayName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -1325,7 +1325,7 @@ end;
 
 
 
-Procedure TLocation.Setid(AIndex : Integer; AValue : String); 
+Procedure TLocation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1335,7 +1335,7 @@ end;
 
 
 
-Procedure TLocation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLocation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1392,7 +1392,7 @@ end;
 
 
 
-Procedure TLocationsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TLocationsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1422,7 +1422,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMenuItem.Setaction(AIndex : Integer; AValue : String); 
+Procedure TMenuItem.Setaction(AIndex : Integer; const AValue : String); 
 
 begin
   If (Faction=AValue) then exit;
@@ -1432,7 +1432,7 @@ end;
 
 
 
-Procedure TMenuItem.Setcontextual_command(AIndex : Integer; AValue : String); 
+Procedure TMenuItem.Setcontextual_command(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcontextual_command=AValue) then exit;
@@ -1442,7 +1442,7 @@ end;
 
 
 
-Procedure TMenuItem.Setid(AIndex : Integer; AValue : String); 
+Procedure TMenuItem.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1452,7 +1452,7 @@ end;
 
 
 
-Procedure TMenuItem.Setpayload(AIndex : Integer; AValue : String); 
+Procedure TMenuItem.Setpayload(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpayload=AValue) then exit;
@@ -1502,7 +1502,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMenuValue.SetdisplayName(AIndex : Integer; AValue : String); 
+Procedure TMenuValue.SetdisplayName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdisplayName=AValue) then exit;
@@ -1512,7 +1512,7 @@ end;
 
 
 
-Procedure TMenuValue.SeticonUrl(AIndex : Integer; AValue : String); 
+Procedure TMenuValue.SeticonUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FiconUrl=AValue) then exit;
@@ -1522,7 +1522,7 @@ end;
 
 
 
-Procedure TMenuValue.Setstate(AIndex : Integer; AValue : String); 
+Procedure TMenuValue.Setstate(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstate=AValue) then exit;
@@ -1539,7 +1539,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TNotification.Setcollection(AIndex : Integer; AValue : String); 
+Procedure TNotification.Setcollection(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcollection=AValue) then exit;
@@ -1549,7 +1549,7 @@ end;
 
 
 
-Procedure TNotification.SetitemId(AIndex : Integer; AValue : String); 
+Procedure TNotification.SetitemId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FitemId=AValue) then exit;
@@ -1559,7 +1559,7 @@ end;
 
 
 
-Procedure TNotification.Setoperation(AIndex : Integer; AValue : String); 
+Procedure TNotification.Setoperation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Foperation=AValue) then exit;
@@ -1579,7 +1579,7 @@ end;
 
 
 
-Procedure TNotification.SetuserToken(AIndex : Integer; AValue : String); 
+Procedure TNotification.SetuserToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserToken=AValue) then exit;
@@ -1589,7 +1589,7 @@ end;
 
 
 
-Procedure TNotification.SetverifyToken(AIndex : Integer; AValue : String); 
+Procedure TNotification.SetverifyToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FverifyToken=AValue) then exit;
@@ -1629,7 +1629,7 @@ end;
 
 
 
-Procedure TNotificationConfig.Setlevel(AIndex : Integer; AValue : String); 
+Procedure TNotificationConfig.Setlevel(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flevel=AValue) then exit;
@@ -1646,7 +1646,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSetting.Setid(AIndex : Integer; AValue : String); 
+Procedure TSetting.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1656,7 +1656,7 @@ end;
 
 
 
-Procedure TSetting.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSetting.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1666,7 +1666,7 @@ end;
 
 
 
-Procedure TSetting.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TSetting.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1683,7 +1683,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscription.SetcallbackUrl(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetcallbackUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcallbackUrl=AValue) then exit;
@@ -1693,7 +1693,7 @@ end;
 
 
 
-Procedure TSubscription.Setcollection(AIndex : Integer; AValue : String); 
+Procedure TSubscription.Setcollection(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcollection=AValue) then exit;
@@ -1703,7 +1703,7 @@ end;
 
 
 
-Procedure TSubscription.Setid(AIndex : Integer; AValue : String); 
+Procedure TSubscription.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1713,7 +1713,7 @@ end;
 
 
 
-Procedure TSubscription.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSubscription.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1753,7 +1753,7 @@ end;
 
 
 
-Procedure TSubscription.SetuserToken(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetuserToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FuserToken=AValue) then exit;
@@ -1763,7 +1763,7 @@ end;
 
 
 
-Procedure TSubscription.SetverifyToken(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetverifyToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FverifyToken=AValue) then exit;
@@ -1803,7 +1803,7 @@ end;
 
 
 
-Procedure TSubscriptionsListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionsListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1843,7 +1843,7 @@ end;
 
 
 
-Procedure TTimelineItem.SetbundleId(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.SetbundleId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbundleId=AValue) then exit;
@@ -1853,7 +1853,7 @@ end;
 
 
 
-Procedure TTimelineItem.SetcanonicalUrl(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.SetcanonicalUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcanonicalUrl=AValue) then exit;
@@ -1893,7 +1893,7 @@ end;
 
 
 
-Procedure TTimelineItem.Setetag(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1903,7 +1903,7 @@ end;
 
 
 
-Procedure TTimelineItem.Sethtml(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.Sethtml(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fhtml=AValue) then exit;
@@ -1913,7 +1913,7 @@ end;
 
 
 
-Procedure TTimelineItem.Setid(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1923,7 +1923,7 @@ end;
 
 
 
-Procedure TTimelineItem.SetinReplyTo(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.SetinReplyTo(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinReplyTo=AValue) then exit;
@@ -1963,7 +1963,7 @@ end;
 
 
 
-Procedure TTimelineItem.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2023,7 +2023,7 @@ end;
 
 
 
-Procedure TTimelineItem.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -2033,7 +2033,7 @@ end;
 
 
 
-Procedure TTimelineItem.SetsourceItemId(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.SetsourceItemId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsourceItemId=AValue) then exit;
@@ -2043,7 +2043,7 @@ end;
 
 
 
-Procedure TTimelineItem.SetspeakableText(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.SetspeakableText(AIndex : Integer; const AValue : String); 
 
 begin
   If (FspeakableText=AValue) then exit;
@@ -2053,7 +2053,7 @@ end;
 
 
 
-Procedure TTimelineItem.SetspeakableType(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.SetspeakableType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FspeakableType=AValue) then exit;
@@ -2063,7 +2063,7 @@ end;
 
 
 
-Procedure TTimelineItem.Settext(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.Settext(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftext=AValue) then exit;
@@ -2073,7 +2073,7 @@ end;
 
 
 
-Procedure TTimelineItem.Settitle(AIndex : Integer; AValue : String); 
+Procedure TTimelineItem.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -2125,7 +2125,7 @@ end;
 
 
 
-Procedure TTimelineListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTimelineListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2135,7 +2135,7 @@ end;
 
 
 
-Procedure TTimelineListResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTimelineListResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -2165,7 +2165,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUserAction.Setpayload(AIndex : Integer; AValue : String); 
+Procedure TUserAction.Setpayload(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpayload=AValue) then exit;
@@ -2175,7 +2175,7 @@ end;
 
 
 
-Procedure TUserAction.Set_type(AIndex : Integer; AValue : String); 
+Procedure TUserAction.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2203,7 +2203,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUserData.Setkey(AIndex : Integer; AValue : String); 
+Procedure TUserData.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -2213,7 +2213,7 @@ end;
 
 
 
-Procedure TUserData.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TUserData.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;

packages/googleapi/src/googleoauth2.pp

@@ -48,12 +48,12 @@ type
     Fuse : String;
   Protected
     //Property setters
-    Procedure Setalg(AIndex : Integer; AValue : String); virtual;
-    Procedure Sete(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkty(AIndex : Integer; AValue : String); virtual;
-    Procedure Setn(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuse(AIndex : Integer; AValue : String); virtual;
+    Procedure Setalg(AIndex : Integer; const AValue : String); virtual;
+    Procedure Sete(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkty(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setn(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setuse(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property alg : String Index 0 Read Falg Write Setalg;
@@ -102,14 +102,14 @@ type
     Fverified_email : boolean;
   Protected
     //Property setters
-    Procedure Setaccess_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setaudience(AIndex : Integer; AValue : String); virtual;
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
+    Procedure Setaccess_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setaudience(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
     Procedure Setexpires_in(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setissued_to(AIndex : Integer; AValue : String); virtual;
-    Procedure Setscope(AIndex : Integer; AValue : String); virtual;
-    Procedure Settoken_handle(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser_id(AIndex : Integer; AValue : String); virtual;
+    Procedure Setissued_to(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setscope(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settoken_handle(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setuser_id(AIndex : Integer; const AValue : String); virtual;
     Procedure Setverified_email(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -144,16 +144,16 @@ type
     Fverified_email : boolean;
   Protected
     //Property setters
-    Procedure Setemail(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfamily_name(AIndex : Integer; AValue : String); virtual;
-    Procedure Setgender(AIndex : Integer; AValue : String); virtual;
-    Procedure Setgiven_name(AIndex : Integer; AValue : String); virtual;
-    Procedure Sethd(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocale(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setpicture(AIndex : Integer; AValue : String); virtual;
+    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfamily_name(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setgiven_name(AIndex : Integer; const AValue : String); virtual;
+    Procedure Sethd(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setpicture(AIndex : Integer; const AValue : String); virtual;
     Procedure Setverified_email(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -278,7 +278,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TJwkTypekeysItem.Setalg(AIndex : Integer; AValue : String); 
+Procedure TJwkTypekeysItem.Setalg(AIndex : Integer; const AValue : String); 
 
 begin
   If (Falg=AValue) then exit;
@@ -288,7 +288,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Sete(AIndex : Integer; AValue : String); 
+Procedure TJwkTypekeysItem.Sete(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fe=AValue) then exit;
@@ -298,7 +298,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setkid(AIndex : Integer; AValue : String); 
+Procedure TJwkTypekeysItem.Setkid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkid=AValue) then exit;
@@ -308,7 +308,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setkty(AIndex : Integer; AValue : String); 
+Procedure TJwkTypekeysItem.Setkty(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkty=AValue) then exit;
@@ -318,7 +318,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setn(AIndex : Integer; AValue : String); 
+Procedure TJwkTypekeysItem.Setn(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fn=AValue) then exit;
@@ -328,7 +328,7 @@ end;
 
 
 
-Procedure TJwkTypekeysItem.Setuse(AIndex : Integer; AValue : String); 
+Procedure TJwkTypekeysItem.Setuse(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuse=AValue) then exit;
@@ -375,7 +375,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTokeninfo.Setaccess_type(AIndex : Integer; AValue : String); 
+Procedure TTokeninfo.Setaccess_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (Faccess_type=AValue) then exit;
@@ -385,7 +385,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setaudience(AIndex : Integer; AValue : String); 
+Procedure TTokeninfo.Setaudience(AIndex : Integer; const AValue : String); 
 
 begin
   If (Faudience=AValue) then exit;
@@ -395,7 +395,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setemail(AIndex : Integer; AValue : String); 
+Procedure TTokeninfo.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -415,7 +415,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setissued_to(AIndex : Integer; AValue : String); 
+Procedure TTokeninfo.Setissued_to(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fissued_to=AValue) then exit;
@@ -425,7 +425,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setscope(AIndex : Integer; AValue : String); 
+Procedure TTokeninfo.Setscope(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fscope=AValue) then exit;
@@ -435,7 +435,7 @@ end;
 
 
 
-Procedure TTokeninfo.Settoken_handle(AIndex : Integer; AValue : String); 
+Procedure TTokeninfo.Settoken_handle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken_handle=AValue) then exit;
@@ -445,7 +445,7 @@ end;
 
 
 
-Procedure TTokeninfo.Setuser_id(AIndex : Integer; AValue : String); 
+Procedure TTokeninfo.Setuser_id(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser_id=AValue) then exit;
@@ -472,7 +472,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUserinfoplus.Setemail(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setemail(AIndex : Integer; const AValue : String); 
 
 begin
   If (Femail=AValue) then exit;
@@ -482,7 +482,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setfamily_name(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setfamily_name(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffamily_name=AValue) then exit;
@@ -492,7 +492,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setgender(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setgender(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fgender=AValue) then exit;
@@ -502,7 +502,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setgiven_name(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setgiven_name(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fgiven_name=AValue) then exit;
@@ -512,7 +512,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Sethd(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Sethd(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fhd=AValue) then exit;
@@ -522,7 +522,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setid(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -532,7 +532,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setlink(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setlink(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flink=AValue) then exit;
@@ -542,7 +542,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setlocale(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setlocale(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocale=AValue) then exit;
@@ -552,7 +552,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setname(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -562,7 +562,7 @@ end;
 
 
 
-Procedure TUserinfoplus.Setpicture(AIndex : Integer; AValue : String); 
+Procedure TUserinfoplus.Setpicture(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpicture=AValue) then exit;

packages/googleapi/src/googlepagespeedonline.pp

@@ -108,11 +108,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrects(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsItemTyperectsArray); virtual;
     Procedure Setsecondary_rects(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -138,7 +138,7 @@ type
   Protected
     //Property setters
     Procedure Setargs(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsArray); virtual;
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -189,10 +189,10 @@ type
     Fwidth : integer;
   Protected
     //Property setters
-    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
     Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmime_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmime_type(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpage_rect(AIndex : Integer; AValue : TPagespeedApiImageV2Typepage_rect); virtual;
     Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
   Public
@@ -230,7 +230,7 @@ type
     FruleResults : TResultTypeformattedResultsTyperuleResults;
   Protected
     //Property setters
-    Procedure Setlocale(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
     Procedure SetruleResults(AIndex : Integer; AValue : TResultTypeformattedResultsTyperuleResults); virtual;
   Public
   Published
@@ -260,19 +260,19 @@ type
     FtotalRequestBytes : String;
   Protected
     //Property setters
-    Procedure SetcssResponseBytes(AIndex : Integer; AValue : String); virtual;
-    Procedure SetflashResponseBytes(AIndex : Integer; AValue : String); virtual;
-    Procedure SethtmlResponseBytes(AIndex : Integer; AValue : String); virtual;
-    Procedure SetimageResponseBytes(AIndex : Integer; AValue : String); virtual;
-    Procedure SetjavascriptResponseBytes(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcssResponseBytes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetflashResponseBytes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SethtmlResponseBytes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetimageResponseBytes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetjavascriptResponseBytes(AIndex : Integer; const AValue : String); virtual;
     Procedure SetnumberCssResources(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumberHosts(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumberJsResources(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumberResources(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumberStaticResources(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetotherResponseBytes(AIndex : Integer; AValue : String); virtual;
-    Procedure SettextResponseBytes(AIndex : Integer; AValue : String); virtual;
-    Procedure SettotalRequestBytes(AIndex : Integer; AValue : String); virtual;
+    Procedure SetotherResponseBytes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettextResponseBytes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettotalRequestBytes(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property cssResponseBytes : String Index 0 Read FcssResponseBytes Write SetcssResponseBytes;
@@ -343,14 +343,14 @@ type
   Protected
     //Property setters
     Procedure SetformattedResults(AIndex : Integer; AValue : TResultTypeformattedResults); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure SetinvalidRules(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpageStats(AIndex : Integer; AValue : TResultTypepageStats); virtual;
     Procedure SetresponseCode(AIndex : Integer; AValue : integer); virtual;
     Procedure SetruleGroups(AIndex : Integer; AValue : TResultTyperuleGroups); virtual;
     Procedure Setscreenshot(AIndex : Integer; AValue : TPagespeedApiImageV2); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; AValue : TResultTypeversion); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -535,7 +535,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -565,7 +565,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -575,7 +575,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -627,7 +627,7 @@ end;
 
 
 
-Procedure TPagespeedApiFormatStringV2.Setformat(AIndex : Integer; AValue : String); 
+Procedure TPagespeedApiFormatStringV2.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -704,7 +704,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPagespeedApiImageV2.Setdata(AIndex : Integer; AValue : String); 
+Procedure TPagespeedApiImageV2.Setdata(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -724,7 +724,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2.Setkey(AIndex : Integer; AValue : String); 
+Procedure TPagespeedApiImageV2.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -734,7 +734,7 @@ end;
 
 
 
-Procedure TPagespeedApiImageV2.Setmime_type(AIndex : Integer; AValue : String); 
+Procedure TPagespeedApiImageV2.Setmime_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmime_type=AValue) then exit;
@@ -784,7 +784,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultTypeformattedResults.Setlocale(AIndex : Integer; AValue : String); 
+Procedure TResultTypeformattedResults.Setlocale(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocale=AValue) then exit;
@@ -811,7 +811,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultTypepageStats.SetcssResponseBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SetcssResponseBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcssResponseBytes=AValue) then exit;
@@ -821,7 +821,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetflashResponseBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SetflashResponseBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FflashResponseBytes=AValue) then exit;
@@ -831,7 +831,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SethtmlResponseBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SethtmlResponseBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhtmlResponseBytes=AValue) then exit;
@@ -841,7 +841,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetimageResponseBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SetimageResponseBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FimageResponseBytes=AValue) then exit;
@@ -851,7 +851,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetjavascriptResponseBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SetjavascriptResponseBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FjavascriptResponseBytes=AValue) then exit;
@@ -911,7 +911,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SetotherResponseBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SetotherResponseBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FotherResponseBytes=AValue) then exit;
@@ -921,7 +921,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SettextResponseBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SettextResponseBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtextResponseBytes=AValue) then exit;
@@ -931,7 +931,7 @@ end;
 
 
 
-Procedure TResultTypepageStats.SettotalRequestBytes(AIndex : Integer; AValue : String); 
+Procedure TResultTypepageStats.SettotalRequestBytes(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtotalRequestBytes=AValue) then exit;
@@ -998,7 +998,7 @@ end;
 
 
 
-Procedure TResult.Setid(AIndex : Integer; AValue : String); 
+Procedure TResult.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1018,7 +1018,7 @@ end;
 
 
 
-Procedure TResult.Setkind(AIndex : Integer; AValue : String); 
+Procedure TResult.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1068,7 +1068,7 @@ end;
 
 
 
-Procedure TResult.Settitle(AIndex : Integer; AValue : String); 
+Procedure TResult.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;

packages/googleapi/src/googleprediction.pp

@@ -76,8 +76,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property count : String Index 0 Read Fcount Write Setcount;
@@ -95,7 +95,7 @@ type
     Fvalues : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
     Procedure Setvalues(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -119,9 +119,9 @@ type
     Fvariance : String;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmean(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvariance(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmean(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvariance(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property count : String Index 0 Read Fcount Write Setcount;
@@ -139,7 +139,7 @@ type
     Fcount : String;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property count : String Index 0 Read Fcount Write Setcount;
@@ -159,7 +159,7 @@ type
   Protected
     //Property setters
     Procedure Setcategorical(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical); virtual;
-    Procedure Setindex(AIndex : Integer; AValue : String); virtual;
+    Procedure Setindex(AIndex : Integer; const AValue : String); virtual;
     Procedure Setnumeric(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric); virtual;
     Procedure Settext(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypetext); virtual;
   Public
@@ -182,9 +182,9 @@ type
     Fvariance : String;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmean(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvariance(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setmean(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvariance(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property count : String Index 0 Read Fcount Write Setcount;
@@ -203,8 +203,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property count : String Index 0 Read Fcount Write Setcount;
@@ -338,10 +338,10 @@ type
     //Property setters
     Procedure SetdataDescription(AIndex : Integer; AValue : TAnalyzeTypedataDescription); virtual;
     Procedure Seterrors(AIndex : Integer; AValue : TAnalyzeTypeerrorsArray); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmodelDescription(AIndex : Integer; AValue : TAnalyzeTypemodelDescription); virtual;
-    Procedure SetselfLink(AIndex : Integer; 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;
@@ -404,7 +404,7 @@ type
   Protected
     //Property setters
     Procedure SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
-    Procedure Setoutput(AIndex : Integer; AValue : String); virtual;
+    Procedure Setoutput(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -446,12 +446,12 @@ type
     Futility : TInsertTypeutilityArray;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmodelType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsourceModel(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstorageDataLocation(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstoragePMMLLocation(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstoragePMMLModelLocation(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmodelType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsourceModel(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstorageDataLocation(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstoragePMMLLocation(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstoragePMMLModelLocation(AIndex : Integer; const AValue : String); virtual;
     Procedure SettrainingInstances(AIndex : Integer; AValue : TInsertTypetrainingInstancesArray); virtual;
     Procedure Setutility(AIndex : Integer; AValue : TInsertTypeutilityArray); virtual;
     //2.6.4. bug workaround
@@ -485,12 +485,12 @@ type
     FnumberLabels : String;
   Protected
     //Property setters
-    Procedure SetclassWeightedAccuracy(AIndex : Integer; AValue : String); virtual;
-    Procedure SetclassificationAccuracy(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmeanSquaredError(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmodelType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumberInstances(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumberLabels(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclassWeightedAccuracy(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetclassificationAccuracy(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmeanSquaredError(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmodelType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumberInstances(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumberLabels(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property classWeightedAccuracy : String Index 0 Read FclassWeightedAccuracy Write SetclassWeightedAccuracy;
@@ -522,16 +522,16 @@ type
   Protected
     //Property setters
     Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmodelInfo(AIndex : Integer; AValue : TInsert2TypemodelInfo); virtual;
-    Procedure SetmodelType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstorageDataLocation(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstoragePMMLLocation(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstoragePMMLModelLocation(AIndex : Integer; AValue : String); virtual;
+    Procedure SetmodelType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstorageDataLocation(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstoragePMMLLocation(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstoragePMMLModelLocation(AIndex : Integer; const AValue : String); virtual;
     Procedure SettrainingComplete(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SettrainingStatus(AIndex : Integer; AValue : String); virtual;
+    Procedure SettrainingStatus(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property created : TDatetime Index 0 Read Fcreated Write Setcreated;
@@ -561,9 +561,9 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -588,8 +588,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Set_label(AIndex : Integer; AValue : String); virtual;
-    Procedure Setscore(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setscore(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property _label : String Index 0 Read F_label Write Set_label;
@@ -611,12 +611,12 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoutputLabel(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetoutputLabel(AIndex : Integer; const AValue : String); virtual;
     Procedure SetoutputMulti(AIndex : Integer; AValue : TOutputTypeoutputMultiArray); virtual;
-    Procedure SetoutputValue(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure SetoutputValue(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;
@@ -643,7 +643,7 @@ type
   Protected
     //Property setters
     Procedure SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
-    Procedure Setoutput(AIndex : Integer; AValue : String); virtual;
+    Procedure Setoutput(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -744,7 +744,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesItem.Setcount(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesItem.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -754,7 +754,7 @@ end;
 
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -771,7 +771,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical.Setcount(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -811,7 +811,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric.Setcount(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -821,7 +821,7 @@ end;
 
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric.Setmean(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric.Setmean(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmean=AValue) then exit;
@@ -831,7 +831,7 @@ end;
 
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric.Setvariance(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric.Setvariance(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvariance=AValue) then exit;
@@ -848,7 +848,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypetext.Setcount(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypetext.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -875,7 +875,7 @@ end;
 
 
 
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Setindex(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Setindex(AIndex : Integer; const AValue : String); 
 
 begin
   If (Findex=AValue) then exit;
@@ -912,7 +912,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric.Setcount(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -922,7 +922,7 @@ end;
 
 
 
-Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric.Setmean(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric.Setmean(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmean=AValue) then exit;
@@ -932,7 +932,7 @@ end;
 
 
 
-Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric.Setvariance(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric.Setvariance(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvariance=AValue) then exit;
@@ -949,7 +949,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextItem.Setcount(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextItem.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -959,7 +959,7 @@ end;
 
 
 
-Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1152,7 +1152,7 @@ end;
 
 
 
-Procedure TAnalyze.Setid(AIndex : Integer; AValue : String); 
+Procedure TAnalyze.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1162,7 +1162,7 @@ end;
 
 
 
-Procedure TAnalyze.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAnalyze.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1182,7 +1182,7 @@ end;
 
 
 
-Procedure TAnalyze.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TAnalyze.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1269,7 +1269,7 @@ end;
 
 
 
-Procedure TInsertTypetrainingInstancesItem.Setoutput(AIndex : Integer; AValue : String); 
+Procedure TInsertTypetrainingInstancesItem.Setoutput(AIndex : Integer; const AValue : String); 
 
 begin
   If (Foutput=AValue) then exit;
@@ -1312,7 +1312,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInsert.Setid(AIndex : Integer; AValue : String); 
+Procedure TInsert.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1322,7 +1322,7 @@ end;
 
 
 
-Procedure TInsert.SetmodelType(AIndex : Integer; AValue : String); 
+Procedure TInsert.SetmodelType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmodelType=AValue) then exit;
@@ -1332,7 +1332,7 @@ end;
 
 
 
-Procedure TInsert.SetsourceModel(AIndex : Integer; AValue : String); 
+Procedure TInsert.SetsourceModel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsourceModel=AValue) then exit;
@@ -1342,7 +1342,7 @@ end;
 
 
 
-Procedure TInsert.SetstorageDataLocation(AIndex : Integer; AValue : String); 
+Procedure TInsert.SetstorageDataLocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstorageDataLocation=AValue) then exit;
@@ -1352,7 +1352,7 @@ end;
 
 
 
-Procedure TInsert.SetstoragePMMLLocation(AIndex : Integer; AValue : String); 
+Procedure TInsert.SetstoragePMMLLocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstoragePMMLLocation=AValue) then exit;
@@ -1362,7 +1362,7 @@ end;
 
 
 
-Procedure TInsert.SetstoragePMMLModelLocation(AIndex : Integer; AValue : String); 
+Procedure TInsert.SetstoragePMMLModelLocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstoragePMMLModelLocation=AValue) then exit;
@@ -1413,7 +1413,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInsert2TypemodelInfo.SetclassWeightedAccuracy(AIndex : Integer; AValue : String); 
+Procedure TInsert2TypemodelInfo.SetclassWeightedAccuracy(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclassWeightedAccuracy=AValue) then exit;
@@ -1423,7 +1423,7 @@ end;
 
 
 
-Procedure TInsert2TypemodelInfo.SetclassificationAccuracy(AIndex : Integer; AValue : String); 
+Procedure TInsert2TypemodelInfo.SetclassificationAccuracy(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclassificationAccuracy=AValue) then exit;
@@ -1433,7 +1433,7 @@ end;
 
 
 
-Procedure TInsert2TypemodelInfo.SetmeanSquaredError(AIndex : Integer; AValue : String); 
+Procedure TInsert2TypemodelInfo.SetmeanSquaredError(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmeanSquaredError=AValue) then exit;
@@ -1443,7 +1443,7 @@ end;
 
 
 
-Procedure TInsert2TypemodelInfo.SetmodelType(AIndex : Integer; AValue : String); 
+Procedure TInsert2TypemodelInfo.SetmodelType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmodelType=AValue) then exit;
@@ -1453,7 +1453,7 @@ end;
 
 
 
-Procedure TInsert2TypemodelInfo.SetnumberInstances(AIndex : Integer; AValue : String); 
+Procedure TInsert2TypemodelInfo.SetnumberInstances(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumberInstances=AValue) then exit;
@@ -1463,7 +1463,7 @@ end;
 
 
 
-Procedure TInsert2TypemodelInfo.SetnumberLabels(AIndex : Integer; AValue : String); 
+Procedure TInsert2TypemodelInfo.SetnumberLabels(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumberLabels=AValue) then exit;
@@ -1490,7 +1490,7 @@ end;
 
 
 
-Procedure TInsert2.Setid(AIndex : Integer; AValue : String); 
+Procedure TInsert2.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1500,7 +1500,7 @@ end;
 
 
 
-Procedure TInsert2.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInsert2.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1520,7 +1520,7 @@ end;
 
 
 
-Procedure TInsert2.SetmodelType(AIndex : Integer; AValue : String); 
+Procedure TInsert2.SetmodelType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmodelType=AValue) then exit;
@@ -1530,7 +1530,7 @@ end;
 
 
 
-Procedure TInsert2.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TInsert2.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1540,7 +1540,7 @@ end;
 
 
 
-Procedure TInsert2.SetstorageDataLocation(AIndex : Integer; AValue : String); 
+Procedure TInsert2.SetstorageDataLocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstorageDataLocation=AValue) then exit;
@@ -1550,7 +1550,7 @@ end;
 
 
 
-Procedure TInsert2.SetstoragePMMLLocation(AIndex : Integer; AValue : String); 
+Procedure TInsert2.SetstoragePMMLLocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstoragePMMLLocation=AValue) then exit;
@@ -1560,7 +1560,7 @@ end;
 
 
 
-Procedure TInsert2.SetstoragePMMLModelLocation(AIndex : Integer; AValue : String); 
+Procedure TInsert2.SetstoragePMMLModelLocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstoragePMMLModelLocation=AValue) then exit;
@@ -1580,7 +1580,7 @@ end;
 
 
 
-Procedure TInsert2.SettrainingStatus(AIndex : Integer; AValue : String); 
+Procedure TInsert2.SettrainingStatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtrainingStatus=AValue) then exit;
@@ -1607,7 +1607,7 @@ end;
 
 
 
-Procedure TList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1617,7 +1617,7 @@ end;
 
 
 
-Procedure TList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1627,7 +1627,7 @@ end;
 
 
 
-Procedure TList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1657,7 +1657,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOutputTypeoutputMultiItem.Set_label(AIndex : Integer; AValue : String); 
+Procedure TOutputTypeoutputMultiItem.Set_label(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_label=AValue) then exit;
@@ -1667,7 +1667,7 @@ end;
 
 
 
-Procedure TOutputTypeoutputMultiItem.Setscore(AIndex : Integer; AValue : String); 
+Procedure TOutputTypeoutputMultiItem.Setscore(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fscore=AValue) then exit;
@@ -1695,7 +1695,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOutput.Setid(AIndex : Integer; AValue : String); 
+Procedure TOutput.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1705,7 +1705,7 @@ end;
 
 
 
-Procedure TOutput.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOutput.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1715,7 +1715,7 @@ end;
 
 
 
-Procedure TOutput.SetoutputLabel(AIndex : Integer; AValue : String); 
+Procedure TOutput.SetoutputLabel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoutputLabel=AValue) then exit;
@@ -1735,7 +1735,7 @@ end;
 
 
 
-Procedure TOutput.SetoutputValue(AIndex : Integer; AValue : String); 
+Procedure TOutput.SetoutputValue(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoutputValue=AValue) then exit;
@@ -1745,7 +1745,7 @@ end;
 
 
 
-Procedure TOutput.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOutput.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1785,7 +1785,7 @@ end;
 
 
 
-Procedure TUpdate.Setoutput(AIndex : Integer; AValue : String); 
+Procedure TUpdate.Setoutput(AIndex : Integer; const AValue : String); 
 
 begin
   If (Foutput=AValue) then exit;

packages/googleapi/src/googlepubsub.pp

@@ -107,7 +107,7 @@ type
     Fsubscriptions : TListSubscriptionsResponseTypesubscriptionsArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponseTypesubscriptionsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -130,7 +130,7 @@ type
     Fsubscriptions : TStringArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsubscriptions(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -153,7 +153,7 @@ type
     Ftopics : TListTopicsResponseTypetopicsArray;
   Protected
     //Property setters
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Settopics(AIndex : Integer; AValue : TListTopicsResponseTypetopicsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -177,7 +177,7 @@ type
   Protected
     //Property setters
     Procedure SetackDeadlineSeconds(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetackId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetackId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property ackDeadlineSeconds : integer Index 0 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
@@ -267,8 +267,8 @@ type
   Protected
     //Property setters
     Procedure Setattributes(AIndex : Integer; AValue : TPubsubMessageTypeattributes); virtual;
-    Procedure Setdata(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmessageId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmessageId(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property attributes : TPubsubMessageTypeattributes Index 0 Read Fattributes Write Setattributes;
@@ -341,7 +341,7 @@ type
   Protected
     //Property setters
     Procedure Setattributes(AIndex : Integer; AValue : TPushConfigTypeattributes); virtual;
-    Procedure SetpushEndpoint(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpushEndpoint(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property attributes : TPushConfigTypeattributes Index 0 Read Fattributes Write Setattributes;
@@ -359,7 +359,7 @@ type
     Fmessage : TPubsubMessage;
   Protected
     //Property setters
-    Procedure SetackId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetackId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmessage(AIndex : Integer; AValue : TPubsubMessage); virtual;
   Public
   Published
@@ -381,9 +381,9 @@ type
   Protected
     //Property setters
     Procedure SetackDeadlineSeconds(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpushConfig(AIndex : Integer; AValue : TPushConfig); virtual;
-    Procedure Settopic(AIndex : Integer; AValue : String); virtual;
+    Procedure Settopic(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property ackDeadlineSeconds : integer Index 0 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
@@ -402,7 +402,7 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -613,7 +613,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListSubscriptionsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -653,7 +653,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -693,7 +693,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TListTopicsResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TListTopicsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -743,7 +743,7 @@ end;
 
 
 
-Procedure TModifyAckDeadlineRequest.SetackId(AIndex : Integer; AValue : String); 
+Procedure TModifyAckDeadlineRequest.SetackId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FackId=AValue) then exit;
@@ -860,7 +860,7 @@ end;
 
 
 
-Procedure TPubsubMessage.Setdata(AIndex : Integer; AValue : String); 
+Procedure TPubsubMessage.Setdata(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdata=AValue) then exit;
@@ -870,7 +870,7 @@ end;
 
 
 
-Procedure TPubsubMessage.SetmessageId(AIndex : Integer; AValue : String); 
+Procedure TPubsubMessage.SetmessageId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmessageId=AValue) then exit;
@@ -967,7 +967,7 @@ end;
 
 
 
-Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; AValue : String); 
+Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpushEndpoint=AValue) then exit;
@@ -984,7 +984,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TReceivedMessage.SetackId(AIndex : Integer; AValue : String); 
+Procedure TReceivedMessage.SetackId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FackId=AValue) then exit;
@@ -1021,7 +1021,7 @@ end;
 
 
 
-Procedure TSubscription.Setname(AIndex : Integer; AValue : String); 
+Procedure TSubscription.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1041,7 +1041,7 @@ end;
 
 
 
-Procedure TSubscription.Settopic(AIndex : Integer; AValue : String); 
+Procedure TSubscription.Settopic(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftopic=AValue) then exit;
@@ -1058,7 +1058,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTopic.Setname(AIndex : Integer; AValue : String); 
+Procedure TTopic.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;

packages/googleapi/src/googlereplicapool.pp

@@ -74,17 +74,17 @@ type
     FtargetSize : integer;
   Protected
     //Property setters
-    Procedure SetbaseInstanceName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbaseInstanceName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcurrentSize(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setgroup(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinstanceTemplate(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setgroup(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(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 SetselfLink(AIndex : Integer; const AValue : String); virtual;
     Procedure SettargetPools(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SettargetSize(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
@@ -122,11 +122,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TInstanceGroupManagerListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -210,7 +210,7 @@ type
     FinstanceTemplate : String;
   Protected
     //Property setters
-    Procedure SetinstanceTemplate(AIndex : Integer; AValue : String); virtual;
+    Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property instanceTemplate : String Index 0 Read FinstanceTemplate Write SetinstanceTemplate;
@@ -227,7 +227,7 @@ type
     FtargetPools : TStringArray;
   Protected
     //Property setters
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
     Procedure SettargetPools(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -251,9 +251,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -292,8 +292,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -312,9 +312,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); 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;
@@ -357,28 +357,28 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SetclientOperationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
-    Procedure SethttpErrorMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
     Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinsertTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : String); 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; AValue : integer); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); 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; AValue : TOperationTypewarningsArray); virtual;
-    Procedure Setzone(AIndex : Integer; 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;
@@ -423,11 +423,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -562,7 +562,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbaseInstanceName=AValue) then exit;
@@ -572,7 +572,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -592,7 +592,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -602,7 +602,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -612,7 +612,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setgroup(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.Setgroup(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fgroup=AValue) then exit;
@@ -622,7 +622,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setid(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -632,7 +632,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetinstanceTemplate(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.SetinstanceTemplate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinstanceTemplate=AValue) then exit;
@@ -642,7 +642,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -652,7 +652,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.Setname(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -662,7 +662,7 @@ end;
 
 
 
-Procedure TInstanceGroupManager.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManager.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -712,7 +712,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagerList.Setid(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManagerList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -732,7 +732,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagerList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManagerList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -742,7 +742,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagerList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManagerList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -752,7 +752,7 @@ end;
 
 
 
-Procedure TInstanceGroupManagerList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManagerList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -872,7 +872,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagersSetInstanceTemplateRequest.SetinstanceTemplate(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManagersSetInstanceTemplateRequest.SetinstanceTemplate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinstanceTemplate=AValue) then exit;
@@ -889,7 +889,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceGroupManagersSetTargetPoolsRequest.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -929,7 +929,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -939,7 +939,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -949,7 +949,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -996,7 +996,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -1006,7 +1006,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -1023,7 +1023,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1043,7 +1043,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1073,7 +1073,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -1083,7 +1083,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1093,7 +1093,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -1113,7 +1113,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -1133,7 +1133,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1143,7 +1143,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -1153,7 +1153,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1163,7 +1163,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1173,7 +1173,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -1193,7 +1193,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -1203,7 +1203,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1213,7 +1213,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1223,7 +1223,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1233,7 +1233,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1243,7 +1243,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetId=AValue) then exit;
@@ -1253,7 +1253,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -1263,7 +1263,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -1283,7 +1283,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -1313,7 +1313,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationList.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1333,7 +1333,7 @@ end;
 
 
 
-Procedure TOperationList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1343,7 +1343,7 @@ end;
 
 
 
-Procedure TOperationList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1353,7 +1353,7 @@ end;
 
 
 
-Procedure TOperationList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;

packages/googleapi/src/googlereplicapoolupdater.pp

@@ -63,9 +63,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -106,8 +106,8 @@ type
   Protected
     //Property setters
     Procedure Seterror(AIndex : Integer; AValue : TInstanceUpdateTypeerror); virtual;
-    Procedure Setinstance(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property error : TInstanceUpdateTypeerror Index 0 Read Ferror Write Seterror;
@@ -129,9 +129,9 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TInstanceUpdateListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -156,9 +156,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -197,8 +197,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -217,9 +217,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); 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;
@@ -262,28 +262,28 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SetclientOperationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
-    Procedure SethttpErrorMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
     Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinsertTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : String); 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; AValue : integer); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); 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; AValue : TOperationTypewarningsArray); virtual;
-    Procedure Setzone(AIndex : Integer; 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;
@@ -326,9 +326,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -408,21 +408,21 @@ type
     Fuser : String;
   Protected
     //Property setters
-    Procedure SetactionType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure SetactionType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterror(AIndex : Integer; AValue : TRollingUpdateTypeerror); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinstanceGroup(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinstanceGroupManager(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinstanceTemplate(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetinstanceGroup(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetinstanceGroupManager(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpolicy(AIndex : Integer; AValue : TRollingUpdateTypepolicy); virtual;
     Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property actionType : String Index 0 Read FactionType Write SetactionType;
@@ -456,9 +456,9 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TRollingUpdateListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -574,7 +574,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TInstanceUpdateTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdateTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -584,7 +584,7 @@ end;
 
 
 
-Procedure TInstanceUpdateTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdateTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -594,7 +594,7 @@ end;
 
 
 
-Procedure TInstanceUpdateTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdateTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -651,7 +651,7 @@ end;
 
 
 
-Procedure TInstanceUpdate.Setinstance(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdate.Setinstance(AIndex : Integer; const AValue : String); 
 
 begin
   If (Finstance=AValue) then exit;
@@ -661,7 +661,7 @@ end;
 
 
 
-Procedure TInstanceUpdate.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdate.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -688,7 +688,7 @@ end;
 
 
 
-Procedure TInstanceUpdateList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdateList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -698,7 +698,7 @@ end;
 
 
 
-Procedure TInstanceUpdateList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdateList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -708,7 +708,7 @@ end;
 
 
 
-Procedure TInstanceUpdateList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TInstanceUpdateList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -738,7 +738,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -748,7 +748,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -758,7 +758,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -805,7 +805,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -815,7 +815,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -832,7 +832,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -852,7 +852,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -882,7 +882,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -892,7 +892,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -902,7 +902,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -922,7 +922,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -942,7 +942,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -952,7 +952,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -962,7 +962,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -972,7 +972,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -982,7 +982,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -1002,7 +1002,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -1012,7 +1012,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1022,7 +1022,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1032,7 +1032,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1042,7 +1042,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1052,7 +1052,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetId=AValue) then exit;
@@ -1062,7 +1062,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -1072,7 +1072,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -1092,7 +1092,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -1122,7 +1122,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRollingUpdateTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdateTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -1132,7 +1132,7 @@ end;
 
 
 
-Procedure TRollingUpdateTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdateTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -1142,7 +1142,7 @@ end;
 
 
 
-Procedure TRollingUpdateTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdateTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -1246,7 +1246,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRollingUpdate.SetactionType(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.SetactionType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FactionType=AValue) then exit;
@@ -1256,7 +1256,7 @@ end;
 
 
 
-Procedure TRollingUpdate.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1266,7 +1266,7 @@ end;
 
 
 
-Procedure TRollingUpdate.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1286,7 +1286,7 @@ end;
 
 
 
-Procedure TRollingUpdate.Setid(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1296,7 +1296,7 @@ end;
 
 
 
-Procedure TRollingUpdate.SetinstanceGroup(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.SetinstanceGroup(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinstanceGroup=AValue) then exit;
@@ -1306,7 +1306,7 @@ end;
 
 
 
-Procedure TRollingUpdate.SetinstanceGroupManager(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.SetinstanceGroupManager(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinstanceGroupManager=AValue) then exit;
@@ -1316,7 +1316,7 @@ end;
 
 
 
-Procedure TRollingUpdate.SetinstanceTemplate(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.SetinstanceTemplate(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinstanceTemplate=AValue) then exit;
@@ -1326,7 +1326,7 @@ end;
 
 
 
-Procedure TRollingUpdate.Setkind(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1356,7 +1356,7 @@ end;
 
 
 
-Procedure TRollingUpdate.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1366,7 +1366,7 @@ end;
 
 
 
-Procedure TRollingUpdate.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1376,7 +1376,7 @@ end;
 
 
 
-Procedure TRollingUpdate.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1386,7 +1386,7 @@ end;
 
 
 
-Procedure TRollingUpdate.Setuser(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdate.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -1413,7 +1413,7 @@ end;
 
 
 
-Procedure TRollingUpdateList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdateList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1423,7 +1423,7 @@ end;
 
 
 
-Procedure TRollingUpdateList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdateList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1433,7 +1433,7 @@ end;
 
 
 
-Procedure TRollingUpdateList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TRollingUpdateList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;

packages/googleapi/src/googlereseller.pp

@@ -63,16 +63,16 @@ type
     Fregion : String;
   Protected
     //Property setters
-    Procedure SetaddressLine1(AIndex : Integer; AValue : String); virtual;
-    Procedure SetaddressLine2(AIndex : Integer; AValue : String); virtual;
-    Procedure SetaddressLine3(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontactName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcountryCode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocality(AIndex : Integer; AValue : String); virtual;
-    Procedure SetorganizationName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpostalCode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaddressLine1(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetaddressLine2(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetaddressLine3(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontactName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcountryCode(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlocality(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetorganizationName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property addressLine1 : String Index 0 Read FaddressLine1 Write SetaddressLine1;
@@ -100,9 +100,9 @@ type
     Fseats : TSeats;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetplanName(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpurchaseOrderId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetplanName(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpurchaseOrderId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setseats(AIndex : Integer; AValue : TSeats); virtual;
   Public
   Published
@@ -128,13 +128,13 @@ type
     FresourceUiUrl : String;
   Protected
     //Property setters
-    Procedure SetalternateEmail(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomerDomain(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomerId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetphoneNumber(AIndex : Integer; AValue : String); virtual;
+    Procedure SetalternateEmail(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomerDomain(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual;
     Procedure SetpostalAddress(AIndex : Integer; AValue : TAddress); virtual;
-    Procedure SetresourceUiUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetresourceUiUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property alternateEmail : String Index 0 Read FalternateEmail Write SetalternateEmail;
@@ -157,8 +157,8 @@ type
     FrenewalType : String;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetrenewalType(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetrenewalType(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -178,7 +178,7 @@ type
     FnumberOfSeats : integer;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetlicensedNumberOfSeats(AIndex : Integer; AValue : integer); virtual;
     Procedure SetmaximumNumberOfSeats(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumberOfSeats(AIndex : Integer; AValue : integer); virtual;
@@ -201,8 +201,8 @@ type
     FstartTime : String;
   Protected
     //Property setters
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property endTime : String Index 0 Read FendTime Write SetendTime;
@@ -223,7 +223,7 @@ type
     //Property setters
     Procedure SetcommitmentInterval(AIndex : Integer; AValue : TSubscriptionTypeplanTypecommitmentInterval); virtual;
     Procedure SetisCommitmentPlan(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SetplanName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetplanName(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property commitmentInterval : TSubscriptionTypeplanTypecommitmentInterval Index 0 Read FcommitmentInterval Write SetcommitmentInterval;
@@ -243,7 +243,7 @@ type
   Protected
     //Property setters
     Procedure SetminimumTransferableSeats(AIndex : Integer; AValue : integer); virtual;
-    Procedure SettransferabilityExpirationTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SettransferabilityExpirationTime(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property minimumTransferableSeats : integer Index 0 Read FminimumTransferableSeats Write SetminimumTransferableSeats;
@@ -262,7 +262,7 @@ type
   Protected
     //Property setters
     Procedure SetisInTrial(AIndex : Integer; AValue : boolean); virtual;
-    Procedure SettrialEndTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SettrialEndTime(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property isInTrial : boolean Index 0 Read FisInTrial Write SetisInTrial;
@@ -292,18 +292,18 @@ type
     FtrialSettings : TSubscriptionTypetrialSettings;
   Protected
     //Property setters
-    Procedure SetbillingMethod(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTime(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcustomerId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure SetbillingMethod(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setplan(AIndex : Integer; AValue : TSubscriptionTypeplan); virtual;
-    Procedure SetpurchaseOrderId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpurchaseOrderId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetrenewalSettings(AIndex : Integer; AValue : TRenewalSettings); virtual;
-    Procedure SetresourceUiUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetresourceUiUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure Setseats(AIndex : Integer; AValue : TSeats); virtual;
-    Procedure SetskuId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsubscriptionId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetskuId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsubscriptionId(AIndex : Integer; const AValue : String); virtual;
     Procedure SettransferInfo(AIndex : Integer; AValue : TSubscriptionTypetransferInfo); virtual;
     Procedure SettrialSettings(AIndex : Integer; AValue : TSubscriptionTypetrialSettings); virtual;
   Public
@@ -336,8 +336,8 @@ type
     Fsubscriptions : TSubscriptionsTypesubscriptionsArray;
   Protected
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsubscriptions(AIndex : Integer; AValue : TSubscriptionsTypesubscriptionsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -473,7 +473,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAddress.SetaddressLine1(AIndex : Integer; AValue : String); 
+Procedure TAddress.SetaddressLine1(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaddressLine1=AValue) then exit;
@@ -483,7 +483,7 @@ end;
 
 
 
-Procedure TAddress.SetaddressLine2(AIndex : Integer; AValue : String); 
+Procedure TAddress.SetaddressLine2(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaddressLine2=AValue) then exit;
@@ -493,7 +493,7 @@ end;
 
 
 
-Procedure TAddress.SetaddressLine3(AIndex : Integer; AValue : String); 
+Procedure TAddress.SetaddressLine3(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaddressLine3=AValue) then exit;
@@ -503,7 +503,7 @@ end;
 
 
 
-Procedure TAddress.SetcontactName(AIndex : Integer; AValue : String); 
+Procedure TAddress.SetcontactName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontactName=AValue) then exit;
@@ -513,7 +513,7 @@ end;
 
 
 
-Procedure TAddress.SetcountryCode(AIndex : Integer; AValue : String); 
+Procedure TAddress.SetcountryCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcountryCode=AValue) then exit;
@@ -523,7 +523,7 @@ end;
 
 
 
-Procedure TAddress.Setkind(AIndex : Integer; AValue : String); 
+Procedure TAddress.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -533,7 +533,7 @@ end;
 
 
 
-Procedure TAddress.Setlocality(AIndex : Integer; AValue : String); 
+Procedure TAddress.Setlocality(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocality=AValue) then exit;
@@ -543,7 +543,7 @@ end;
 
 
 
-Procedure TAddress.SetorganizationName(AIndex : Integer; AValue : String); 
+Procedure TAddress.SetorganizationName(AIndex : Integer; const AValue : String); 
 
 begin
   If (ForganizationName=AValue) then exit;
@@ -553,7 +553,7 @@ end;
 
 
 
-Procedure TAddress.SetpostalCode(AIndex : Integer; AValue : String); 
+Procedure TAddress.SetpostalCode(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpostalCode=AValue) then exit;
@@ -563,7 +563,7 @@ end;
 
 
 
-Procedure TAddress.Setregion(AIndex : Integer; AValue : String); 
+Procedure TAddress.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -580,7 +580,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TChangePlanRequest.Setkind(AIndex : Integer; AValue : String); 
+Procedure TChangePlanRequest.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -590,7 +590,7 @@ end;
 
 
 
-Procedure TChangePlanRequest.SetplanName(AIndex : Integer; AValue : String); 
+Procedure TChangePlanRequest.SetplanName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FplanName=AValue) then exit;
@@ -600,7 +600,7 @@ end;
 
 
 
-Procedure TChangePlanRequest.SetpurchaseOrderId(AIndex : Integer; AValue : String); 
+Procedure TChangePlanRequest.SetpurchaseOrderId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpurchaseOrderId=AValue) then exit;
@@ -627,7 +627,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCustomer.SetalternateEmail(AIndex : Integer; AValue : String); 
+Procedure TCustomer.SetalternateEmail(AIndex : Integer; const AValue : String); 
 
 begin
   If (FalternateEmail=AValue) then exit;
@@ -637,7 +637,7 @@ end;
 
 
 
-Procedure TCustomer.SetcustomerDomain(AIndex : Integer; AValue : String); 
+Procedure TCustomer.SetcustomerDomain(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerDomain=AValue) then exit;
@@ -647,7 +647,7 @@ end;
 
 
 
-Procedure TCustomer.SetcustomerId(AIndex : Integer; AValue : String); 
+Procedure TCustomer.SetcustomerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -657,7 +657,7 @@ end;
 
 
 
-Procedure TCustomer.Setkind(AIndex : Integer; AValue : String); 
+Procedure TCustomer.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -667,7 +667,7 @@ end;
 
 
 
-Procedure TCustomer.SetphoneNumber(AIndex : Integer; AValue : String); 
+Procedure TCustomer.SetphoneNumber(AIndex : Integer; const AValue : String); 
 
 begin
   If (FphoneNumber=AValue) then exit;
@@ -687,7 +687,7 @@ end;
 
 
 
-Procedure TCustomer.SetresourceUiUrl(AIndex : Integer; AValue : String); 
+Procedure TCustomer.SetresourceUiUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceUiUrl=AValue) then exit;
@@ -704,7 +704,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRenewalSettings.Setkind(AIndex : Integer; AValue : String); 
+Procedure TRenewalSettings.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -714,7 +714,7 @@ end;
 
 
 
-Procedure TRenewalSettings.SetrenewalType(AIndex : Integer; AValue : String); 
+Procedure TRenewalSettings.SetrenewalType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrenewalType=AValue) then exit;
@@ -731,7 +731,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSeats.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSeats.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -778,7 +778,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptionTypeplanTypecommitmentInterval.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionTypeplanTypecommitmentInterval.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -788,7 +788,7 @@ end;
 
 
 
-Procedure TSubscriptionTypeplanTypecommitmentInterval.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionTypeplanTypecommitmentInterval.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -825,7 +825,7 @@ end;
 
 
 
-Procedure TSubscriptionTypeplan.SetplanName(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionTypeplan.SetplanName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FplanName=AValue) then exit;
@@ -852,7 +852,7 @@ end;
 
 
 
-Procedure TSubscriptionTypetransferInfo.SettransferabilityExpirationTime(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionTypetransferInfo.SettransferabilityExpirationTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtransferabilityExpirationTime=AValue) then exit;
@@ -879,7 +879,7 @@ end;
 
 
 
-Procedure TSubscriptionTypetrialSettings.SettrialEndTime(AIndex : Integer; AValue : String); 
+Procedure TSubscriptionTypetrialSettings.SettrialEndTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtrialEndTime=AValue) then exit;
@@ -896,7 +896,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscription.SetbillingMethod(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetbillingMethod(AIndex : Integer; const AValue : String); 
 
 begin
   If (FbillingMethod=AValue) then exit;
@@ -906,7 +906,7 @@ end;
 
 
 
-Procedure TSubscription.SetcreationTime(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetcreationTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTime=AValue) then exit;
@@ -916,7 +916,7 @@ end;
 
 
 
-Procedure TSubscription.SetcustomerId(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetcustomerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcustomerId=AValue) then exit;
@@ -926,7 +926,7 @@ end;
 
 
 
-Procedure TSubscription.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSubscription.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -946,7 +946,7 @@ end;
 
 
 
-Procedure TSubscription.SetpurchaseOrderId(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetpurchaseOrderId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpurchaseOrderId=AValue) then exit;
@@ -966,7 +966,7 @@ end;
 
 
 
-Procedure TSubscription.SetresourceUiUrl(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetresourceUiUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceUiUrl=AValue) then exit;
@@ -986,7 +986,7 @@ end;
 
 
 
-Procedure TSubscription.SetskuId(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetskuId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FskuId=AValue) then exit;
@@ -996,7 +996,7 @@ end;
 
 
 
-Procedure TSubscription.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TSubscription.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1006,7 +1006,7 @@ end;
 
 
 
-Procedure TSubscription.SetsubscriptionId(AIndex : Integer; AValue : String); 
+Procedure TSubscription.SetsubscriptionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsubscriptionId=AValue) then exit;
@@ -1043,7 +1043,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSubscriptions.Setkind(AIndex : Integer; AValue : String); 
+Procedure TSubscriptions.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1053,7 +1053,7 @@ end;
 
 
 
-Procedure TSubscriptions.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TSubscriptions.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googleresourceviews.pp

@@ -75,8 +75,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -109,7 +109,7 @@ type
   Protected
     //Property setters
     Procedure Setendpoints(AIndex : Integer; AValue : TListResourceResponseItemTypeendpoints); virtual;
-    Procedure Setresource(AIndex : Integer; AValue : String); virtual;
+    Procedure Setresource(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property endpoints : TListResourceResponseItemTypeendpoints Index 0 Read Fendpoints Write Setendpoints;
@@ -128,9 +128,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -169,8 +169,8 @@ type
     Fvalue : String;
   Protected
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    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;
@@ -189,9 +189,9 @@ type
     Fmessage : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
-    Procedure Setmessage(AIndex : Integer; AValue : String); 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;
@@ -234,28 +234,28 @@ type
     Fzone : String;
   Protected
     //Property setters
-    Procedure SetclientOperationId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetendTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
     Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
-    Procedure SethttpErrorMessage(AIndex : Integer; AValue : String); virtual;
+    Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
     Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure SetinsertTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoperationType(AIndex : Integer; AValue : String); 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; AValue : integer); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstatusMessage(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettargetLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setuser(AIndex : Integer; AValue : String); 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; AValue : TOperationTypewarningsArray); virtual;
-    Procedure Setzone(AIndex : Integer; 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;
@@ -300,11 +300,11 @@ type
     FselfLink : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -339,17 +339,17 @@ type
     Fsize : integer;
   Protected
     //Property setters
-    Procedure SetcreationTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
     Procedure Setendpoints(AIndex : Integer; AValue : TResourceViewTypeendpointsArray); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; 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 Setlabels(AIndex : Integer; AValue : TResourceViewTypelabelsArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsize(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -382,7 +382,7 @@ type
     Fport : integer;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure Setport(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -422,7 +422,7 @@ type
   Protected
     //Property setters
     Procedure Setendpoints(AIndex : Integer; AValue : TZoneViewsGetServiceResponseTypeendpointsArray); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -447,9 +447,9 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TZoneViewsListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); 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;
@@ -475,8 +475,8 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TZoneViewsListResourcesResponseTypeitemsArray); virtual;
-    Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -521,8 +521,8 @@ type
   Protected
     //Property setters
     Procedure Setendpoints(AIndex : Integer; AValue : TZoneViewsSetServiceRequestTypeendpointsArray); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure SetresourceName(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetresourceName(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -657,7 +657,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TLabel.Setkey(AIndex : Integer; AValue : String); 
+Procedure TLabel.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -667,7 +667,7 @@ end;
 
 
 
-Procedure TLabel.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TLabel.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -707,7 +707,7 @@ end;
 
 
 
-Procedure TListResourceResponseItem.Setresource(AIndex : Integer; AValue : String); 
+Procedure TListResourceResponseItem.Setresource(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fresource=AValue) then exit;
@@ -724,7 +724,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -734,7 +734,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocation=AValue) then exit;
@@ -744,7 +744,7 @@ end;
 
 
 
-Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -791,7 +791,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -801,7 +801,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -818,7 +818,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -838,7 +838,7 @@ end;
 
 
 
-Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; AValue : String); 
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmessage=AValue) then exit;
@@ -868,7 +868,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperation.SetclientOperationId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FclientOperationId=AValue) then exit;
@@ -878,7 +878,7 @@ end;
 
 
 
-Procedure TOperation.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -888,7 +888,7 @@ end;
 
 
 
-Procedure TOperation.SetendTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FendTime=AValue) then exit;
@@ -908,7 +908,7 @@ end;
 
 
 
-Procedure TOperation.SethttpErrorMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FhttpErrorMessage=AValue) then exit;
@@ -928,7 +928,7 @@ end;
 
 
 
-Procedure TOperation.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -938,7 +938,7 @@ end;
 
 
 
-Procedure TOperation.SetinsertTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FinsertTime=AValue) then exit;
@@ -948,7 +948,7 @@ end;
 
 
 
-Procedure TOperation.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -958,7 +958,7 @@ end;
 
 
 
-Procedure TOperation.Setname(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -968,7 +968,7 @@ end;
 
 
 
-Procedure TOperation.SetoperationType(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoperationType=AValue) then exit;
@@ -988,7 +988,7 @@ end;
 
 
 
-Procedure TOperation.Setregion(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -998,7 +998,7 @@ end;
 
 
 
-Procedure TOperation.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1008,7 +1008,7 @@ end;
 
 
 
-Procedure TOperation.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1018,7 +1018,7 @@ end;
 
 
 
-Procedure TOperation.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -1028,7 +1028,7 @@ end;
 
 
 
-Procedure TOperation.SetstatusMessage(AIndex : Integer; AValue : String); 
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstatusMessage=AValue) then exit;
@@ -1038,7 +1038,7 @@ end;
 
 
 
-Procedure TOperation.SettargetId(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetId=AValue) then exit;
@@ -1048,7 +1048,7 @@ end;
 
 
 
-Procedure TOperation.SettargetLink(AIndex : Integer; AValue : String); 
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtargetLink=AValue) then exit;
@@ -1058,7 +1058,7 @@ end;
 
 
 
-Procedure TOperation.Setuser(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fuser=AValue) then exit;
@@ -1078,7 +1078,7 @@ end;
 
 
 
-Procedure TOperation.Setzone(AIndex : Integer; AValue : String); 
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fzone=AValue) then exit;
@@ -1108,7 +1108,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TOperationList.Setid(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1128,7 +1128,7 @@ end;
 
 
 
-Procedure TOperationList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1138,7 +1138,7 @@ end;
 
 
 
-Procedure TOperationList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1148,7 +1148,7 @@ end;
 
 
 
-Procedure TOperationList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1178,7 +1178,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResourceView.SetcreationTimestamp(AIndex : Integer; AValue : String); 
+Procedure TResourceView.SetcreationTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcreationTimestamp=AValue) then exit;
@@ -1188,7 +1188,7 @@ end;
 
 
 
-Procedure TResourceView.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TResourceView.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -1208,7 +1208,7 @@ end;
 
 
 
-Procedure TResourceView.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TResourceView.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -1218,7 +1218,7 @@ end;
 
 
 
-Procedure TResourceView.Setid(AIndex : Integer; AValue : String); 
+Procedure TResourceView.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1228,7 +1228,7 @@ end;
 
 
 
-Procedure TResourceView.Setkind(AIndex : Integer; AValue : String); 
+Procedure TResourceView.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1248,7 +1248,7 @@ end;
 
 
 
-Procedure TResourceView.Setname(AIndex : Integer; AValue : String); 
+Procedure TResourceView.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1258,7 +1258,7 @@ end;
 
 
 
-Procedure TResourceView.Setnetwork(AIndex : Integer; AValue : String); 
+Procedure TResourceView.Setnetwork(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnetwork=AValue) then exit;
@@ -1278,7 +1278,7 @@ end;
 
 
 
-Procedure TResourceView.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TResourceView.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1320,7 +1320,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TServiceEndpoint.Setname(AIndex : Integer; AValue : String); 
+Procedure TServiceEndpoint.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1387,7 +1387,7 @@ end;
 
 
 
-Procedure TZoneViewsGetServiceResponse.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsGetServiceResponse.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -1427,7 +1427,7 @@ end;
 
 
 
-Procedure TZoneViewsList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1437,7 +1437,7 @@ end;
 
 
 
-Procedure TZoneViewsList.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsList.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1447,7 +1447,7 @@ end;
 
 
 
-Procedure TZoneViewsList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -1487,7 +1487,7 @@ end;
 
 
 
-Procedure TZoneViewsListResourcesResponse.Setnetwork(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsListResourcesResponse.Setnetwork(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnetwork=AValue) then exit;
@@ -1497,7 +1497,7 @@ end;
 
 
 
-Procedure TZoneViewsListResourcesResponse.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsListResourcesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -1567,7 +1567,7 @@ end;
 
 
 
-Procedure TZoneViewsSetServiceRequest.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsSetServiceRequest.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -1577,7 +1577,7 @@ end;
 
 
 
-Procedure TZoneViewsSetServiceRequest.SetresourceName(AIndex : Integer; AValue : String); 
+Procedure TZoneViewsSetServiceRequest.SetresourceName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FresourceName=AValue) then exit;

packages/googleapi/src/googlesiteVerification.pp

@@ -48,8 +48,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setidentifier(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setidentifier(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property identifier : String Index 0 Read Fidentifier Write Setidentifier;
@@ -68,7 +68,7 @@ type
   Protected
     //Property setters
     Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceGettokenRequestTypesite); virtual;
-    Procedure SetverificationMethod(AIndex : Integer; AValue : String); virtual;
+    Procedure SetverificationMethod(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property site : TSiteVerificationWebResourceGettokenRequestTypesite Index 0 Read Fsite Write Setsite;
@@ -86,8 +86,8 @@ type
     Ftoken : String;
   Protected
     //Property setters
-    Procedure Setmethod(AIndex : Integer; AValue : String); virtual;
-    Procedure Settoken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property method : String Index 0 Read Fmethod Write Setmethod;
@@ -126,8 +126,8 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setidentifier(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setidentifier(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property identifier : String Index 0 Read Fidentifier Write Setidentifier;
@@ -146,7 +146,7 @@ type
     Fsite : TSiteVerificationWebResourceResourceTypesite;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
     Procedure Setowners(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceTypesite); virtual;
     //2.6.4. bug workaround
@@ -232,7 +232,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Setidentifier(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Setidentifier(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fidentifier=AValue) then exit;
@@ -242,7 +242,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Set_type(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenRequestTypesite.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -280,7 +280,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenRequest.SetverificationMethod(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenRequest.SetverificationMethod(AIndex : Integer; const AValue : String); 
 
 begin
   If (FverificationMethod=AValue) then exit;
@@ -297,7 +297,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceGettokenResponse.Setmethod(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenResponse.Setmethod(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fmethod=AValue) then exit;
@@ -307,7 +307,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceGettokenResponse.Settoken(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceGettokenResponse.Settoken(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftoken=AValue) then exit;
@@ -354,7 +354,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceResourceTypesite.Setidentifier(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceResourceTypesite.Setidentifier(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fidentifier=AValue) then exit;
@@ -364,7 +364,7 @@ end;
 
 
 
-Procedure TSiteVerificationWebResourceResourceTypesite.Set_type(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceResourceTypesite.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -392,7 +392,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TSiteVerificationWebResourceResource.Setid(AIndex : Integer; AValue : String); 
+Procedure TSiteVerificationWebResourceResource.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;

packages/googleapi/src/googlespectrum.pp

@@ -116,7 +116,7 @@ type
   Protected
     //Property setters
     Procedure Setheight(AIndex : Integer; AValue : double); virtual;
-    Procedure SetheightType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetheightType(AIndex : Integer; const AValue : String); virtual;
     Procedure SetheightUncertainty(AIndex : Integer; AValue : double); virtual;
   Public
   Published
@@ -136,8 +136,8 @@ type
     Furi : String;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Seturi(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Seturi(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property name : String Index 0 Read Fname Write Setname;
@@ -203,16 +203,16 @@ type
     FserialNumber : String;
   Protected
     //Property setters
-    Procedure SetetsiEnDeviceCategory(AIndex : Integer; AValue : String); virtual;
-    Procedure SetetsiEnDeviceEmissionsClass(AIndex : Integer; AValue : String); virtual;
-    Procedure SetetsiEnDeviceType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetetsiEnTechnologyId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfccId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetfccTvbdDeviceType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmanufacturerId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmodelId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetetsiEnDeviceCategory(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetetsiEnDeviceEmissionsClass(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetetsiEnDeviceType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetetsiEnTechnologyId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfccId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetfccTvbdDeviceType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmanufacturerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmodelId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetrulesetIds(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetserialNumber(AIndex : Integer; AValue : String); virtual;
+    Procedure SetserialNumber(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -265,7 +265,7 @@ type
     //Property setters
     Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
     Procedure SetisValid(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setreason(AIndex : Integer; AValue : String); virtual;
+    Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property deviceDesc : TDeviceDescriptor Index 0 Read FdeviceDesc Write SetdeviceDesc;
@@ -284,8 +284,8 @@ type
     FstopTime : String;
   Protected
     //Property setters
-    Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
-    Procedure SetstopTime(AIndex : Integer; AValue : String); virtual;
+    Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetstopTime(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property startTime : String Index 0 Read FstartTime Write SetstartTime;
@@ -305,7 +305,7 @@ type
     FstopHz : double;
   Protected
     //Property setters
-    Procedure SetchannelId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaxPowerDBm(AIndex : Integer; AValue : double); virtual;
     Procedure SetstartHz(AIndex : Integer; AValue : double); virtual;
     Procedure SetstopHz(AIndex : Integer; AValue : double); virtual;
@@ -451,9 +451,9 @@ type
     Procedure Setlocations(AIndex : Integer; AValue : TPawsGetSpectrumBatchRequestTypelocationsArray); virtual;
     Procedure SetmasterDeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
     Procedure Setowner(AIndex : Integer; AValue : TDeviceOwner); virtual;
-    Procedure SetrequestType(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure SetrequestType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -495,14 +495,14 @@ type
     Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
     Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
     Procedure SetgeoSpectrumSchedules(AIndex : Integer; AValue : TPawsGetSpectrumBatchResponseTypegeoSpectrumSchedulesArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaxContiguousBwHz(AIndex : Integer; AValue : double); virtual;
     Procedure SetmaxTotalBwHz(AIndex : Integer; AValue : double); virtual;
     Procedure SetneedsSpectrumReport(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo); virtual;
-    Procedure Settimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -547,9 +547,9 @@ type
     Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
     Procedure SetmasterDeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
     Procedure Setowner(AIndex : Integer; AValue : TDeviceOwner); virtual;
-    Procedure SetrequestType(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure SetrequestType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property antenna : TAntennaCharacteristics Index 0 Read Fantenna Write Setantenna;
@@ -586,15 +586,15 @@ type
     //Property setters
     Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
     Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaxContiguousBwHz(AIndex : Integer; AValue : double); virtual;
     Procedure SetmaxTotalBwHz(AIndex : Integer; AValue : double); virtual;
     Procedure SetneedsSpectrumReport(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo); virtual;
     Procedure SetspectrumSchedules(AIndex : Integer; AValue : TPawsGetSpectrumResponseTypespectrumSchedulesArray); virtual;
-    Procedure Settimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -630,8 +630,8 @@ type
     //Property setters
     Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
     Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property deviceDesc : TDeviceDescriptor Index 0 Read FdeviceDesc Write SetdeviceDesc;
@@ -656,10 +656,10 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property databaseChange : TDbUpdateSpec Index 0 Read FdatabaseChange Write SetdatabaseChange;
@@ -687,8 +687,8 @@ type
     Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
     Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
     Procedure Setspectra(AIndex : Integer; AValue : TPawsNotifySpectrumUseRequestTypespectraArray); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -715,9 +715,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property kind : String Index 0 Read Fkind Write Setkind;
@@ -745,8 +745,8 @@ type
     Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
     Procedure SetdeviceOwner(AIndex : Integer; AValue : TDeviceOwner); virtual;
     Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property antenna : TAntennaCharacteristics Index 0 Read Fantenna Write Setantenna;
@@ -772,9 +772,9 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property databaseChange : TDbUpdateSpec Index 0 Read FdatabaseChange Write SetdatabaseChange;
@@ -797,8 +797,8 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure SetdeviceDescs(AIndex : Integer; AValue : TPawsVerifyDeviceRequestTypedeviceDescsArray); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -827,9 +827,9 @@ type
     //Property setters
     Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
     Procedure SetdeviceValidities(AIndex : Integer; AValue : TPawsVerifyDeviceResponseTypedeviceValiditiesArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -856,7 +856,7 @@ type
     FrulesetIds : TStringArray;
   Protected
     //Property setters
-    Procedure Setauthority(AIndex : Integer; AValue : String); virtual;
+    Procedure Setauthority(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaxLocationChange(AIndex : Integer; AValue : double); virtual;
     Procedure SetmaxPollingSecs(AIndex : Integer; AValue : integer); virtual;
     Procedure SetrulesetIds(AIndex : Integer; AValue : TStringArray); virtual;
@@ -934,7 +934,7 @@ type
     //Property setters
     Procedure Setadr(AIndex : Integer; AValue : TVcardAddress); virtual;
     Procedure Setemail(AIndex : Integer; AValue : TVcardTypedText); virtual;
-    Procedure Setfn(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfn(AIndex : Integer; const AValue : String); virtual;
     Procedure Setorg(AIndex : Integer; AValue : TVcardTypedText); virtual;
     Procedure Settel(AIndex : Integer; AValue : TVcardTelephone); virtual;
   Public
@@ -961,12 +961,12 @@ type
     Fstreet : String;
   Protected
     //Property setters
-    Procedure Setcode(AIndex : Integer; AValue : String); virtual;
-    Procedure Setcountry(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlocality(AIndex : Integer; AValue : String); virtual;
-    Procedure Setpobox(AIndex : Integer; AValue : String); virtual;
-    Procedure Setregion(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstreet(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlocality(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setpobox(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstreet(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property code : String Index 0 Read Fcode Write Setcode;
@@ -987,7 +987,7 @@ type
     Furi : String;
   Protected
     //Property setters
-    Procedure Seturi(AIndex : Integer; AValue : String); virtual;
+    Procedure Seturi(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property uri : String Index 0 Read Furi Write Seturi;
@@ -1003,7 +1003,7 @@ type
     Ftext : String;
   Protected
     //Property setters
-    Procedure Settext(AIndex : Integer; AValue : String); virtual;
+    Procedure Settext(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property text : String Index 0 Read Ftext Write Settext;
@@ -1082,7 +1082,7 @@ end;
 
 
 
-Procedure TAntennaCharacteristics.SetheightType(AIndex : Integer; AValue : String); 
+Procedure TAntennaCharacteristics.SetheightType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FheightType=AValue) then exit;
@@ -1109,7 +1109,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDatabaseSpec.Setname(AIndex : Integer; AValue : String); 
+Procedure TDatabaseSpec.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1119,7 +1119,7 @@ end;
 
 
 
-Procedure TDatabaseSpec.Seturi(AIndex : Integer; AValue : String); 
+Procedure TDatabaseSpec.Seturi(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furi=AValue) then exit;
@@ -1196,7 +1196,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TDeviceDescriptor.SetetsiEnDeviceCategory(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetetsiEnDeviceCategory(AIndex : Integer; const AValue : String); 
 
 begin
   If (FetsiEnDeviceCategory=AValue) then exit;
@@ -1206,7 +1206,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetetsiEnDeviceEmissionsClass(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetetsiEnDeviceEmissionsClass(AIndex : Integer; const AValue : String); 
 
 begin
   If (FetsiEnDeviceEmissionsClass=AValue) then exit;
@@ -1216,7 +1216,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetetsiEnDeviceType(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetetsiEnDeviceType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FetsiEnDeviceType=AValue) then exit;
@@ -1226,7 +1226,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetetsiEnTechnologyId(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetetsiEnTechnologyId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FetsiEnTechnologyId=AValue) then exit;
@@ -1236,7 +1236,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetfccId(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetfccId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfccId=AValue) then exit;
@@ -1246,7 +1246,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetfccTvbdDeviceType(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetfccTvbdDeviceType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FfccTvbdDeviceType=AValue) then exit;
@@ -1256,7 +1256,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetmanufacturerId(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetmanufacturerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmanufacturerId=AValue) then exit;
@@ -1266,7 +1266,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetmodelId(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetmodelId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmodelId=AValue) then exit;
@@ -1286,7 +1286,7 @@ end;
 
 
 
-Procedure TDeviceDescriptor.SetserialNumber(AIndex : Integer; AValue : String); 
+Procedure TDeviceDescriptor.SetserialNumber(AIndex : Integer; const AValue : String); 
 
 begin
   If (FserialNumber=AValue) then exit;
@@ -1374,7 +1374,7 @@ end;
 
 
 
-Procedure TDeviceValidity.Setreason(AIndex : Integer; AValue : String); 
+Procedure TDeviceValidity.Setreason(AIndex : Integer; const AValue : String); 
 
 begin
   If (Freason=AValue) then exit;
@@ -1391,7 +1391,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TEventTime.SetstartTime(AIndex : Integer; AValue : String); 
+Procedure TEventTime.SetstartTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstartTime=AValue) then exit;
@@ -1401,7 +1401,7 @@ end;
 
 
 
-Procedure TEventTime.SetstopTime(AIndex : Integer; AValue : String); 
+Procedure TEventTime.SetstopTime(AIndex : Integer; const AValue : String); 
 
 begin
   If (FstopTime=AValue) then exit;
@@ -1418,7 +1418,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TFrequencyRange.SetchannelId(AIndex : Integer; AValue : String); 
+Procedure TFrequencyRange.SetchannelId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FchannelId=AValue) then exit;
@@ -1706,7 +1706,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumBatchRequest.SetrequestType(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumBatchRequest.SetrequestType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrequestType=AValue) then exit;
@@ -1716,7 +1716,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumBatchRequest.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumBatchRequest.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1726,7 +1726,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumBatchRequest.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumBatchRequest.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -1797,7 +1797,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumBatchResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumBatchResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1847,7 +1847,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumBatchResponse.Settimestamp(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumBatchResponse.Settimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftimestamp=AValue) then exit;
@@ -1857,7 +1857,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumBatchResponse.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumBatchResponse.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1867,7 +1867,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumBatchResponse.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumBatchResponse.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -1968,7 +1968,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumRequest.SetrequestType(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumRequest.SetrequestType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FrequestType=AValue) then exit;
@@ -1978,7 +1978,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumRequest.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumRequest.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1988,7 +1988,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumRequest.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumRequest.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2036,7 +2036,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2096,7 +2096,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumResponse.Settimestamp(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumResponse.Settimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftimestamp=AValue) then exit;
@@ -2106,7 +2106,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumResponse.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumResponse.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2116,7 +2116,7 @@ end;
 
 
 
-Procedure TPawsGetSpectrumResponse.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsGetSpectrumResponse.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2177,7 +2177,7 @@ end;
 
 
 
-Procedure TPawsInitRequest.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsInitRequest.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2187,7 +2187,7 @@ end;
 
 
 
-Procedure TPawsInitRequest.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsInitRequest.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2225,7 +2225,7 @@ end;
 
 
 
-Procedure TPawsInitResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPawsInitResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2245,7 +2245,7 @@ end;
 
 
 
-Procedure TPawsInitResponse.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsInitResponse.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2255,7 +2255,7 @@ end;
 
 
 
-Procedure TPawsInitResponse.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsInitResponse.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2313,7 +2313,7 @@ end;
 
 
 
-Procedure TPawsNotifySpectrumUseRequest.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsNotifySpectrumUseRequest.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2323,7 +2323,7 @@ end;
 
 
 
-Procedure TPawsNotifySpectrumUseRequest.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsNotifySpectrumUseRequest.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2364,7 +2364,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TPawsNotifySpectrumUseResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPawsNotifySpectrumUseResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2374,7 +2374,7 @@ end;
 
 
 
-Procedure TPawsNotifySpectrumUseResponse.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsNotifySpectrumUseResponse.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2384,7 +2384,7 @@ end;
 
 
 
-Procedure TPawsNotifySpectrumUseResponse.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsNotifySpectrumUseResponse.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2452,7 +2452,7 @@ end;
 
 
 
-Procedure TPawsRegisterRequest.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsRegisterRequest.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2462,7 +2462,7 @@ end;
 
 
 
-Procedure TPawsRegisterRequest.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsRegisterRequest.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2500,7 +2500,7 @@ end;
 
 
 
-Procedure TPawsRegisterResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPawsRegisterResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2510,7 +2510,7 @@ end;
 
 
 
-Procedure TPawsRegisterResponse.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsRegisterResponse.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2520,7 +2520,7 @@ end;
 
 
 
-Procedure TPawsRegisterResponse.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsRegisterResponse.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2558,7 +2558,7 @@ end;
 
 
 
-Procedure TPawsVerifyDeviceRequest.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsVerifyDeviceRequest.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2568,7 +2568,7 @@ end;
 
 
 
-Procedure TPawsVerifyDeviceRequest.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsVerifyDeviceRequest.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2629,7 +2629,7 @@ end;
 
 
 
-Procedure TPawsVerifyDeviceResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TPawsVerifyDeviceResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -2639,7 +2639,7 @@ end;
 
 
 
-Procedure TPawsVerifyDeviceResponse.Set_type(AIndex : Integer; AValue : String); 
+Procedure TPawsVerifyDeviceResponse.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2649,7 +2649,7 @@ end;
 
 
 
-Procedure TPawsVerifyDeviceResponse.Setversion(AIndex : Integer; AValue : String); 
+Procedure TPawsVerifyDeviceResponse.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -2690,7 +2690,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRulesetInfo.Setauthority(AIndex : Integer; AValue : String); 
+Procedure TRulesetInfo.Setauthority(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fauthority=AValue) then exit;
@@ -2850,7 +2850,7 @@ end;
 
 
 
-Procedure TVcard.Setfn(AIndex : Integer; AValue : String); 
+Procedure TVcard.Setfn(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffn=AValue) then exit;
@@ -2887,7 +2887,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TVcardAddress.Setcode(AIndex : Integer; AValue : String); 
+Procedure TVcardAddress.Setcode(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcode=AValue) then exit;
@@ -2897,7 +2897,7 @@ end;
 
 
 
-Procedure TVcardAddress.Setcountry(AIndex : Integer; AValue : String); 
+Procedure TVcardAddress.Setcountry(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcountry=AValue) then exit;
@@ -2907,7 +2907,7 @@ end;
 
 
 
-Procedure TVcardAddress.Setlocality(AIndex : Integer; AValue : String); 
+Procedure TVcardAddress.Setlocality(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flocality=AValue) then exit;
@@ -2917,7 +2917,7 @@ end;
 
 
 
-Procedure TVcardAddress.Setpobox(AIndex : Integer; AValue : String); 
+Procedure TVcardAddress.Setpobox(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpobox=AValue) then exit;
@@ -2927,7 +2927,7 @@ end;
 
 
 
-Procedure TVcardAddress.Setregion(AIndex : Integer; AValue : String); 
+Procedure TVcardAddress.Setregion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fregion=AValue) then exit;
@@ -2937,7 +2937,7 @@ end;
 
 
 
-Procedure TVcardAddress.Setstreet(AIndex : Integer; AValue : String); 
+Procedure TVcardAddress.Setstreet(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstreet=AValue) then exit;
@@ -2954,7 +2954,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TVcardTelephone.Seturi(AIndex : Integer; AValue : String); 
+Procedure TVcardTelephone.Seturi(AIndex : Integer; const AValue : String); 
 
 begin
   If (Furi=AValue) then exit;
@@ -2971,7 +2971,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TVcardTypedText.Settext(AIndex : Integer; AValue : String); 
+Procedure TVcardTypedText.Settext(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftext=AValue) then exit;

packages/googleapi/src/googletagmanager.pp

@@ -116,9 +116,9 @@ type
     FshareData : boolean;
   Protected
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
     Procedure SetshareData(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -161,7 +161,7 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setparameter(AIndex : Integer; AValue : TConditionTypeparameterArray); virtual;
-    Procedure Set_type(AIndex : Integer; 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;
@@ -192,16 +192,16 @@ type
     FusageContext : TStringArray;
   Protected
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetdomainName(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetenabledBuiltInVariable(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpublicId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettimeZoneCountryId(AIndex : Integer; AValue : String); virtual;
-    Procedure SettimeZoneId(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpublicId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettimeZoneCountryId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettimeZoneId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetusageContext(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -233,7 +233,7 @@ type
     Fpermission : TStringArray;
   Protected
     //Property setters
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setpermission(AIndex : Integer; AValue : TStringArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -267,15 +267,15 @@ type
     Fvariable : TContainerVersionTypevariableArray;
   Protected
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setcontainer(AIndex : Integer; AValue : TContainer); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontainerVersionId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
     Procedure Setmacro(AIndex : Integer; AValue : TContainerVersionTypemacroArray); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrule(AIndex : Integer; AValue : TContainerVersionTyperuleArray); virtual;
     Procedure Settag(AIndex : Integer; AValue : TContainerVersionTypetagArray); virtual;
     Procedure Settrigger(AIndex : Integer; AValue : TContainerVersionTypetriggerArray); virtual;
@@ -320,16 +320,16 @@ type
     FnumVariables : String;
   Protected
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontainerVersionId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumMacros(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumRules(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumTags(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumTriggers(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnumVariables(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumMacros(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumRules(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumTags(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumTriggers(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnumVariables(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property accountId : String Index 0 Read FaccountId Write SetaccountId;
@@ -356,8 +356,8 @@ type
     FquickPreview : boolean;
   Protected
     //Property setters
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
     Procedure SetquickPreview(AIndex : Integer; AValue : boolean); virtual;
   Public
   Published
@@ -590,18 +590,18 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetdisablingRuleId(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetenablingRuleId(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure SetmacroId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetmacroId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparameter(AIndex : Integer; AValue : TMacroTypeparameterArray); virtual;
-    Procedure SetscheduleEndMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetscheduleStartMs(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetscheduleStartMs(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;
@@ -637,11 +637,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setkey(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlist(AIndex : Integer; AValue : TParameterTypelistArray); virtual;
     Procedure Setmap(AIndex : Integer; AValue : TParameterTypemapArray); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setvalue(AIndex : Integer; AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -690,13 +690,13 @@ type
     FruleId : String;
   Protected
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
     Procedure Setcondition(AIndex : Integer; AValue : TRuleTypeconditionArray); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
-    Procedure SetruleId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetruleId(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -738,22 +738,22 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetblockingRuleId(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetblockingTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
     Procedure SetfiringRuleId(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetfiringTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetliveOnly(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparameter(AIndex : Integer; AValue : TTagTypeparameterArray); virtual;
     Procedure Setpriority(AIndex : Integer; AValue : TParameter); virtual;
-    Procedure SetscheduleEndMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetscheduleStartMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SettagId(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetscheduleStartMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettagId(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;
@@ -806,20 +806,20 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetautoEventFilter(AIndex : Integer; AValue : TTriggerTypeautoEventFilterArray); virtual;
     Procedure SetcheckValidation(AIndex : Integer; AValue : TParameter); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcustomEventFilter(AIndex : Integer; AValue : TTriggerTypecustomEventFilterArray); virtual;
     Procedure SetenableAllVideos(AIndex : Integer; AValue : TParameter); virtual;
     Procedure SeteventName(AIndex : Integer; AValue : TParameter); virtual;
     Procedure Setfilter(AIndex : Integer; AValue : TTriggerTypefilterArray); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
     Procedure Setinterval(AIndex : Integer; AValue : TParameter); virtual;
     Procedure Setlimit(AIndex : Integer; AValue : TParameter); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure SettriggerId(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettriggerId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
     Procedure SetuniqueTriggerId(AIndex : Integer; AValue : TParameter); virtual;
     Procedure SetvideoPercentageList(AIndex : Integer; AValue : TParameter); virtual;
     Procedure SetwaitForTags(AIndex : Integer; AValue : TParameter); virtual;
@@ -865,10 +865,10 @@ type
   Protected
     //Property setters
     Procedure SetaccountAccess(AIndex : Integer; AValue : TAccountAccess); virtual;
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetcontainerAccess(AIndex : Integer; AValue : TUserAccessTypecontainerAccessArray); virtual;
-    Procedure SetemailAddress(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpermissionId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -904,18 +904,18 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetaccountId(AIndex : Integer; AValue : String); virtual;
-    Procedure SetcontainerId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
     Procedure SetdisablingTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetenablingTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
+    Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
     Procedure Setparameter(AIndex : Integer; AValue : TVariableTypeparameterArray); virtual;
-    Procedure SetscheduleEndMs(AIndex : Integer; AValue : String); virtual;
-    Procedure SetscheduleStartMs(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure SetvariableId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetscheduleStartMs(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetvariableId(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1319,7 +1319,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TAccount.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TAccount.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -1329,7 +1329,7 @@ end;
 
 
 
-Procedure TAccount.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -1339,7 +1339,7 @@ end;
 
 
 
-Procedure TAccount.Setname(AIndex : Integer; AValue : String); 
+Procedure TAccount.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1406,7 +1406,7 @@ end;
 
 
 
-Procedure TCondition.Set_type(AIndex : Integer; AValue : String); 
+Procedure TCondition.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -1447,7 +1447,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TContainer.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TContainer.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -1457,7 +1457,7 @@ end;
 
 
 
-Procedure TContainer.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TContainer.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -1487,7 +1487,7 @@ end;
 
 
 
-Procedure TContainer.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TContainer.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -1497,7 +1497,7 @@ end;
 
 
 
-Procedure TContainer.Setname(AIndex : Integer; AValue : String); 
+Procedure TContainer.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1507,7 +1507,7 @@ end;
 
 
 
-Procedure TContainer.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TContainer.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -1517,7 +1517,7 @@ end;
 
 
 
-Procedure TContainer.SetpublicId(AIndex : Integer; AValue : String); 
+Procedure TContainer.SetpublicId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpublicId=AValue) then exit;
@@ -1527,7 +1527,7 @@ end;
 
 
 
-Procedure TContainer.SettimeZoneCountryId(AIndex : Integer; AValue : String); 
+Procedure TContainer.SettimeZoneCountryId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtimeZoneCountryId=AValue) then exit;
@@ -1537,7 +1537,7 @@ end;
 
 
 
-Procedure TContainer.SettimeZoneId(AIndex : Integer; AValue : String); 
+Procedure TContainer.SettimeZoneId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtimeZoneId=AValue) then exit;
@@ -1579,7 +1579,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TContainerAccess.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TContainerAccess.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -1619,7 +1619,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TContainerVersion.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TContainerVersion.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -1639,7 +1639,7 @@ end;
 
 
 
-Procedure TContainerVersion.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TContainerVersion.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -1649,7 +1649,7 @@ end;
 
 
 
-Procedure TContainerVersion.SetcontainerVersionId(AIndex : Integer; AValue : String); 
+Procedure TContainerVersion.SetcontainerVersionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerVersionId=AValue) then exit;
@@ -1669,7 +1669,7 @@ end;
 
 
 
-Procedure TContainerVersion.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TContainerVersion.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -1689,7 +1689,7 @@ end;
 
 
 
-Procedure TContainerVersion.Setname(AIndex : Integer; AValue : String); 
+Procedure TContainerVersion.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1699,7 +1699,7 @@ end;
 
 
 
-Procedure TContainerVersion.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TContainerVersion.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -1773,7 +1773,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TContainerVersionHeader.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -1783,7 +1783,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -1793,7 +1793,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.SetcontainerVersionId(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetcontainerVersionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerVersionId=AValue) then exit;
@@ -1813,7 +1813,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.Setname(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1823,7 +1823,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.SetnumMacros(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetnumMacros(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumMacros=AValue) then exit;
@@ -1833,7 +1833,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.SetnumRules(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetnumRules(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumRules=AValue) then exit;
@@ -1843,7 +1843,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.SetnumTags(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetnumTags(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumTags=AValue) then exit;
@@ -1853,7 +1853,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.SetnumTriggers(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetnumTriggers(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumTriggers=AValue) then exit;
@@ -1863,7 +1863,7 @@ end;
 
 
 
-Procedure TContainerVersionHeader.SetnumVariables(AIndex : Integer; AValue : String); 
+Procedure TContainerVersionHeader.SetnumVariables(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnumVariables=AValue) then exit;
@@ -1880,7 +1880,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TCreateContainerVersionRequestVersionOptions.Setname(AIndex : Integer; AValue : String); 
+Procedure TCreateContainerVersionRequestVersionOptions.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1890,7 +1890,7 @@ end;
 
 
 
-Procedure TCreateContainerVersionRequestVersionOptions.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TCreateContainerVersionRequestVersionOptions.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -2225,7 +2225,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TMacro.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TMacro.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -2235,7 +2235,7 @@ end;
 
 
 
-Procedure TMacro.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TMacro.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -2265,7 +2265,7 @@ end;
 
 
 
-Procedure TMacro.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TMacro.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -2275,7 +2275,7 @@ end;
 
 
 
-Procedure TMacro.SetmacroId(AIndex : Integer; AValue : String); 
+Procedure TMacro.SetmacroId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FmacroId=AValue) then exit;
@@ -2285,7 +2285,7 @@ end;
 
 
 
-Procedure TMacro.Setname(AIndex : Integer; AValue : String); 
+Procedure TMacro.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2295,7 +2295,7 @@ end;
 
 
 
-Procedure TMacro.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TMacro.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -2315,7 +2315,7 @@ end;
 
 
 
-Procedure TMacro.SetscheduleEndMs(AIndex : Integer; AValue : String); 
+Procedure TMacro.SetscheduleEndMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscheduleEndMs=AValue) then exit;
@@ -2325,7 +2325,7 @@ end;
 
 
 
-Procedure TMacro.SetscheduleStartMs(AIndex : Integer; AValue : String); 
+Procedure TMacro.SetscheduleStartMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscheduleStartMs=AValue) then exit;
@@ -2335,7 +2335,7 @@ end;
 
 
 
-Procedure TMacro.Set_type(AIndex : Integer; AValue : String); 
+Procedure TMacro.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2378,7 +2378,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TParameter.Setkey(AIndex : Integer; AValue : String); 
+Procedure TParameter.Setkey(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkey=AValue) then exit;
@@ -2408,7 +2408,7 @@ end;
 
 
 
-Procedure TParameter.Set_type(AIndex : Integer; AValue : String); 
+Procedure TParameter.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2418,7 +2418,7 @@ end;
 
 
 
-Procedure TParameter.Setvalue(AIndex : Integer; AValue : String); 
+Procedure TParameter.Setvalue(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fvalue=AValue) then exit;
@@ -2487,7 +2487,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TRule.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TRule.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -2507,7 +2507,7 @@ end;
 
 
 
-Procedure TRule.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TRule.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -2517,7 +2517,7 @@ end;
 
 
 
-Procedure TRule.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TRule.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -2527,7 +2527,7 @@ end;
 
 
 
-Procedure TRule.Setname(AIndex : Integer; AValue : String); 
+Procedure TRule.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2537,7 +2537,7 @@ end;
 
 
 
-Procedure TRule.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TRule.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -2547,7 +2547,7 @@ end;
 
 
 
-Procedure TRule.SetruleId(AIndex : Integer; AValue : String); 
+Procedure TRule.SetruleId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FruleId=AValue) then exit;
@@ -2577,7 +2577,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTag.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TTag.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -2607,7 +2607,7 @@ end;
 
 
 
-Procedure TTag.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TTag.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -2617,7 +2617,7 @@ end;
 
 
 
-Procedure TTag.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TTag.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -2657,7 +2657,7 @@ end;
 
 
 
-Procedure TTag.Setname(AIndex : Integer; AValue : String); 
+Procedure TTag.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2667,7 +2667,7 @@ end;
 
 
 
-Procedure TTag.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TTag.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -2697,7 +2697,7 @@ end;
 
 
 
-Procedure TTag.SetscheduleEndMs(AIndex : Integer; AValue : String); 
+Procedure TTag.SetscheduleEndMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscheduleEndMs=AValue) then exit;
@@ -2707,7 +2707,7 @@ end;
 
 
 
-Procedure TTag.SetscheduleStartMs(AIndex : Integer; AValue : String); 
+Procedure TTag.SetscheduleStartMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscheduleStartMs=AValue) then exit;
@@ -2717,7 +2717,7 @@ end;
 
 
 
-Procedure TTag.SettagId(AIndex : Integer; AValue : String); 
+Procedure TTag.SettagId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtagId=AValue) then exit;
@@ -2727,7 +2727,7 @@ end;
 
 
 
-Procedure TTag.Set_type(AIndex : Integer; AValue : String); 
+Procedure TTag.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2772,7 +2772,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTrigger.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TTrigger.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -2802,7 +2802,7 @@ end;
 
 
 
-Procedure TTrigger.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TTrigger.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -2852,7 +2852,7 @@ end;
 
 
 
-Procedure TTrigger.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TTrigger.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -2882,7 +2882,7 @@ end;
 
 
 
-Procedure TTrigger.Setname(AIndex : Integer; AValue : String); 
+Procedure TTrigger.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -2892,7 +2892,7 @@ end;
 
 
 
-Procedure TTrigger.SettriggerId(AIndex : Integer; AValue : String); 
+Procedure TTrigger.SettriggerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtriggerId=AValue) then exit;
@@ -2902,7 +2902,7 @@ end;
 
 
 
-Procedure TTrigger.Set_type(AIndex : Integer; AValue : String); 
+Procedure TTrigger.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -2995,7 +2995,7 @@ end;
 
 
 
-Procedure TUserAccess.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TUserAccess.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -3015,7 +3015,7 @@ end;
 
 
 
-Procedure TUserAccess.SetemailAddress(AIndex : Integer; AValue : String); 
+Procedure TUserAccess.SetemailAddress(AIndex : Integer; const AValue : String); 
 
 begin
   If (FemailAddress=AValue) then exit;
@@ -3025,7 +3025,7 @@ end;
 
 
 
-Procedure TUserAccess.SetpermissionId(AIndex : Integer; AValue : String); 
+Procedure TUserAccess.SetpermissionId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpermissionId=AValue) then exit;
@@ -3055,7 +3055,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TVariable.SetaccountId(AIndex : Integer; AValue : String); 
+Procedure TVariable.SetaccountId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FaccountId=AValue) then exit;
@@ -3065,7 +3065,7 @@ end;
 
 
 
-Procedure TVariable.SetcontainerId(AIndex : Integer; AValue : String); 
+Procedure TVariable.SetcontainerId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcontainerId=AValue) then exit;
@@ -3095,7 +3095,7 @@ end;
 
 
 
-Procedure TVariable.Setfingerprint(AIndex : Integer; AValue : String); 
+Procedure TVariable.Setfingerprint(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffingerprint=AValue) then exit;
@@ -3105,7 +3105,7 @@ end;
 
 
 
-Procedure TVariable.Setname(AIndex : Integer; AValue : String); 
+Procedure TVariable.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -3115,7 +3115,7 @@ end;
 
 
 
-Procedure TVariable.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TVariable.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -3135,7 +3135,7 @@ end;
 
 
 
-Procedure TVariable.SetscheduleEndMs(AIndex : Integer; AValue : String); 
+Procedure TVariable.SetscheduleEndMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscheduleEndMs=AValue) then exit;
@@ -3145,7 +3145,7 @@ end;
 
 
 
-Procedure TVariable.SetscheduleStartMs(AIndex : Integer; AValue : String); 
+Procedure TVariable.SetscheduleStartMs(AIndex : Integer; const AValue : String); 
 
 begin
   If (FscheduleStartMs=AValue) then exit;
@@ -3155,7 +3155,7 @@ end;
 
 
 
-Procedure TVariable.Set_type(AIndex : Integer; AValue : String); 
+Procedure TVariable.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -3165,7 +3165,7 @@ end;
 
 
 
-Procedure TVariable.SetvariableId(AIndex : Integer; AValue : String); 
+Procedure TVariable.SetvariableId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FvariableId=AValue) then exit;

packages/googleapi/src/googletaskqueue.pp

@@ -54,14 +54,14 @@ type
     Ftag : String;
   Protected
     //Property setters
-    Procedure SetenqueueTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetleaseTimestamp(AIndex : Integer; AValue : String); virtual;
-    Procedure SetpayloadBase64(AIndex : Integer; AValue : String); virtual;
-    Procedure SetqueueName(AIndex : Integer; AValue : String); virtual;
+    Procedure SetenqueueTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetleaseTimestamp(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetpayloadBase64(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetqueueName(AIndex : Integer; const AValue : String); virtual;
     Procedure Setretry_count(AIndex : Integer; AValue : integer); virtual;
-    Procedure Settag(AIndex : Integer; AValue : String); virtual;
+    Procedure Settag(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property enqueueTimestamp : String Index 0 Read FenqueueTimestamp Write SetenqueueTimestamp;
@@ -113,9 +113,9 @@ type
     FtotalTasks : integer;
   Protected
     //Property setters
-    Procedure SetleasedLastHour(AIndex : Integer; AValue : String); virtual;
-    Procedure SetleasedLastMinute(AIndex : Integer; AValue : String); virtual;
-    Procedure SetoldestTask(AIndex : Integer; AValue : String); virtual;
+    Procedure SetleasedLastHour(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetleasedLastMinute(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetoldestTask(AIndex : Integer; const AValue : String); virtual;
     Procedure SettotalTasks(AIndex : Integer; AValue : integer); virtual;
   Public
   Published
@@ -140,8 +140,8 @@ type
   Protected
     //Property setters
     Procedure Setacl(AIndex : Integer; AValue : TTaskQueueTypeacl); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetmaxLeases(AIndex : Integer; AValue : integer); virtual;
     Procedure Setstats(AIndex : Integer; AValue : TTaskQueueTypestats); virtual;
   Public
@@ -165,7 +165,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -188,7 +188,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTasks2TypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -315,7 +315,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TTask.SetenqueueTimestamp(AIndex : Integer; AValue : String); 
+Procedure TTask.SetenqueueTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FenqueueTimestamp=AValue) then exit;
@@ -325,7 +325,7 @@ end;
 
 
 
-Procedure TTask.Setid(AIndex : Integer; AValue : String); 
+Procedure TTask.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -335,7 +335,7 @@ end;
 
 
 
-Procedure TTask.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTask.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -345,7 +345,7 @@ end;
 
 
 
-Procedure TTask.SetleaseTimestamp(AIndex : Integer; AValue : String); 
+Procedure TTask.SetleaseTimestamp(AIndex : Integer; const AValue : String); 
 
 begin
   If (FleaseTimestamp=AValue) then exit;
@@ -355,7 +355,7 @@ end;
 
 
 
-Procedure TTask.SetpayloadBase64(AIndex : Integer; AValue : String); 
+Procedure TTask.SetpayloadBase64(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpayloadBase64=AValue) then exit;
@@ -365,7 +365,7 @@ end;
 
 
 
-Procedure TTask.SetqueueName(AIndex : Integer; AValue : String); 
+Procedure TTask.SetqueueName(AIndex : Integer; const AValue : String); 
 
 begin
   If (FqueueName=AValue) then exit;
@@ -385,7 +385,7 @@ end;
 
 
 
-Procedure TTask.Settag(AIndex : Integer; AValue : String); 
+Procedure TTask.Settag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftag=AValue) then exit;
@@ -454,7 +454,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskQueueTypestats.SetleasedLastHour(AIndex : Integer; AValue : String); 
+Procedure TTaskQueueTypestats.SetleasedLastHour(AIndex : Integer; const AValue : String); 
 
 begin
   If (FleasedLastHour=AValue) then exit;
@@ -464,7 +464,7 @@ end;
 
 
 
-Procedure TTaskQueueTypestats.SetleasedLastMinute(AIndex : Integer; AValue : String); 
+Procedure TTaskQueueTypestats.SetleasedLastMinute(AIndex : Integer; const AValue : String); 
 
 begin
   If (FleasedLastMinute=AValue) then exit;
@@ -474,7 +474,7 @@ end;
 
 
 
-Procedure TTaskQueueTypestats.SetoldestTask(AIndex : Integer; AValue : String); 
+Procedure TTaskQueueTypestats.SetoldestTask(AIndex : Integer; const AValue : String); 
 
 begin
   If (FoldestTask=AValue) then exit;
@@ -511,7 +511,7 @@ end;
 
 
 
-Procedure TTaskQueue.Setid(AIndex : Integer; AValue : String); 
+Procedure TTaskQueue.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -521,7 +521,7 @@ end;
 
 
 
-Procedure TTaskQueue.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTaskQueue.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -568,7 +568,7 @@ end;
 
 
 
-Procedure TTasks.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTasks.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -608,7 +608,7 @@ end;
 
 
 
-Procedure TTasks2.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTasks2.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googletasks.pp

@@ -50,9 +50,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
-    Procedure Setlink(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -87,17 +87,17 @@ type
     Procedure Setcompleted(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setdue(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Sethidden(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setlinks(AIndex : Integer; AValue : TTaskTypelinksArray); virtual;
-    Procedure Setnotes(AIndex : Integer; AValue : String); virtual;
-    Procedure Setparent(AIndex : Integer; AValue : String); virtual;
-    Procedure Setposition(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setparent(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setposition(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -137,11 +137,11 @@ type
     Fupdated : TDatetime;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
   Public
   Published
@@ -166,10 +166,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TTaskListsTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -195,10 +195,10 @@ type
     FnextPageToken : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -342,7 +342,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TTaskTypelinksItem.Setdescription(AIndex : Integer; AValue : String); 
+Procedure TTaskTypelinksItem.Setdescription(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fdescription=AValue) then exit;
@@ -352,7 +352,7 @@ end;
 
 
 
-Procedure TTaskTypelinksItem.Setlink(AIndex : Integer; AValue : String); 
+Procedure TTaskTypelinksItem.Setlink(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flink=AValue) then exit;
@@ -362,7 +362,7 @@ end;
 
 
 
-Procedure TTaskTypelinksItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TTaskTypelinksItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -420,7 +420,7 @@ end;
 
 
 
-Procedure TTask.Setetag(AIndex : Integer; AValue : String); 
+Procedure TTask.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -440,7 +440,7 @@ end;
 
 
 
-Procedure TTask.Setid(AIndex : Integer; AValue : String); 
+Procedure TTask.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -450,7 +450,7 @@ end;
 
 
 
-Procedure TTask.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTask.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -470,7 +470,7 @@ end;
 
 
 
-Procedure TTask.Setnotes(AIndex : Integer; AValue : String); 
+Procedure TTask.Setnotes(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fnotes=AValue) then exit;
@@ -480,7 +480,7 @@ end;
 
 
 
-Procedure TTask.Setparent(AIndex : Integer; AValue : String); 
+Procedure TTask.Setparent(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fparent=AValue) then exit;
@@ -490,7 +490,7 @@ end;
 
 
 
-Procedure TTask.Setposition(AIndex : Integer; AValue : String); 
+Procedure TTask.Setposition(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fposition=AValue) then exit;
@@ -500,7 +500,7 @@ end;
 
 
 
-Procedure TTask.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TTask.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -510,7 +510,7 @@ end;
 
 
 
-Procedure TTask.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TTask.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -520,7 +520,7 @@ end;
 
 
 
-Procedure TTask.Settitle(AIndex : Integer; AValue : String); 
+Procedure TTask.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -560,7 +560,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskList.Setetag(AIndex : Integer; AValue : String); 
+Procedure TTaskList.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -570,7 +570,7 @@ end;
 
 
 
-Procedure TTaskList.Setid(AIndex : Integer; AValue : String); 
+Procedure TTaskList.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -580,7 +580,7 @@ end;
 
 
 
-Procedure TTaskList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTaskList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -590,7 +590,7 @@ end;
 
 
 
-Procedure TTaskList.SetselfLink(AIndex : Integer; AValue : String); 
+Procedure TTaskList.SetselfLink(AIndex : Integer; const AValue : String); 
 
 begin
   If (FselfLink=AValue) then exit;
@@ -600,7 +600,7 @@ end;
 
 
 
-Procedure TTaskList.Settitle(AIndex : Integer; AValue : String); 
+Procedure TTaskList.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -627,7 +627,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTaskLists.Setetag(AIndex : Integer; AValue : String); 
+Procedure TTaskLists.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -647,7 +647,7 @@ end;
 
 
 
-Procedure TTaskLists.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTaskLists.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -657,7 +657,7 @@ end;
 
 
 
-Procedure TTaskLists.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTaskLists.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;
@@ -687,7 +687,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTasks.Setetag(AIndex : Integer; AValue : String); 
+Procedure TTasks.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -707,7 +707,7 @@ end;
 
 
 
-Procedure TTasks.Setkind(AIndex : Integer; AValue : String); 
+Procedure TTasks.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -717,7 +717,7 @@ end;
 
 
 
-Procedure TTasks.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TTasks.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googletranslate.pp

@@ -75,7 +75,7 @@ type
     //Property setters
     Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
     Procedure SetisReliable(AIndex : Integer; AValue : boolean); virtual;
-    Procedure Setlanguage(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property confidence : integer Index 0 Read Fconfidence Write Setconfidence;
@@ -114,8 +114,8 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure Setlanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property language : String Index 0 Read Flanguage Write Setlanguage;
@@ -153,8 +153,8 @@ type
     FtranslatedText : String;
   Protected
     //Property setters
-    Procedure SetdetectedSourceLanguage(AIndex : Integer; AValue : String); virtual;
-    Procedure SettranslatedText(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdetectedSourceLanguage(AIndex : Integer; const AValue : String); virtual;
+    Procedure SettranslatedText(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property detectedSourceLanguage : String Index 0 Read FdetectedSourceLanguage Write SetdetectedSourceLanguage;
@@ -331,7 +331,7 @@ end;
 
 
 
-Procedure TDetectionsResourceItem.Setlanguage(AIndex : Integer; AValue : String); 
+Procedure TDetectionsResourceItem.Setlanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flanguage=AValue) then exit;
@@ -378,7 +378,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TLanguagesResource.Setlanguage(AIndex : Integer; AValue : String); 
+Procedure TLanguagesResource.Setlanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (Flanguage=AValue) then exit;
@@ -388,7 +388,7 @@ end;
 
 
 
-Procedure TLanguagesResource.Setname(AIndex : Integer; AValue : String); 
+Procedure TLanguagesResource.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -435,7 +435,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TTranslationsResource.SetdetectedSourceLanguage(AIndex : Integer; AValue : String); 
+Procedure TTranslationsResource.SetdetectedSourceLanguage(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdetectedSourceLanguage=AValue) then exit;
@@ -445,7 +445,7 @@ end;
 
 
 
-Procedure TTranslationsResource.SettranslatedText(AIndex : Integer; AValue : String); 
+Procedure TTranslationsResource.SettranslatedText(AIndex : Integer; const AValue : String); 
 
 begin
   If (FtranslatedText=AValue) then exit;

packages/googleapi/src/googleurlshortener.pp

@@ -57,10 +57,10 @@ type
     //Property setters
     Procedure Setbrowsers(AIndex : Integer; AValue : TAnalyticsSnapshotTypebrowsersArray); virtual;
     Procedure Setcountries(AIndex : Integer; AValue : TAnalyticsSnapshotTypecountriesArray); virtual;
-    Procedure SetlongUrlClicks(AIndex : Integer; AValue : String); virtual;
+    Procedure SetlongUrlClicks(AIndex : Integer; const AValue : String); virtual;
     Procedure Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotTypeplatformsArray); virtual;
     Procedure Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotTypereferrersArray); virtual;
-    Procedure SetshortUrlClicks(AIndex : Integer; AValue : String); virtual;
+    Procedure SetshortUrlClicks(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -114,8 +114,8 @@ type
     Fid : String;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property count : String Index 0 Read Fcount Write Setcount;
@@ -138,11 +138,11 @@ type
   Protected
     //Property setters
     Procedure Setanalytics(AIndex : Integer; AValue : TAnalyticsSummary); virtual;
-    Procedure Setcreated(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetlongUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcreated(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetlongUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property analytics : TAnalyticsSummary Index 0 Read Fanalytics Write Setanalytics;
@@ -169,8 +169,8 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TUrlHistoryTypeitemsArray); virtual;
     Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -283,7 +283,7 @@ end;
 
 
 
-Procedure TAnalyticsSnapshot.SetlongUrlClicks(AIndex : Integer; AValue : String); 
+Procedure TAnalyticsSnapshot.SetlongUrlClicks(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlongUrlClicks=AValue) then exit;
@@ -313,7 +313,7 @@ end;
 
 
 
-Procedure TAnalyticsSnapshot.SetshortUrlClicks(AIndex : Integer; AValue : String); 
+Procedure TAnalyticsSnapshot.SetshortUrlClicks(AIndex : Integer; const AValue : String); 
 
 begin
   If (FshortUrlClicks=AValue) then exit;
@@ -403,7 +403,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TStringCount.Setcount(AIndex : Integer; AValue : String); 
+Procedure TStringCount.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -413,7 +413,7 @@ end;
 
 
 
-Procedure TStringCount.Setid(AIndex : Integer; AValue : String); 
+Procedure TStringCount.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -440,7 +440,7 @@ end;
 
 
 
-Procedure TUrl.Setcreated(AIndex : Integer; AValue : String); 
+Procedure TUrl.Setcreated(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcreated=AValue) then exit;
@@ -450,7 +450,7 @@ end;
 
 
 
-Procedure TUrl.Setid(AIndex : Integer; AValue : String); 
+Procedure TUrl.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -460,7 +460,7 @@ end;
 
 
 
-Procedure TUrl.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUrl.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -470,7 +470,7 @@ end;
 
 
 
-Procedure TUrl.SetlongUrl(AIndex : Integer; AValue : String); 
+Procedure TUrl.SetlongUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FlongUrl=AValue) then exit;
@@ -480,7 +480,7 @@ end;
 
 
 
-Procedure TUrl.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TUrl.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -517,7 +517,7 @@ end;
 
 
 
-Procedure TUrlHistory.Setkind(AIndex : Integer; AValue : String); 
+Procedure TUrlHistory.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -527,7 +527,7 @@ end;
 
 
 
-Procedure TUrlHistory.SetnextPageToken(AIndex : Integer; AValue : String); 
+Procedure TUrlHistory.SetnextPageToken(AIndex : Integer; const AValue : String); 
 
 begin
   If (FnextPageToken=AValue) then exit;

packages/googleapi/src/googlewebfonts.pp

@@ -62,14 +62,14 @@ type
     Fversion : String;
   Protected
     //Property setters
-    Procedure Setcategory(AIndex : Integer; AValue : String); virtual;
-    Procedure Setfamily(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setfamily(AIndex : Integer; const AValue : String); virtual;
     Procedure Setfiles(AIndex : Integer; AValue : TWebfontTypefiles); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure SetlastModified(AIndex : Integer; AValue : TDate); virtual;
     Procedure Setsubsets(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setvariants(AIndex : Integer; AValue : TStringArray); virtual;
-    Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -98,7 +98,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TWebfontListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -188,7 +188,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWebfont.Setcategory(AIndex : Integer; AValue : String); 
+Procedure TWebfont.Setcategory(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcategory=AValue) then exit;
@@ -198,7 +198,7 @@ end;
 
 
 
-Procedure TWebfont.Setfamily(AIndex : Integer; AValue : String); 
+Procedure TWebfont.Setfamily(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ffamily=AValue) then exit;
@@ -218,7 +218,7 @@ end;
 
 
 
-Procedure TWebfont.Setkind(AIndex : Integer; AValue : String); 
+Procedure TWebfont.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -258,7 +258,7 @@ end;
 
 
 
-Procedure TWebfont.Setversion(AIndex : Integer; AValue : String); 
+Procedure TWebfont.Setversion(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fversion=AValue) then exit;
@@ -299,7 +299,7 @@ end;
 
 
 
-Procedure TWebfontList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TWebfontList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;

packages/googleapi/src/googlewebmasters.pp

@@ -104,7 +104,7 @@ type
     Ftimestamp : TDatetime;
   Protected
     //Property setters
-    Procedure Setcount(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
     Procedure Settimestamp(AIndex : Integer; AValue : TDatetime); virtual;
   Public
   Published
@@ -124,9 +124,9 @@ type
     Fplatform : String;
   Protected
     //Property setters
-    Procedure Setcategory(AIndex : Integer; AValue : String); virtual;
+    Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
     Procedure Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray); virtual;
-    Procedure Setplatform(AIndex : Integer; AValue : String); virtual;
+    Procedure Setplatform(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -174,7 +174,7 @@ type
     //Property setters
     Procedure Setfirst_detected(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setlast_crawled(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure SetpageUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpageUrl(AIndex : Integer; const AValue : String); virtual;
     Procedure SetresponseCode(AIndex : Integer; AValue : integer); virtual;
     Procedure SeturlDetails(AIndex : Integer; AValue : TUrlSampleDetails); virtual;
   Public
@@ -240,8 +240,8 @@ type
     FsiteUrl : String;
   Protected
     //Property setters
-    Procedure SetpermissionLevel(AIndex : Integer; AValue : String); virtual;
-    Procedure SetsiteUrl(AIndex : Integer; AValue : String); virtual;
+    Procedure SetpermissionLevel(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetsiteUrl(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property permissionLevel : String Index 0 Read FpermissionLevel Write SetpermissionLevel;
@@ -268,14 +268,14 @@ type
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
     Procedure Setcontents(AIndex : Integer; AValue : TWmxSitemapTypecontentsArray); virtual;
-    Procedure Seterrors(AIndex : Integer; AValue : String); virtual;
+    Procedure Seterrors(AIndex : Integer; const AValue : String); virtual;
     Procedure SetisPending(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetisSitemapsIndex(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetlastDownloaded(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SetlastSubmitted(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Setpath(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
-    Procedure Setwarnings(AIndex : Integer; AValue : String); virtual;
+    Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setwarnings(AIndex : Integer; const AValue : String); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
     Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -306,9 +306,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setindexed(AIndex : Integer; AValue : String); virtual;
-    Procedure Setsubmitted(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure Setindexed(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setsubmitted(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property indexed : String Index 0 Read Findexed Write Setindexed;
@@ -538,7 +538,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlCrawlErrorCount.Setcount(AIndex : Integer; AValue : String); 
+Procedure TUrlCrawlErrorCount.Setcount(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcount=AValue) then exit;
@@ -565,7 +565,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TUrlCrawlErrorCountsPerType.Setcategory(AIndex : Integer; AValue : String); 
+Procedure TUrlCrawlErrorCountsPerType.Setcategory(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fcategory=AValue) then exit;
@@ -585,7 +585,7 @@ end;
 
 
 
-Procedure TUrlCrawlErrorCountsPerType.Setplatform(AIndex : Integer; AValue : String); 
+Procedure TUrlCrawlErrorCountsPerType.Setplatform(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fplatform=AValue) then exit;
@@ -665,7 +665,7 @@ end;
 
 
 
-Procedure TUrlCrawlErrorsSample.SetpageUrl(AIndex : Integer; AValue : String); 
+Procedure TUrlCrawlErrorsSample.SetpageUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpageUrl=AValue) then exit;
@@ -773,7 +773,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWmxSite.SetpermissionLevel(AIndex : Integer; AValue : String); 
+Procedure TWmxSite.SetpermissionLevel(AIndex : Integer; const AValue : String); 
 
 begin
   If (FpermissionLevel=AValue) then exit;
@@ -783,7 +783,7 @@ end;
 
 
 
-Procedure TWmxSite.SetsiteUrl(AIndex : Integer; AValue : String); 
+Procedure TWmxSite.SetsiteUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FsiteUrl=AValue) then exit;
@@ -810,7 +810,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Seterrors(AIndex : Integer; AValue : String); 
+Procedure TWmxSitemap.Seterrors(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ferrors=AValue) then exit;
@@ -860,7 +860,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Setpath(AIndex : Integer; AValue : String); 
+Procedure TWmxSitemap.Setpath(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fpath=AValue) then exit;
@@ -870,7 +870,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Set_type(AIndex : Integer; AValue : String); 
+Procedure TWmxSitemap.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -880,7 +880,7 @@ end;
 
 
 
-Procedure TWmxSitemap.Setwarnings(AIndex : Integer; AValue : String); 
+Procedure TWmxSitemap.Setwarnings(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fwarnings=AValue) then exit;
@@ -921,7 +921,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TWmxSitemapContent.Setindexed(AIndex : Integer; AValue : String); 
+Procedure TWmxSitemapContent.Setindexed(AIndex : Integer; const AValue : String); 
 
 begin
   If (Findexed=AValue) then exit;
@@ -931,7 +931,7 @@ end;
 
 
 
-Procedure TWmxSitemapContent.Setsubmitted(AIndex : Integer; AValue : String); 
+Procedure TWmxSitemapContent.Setsubmitted(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fsubmitted=AValue) then exit;
@@ -941,7 +941,7 @@ end;
 
 
 
-Procedure TWmxSitemapContent.Set_type(AIndex : Integer; AValue : String); 
+Procedure TWmxSitemapContent.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;

packages/googleapi/src/googleyoutubeAnalytics.pp

@@ -69,9 +69,9 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure SetdownloadUrl(AIndex : Integer; AValue : String); virtual;
-    Procedure Setformat(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdownloadUrl(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property downloadUrl : String Index 0 Read FdownloadUrl Write SetdownloadUrl;
@@ -113,10 +113,10 @@ type
     FtimeUpdated : TDatetime;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setoutputs(AIndex : Integer; AValue : TBatchReportTypeoutputsArray); virtual;
-    Procedure SetreportId(AIndex : Integer; AValue : String); virtual;
+    Procedure SetreportId(AIndex : Integer; const AValue : String); virtual;
     Procedure SettimeSpan(AIndex : Integer; AValue : TBatchReportTypetimeSpan); virtual;
     Procedure SettimeUpdated(AIndex : Integer; AValue : TDatetime); virtual;
     //2.6.4. bug workaround
@@ -148,11 +148,11 @@ type
   Protected
     Class Function ExportPropertyName(Const AName : String) : string; override;
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
-    Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
-    Procedure Set_type(AIndex : Integer; 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 Setstatus(AIndex : Integer; const AValue : String); virtual;
+    Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -174,7 +174,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TBatchReportDefinitionListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -197,7 +197,7 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TBatchReportListTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -219,8 +219,8 @@ type
     FitemType : String;
   Protected
     //Property setters
-    Procedure SetitemCount(AIndex : Integer; AValue : String); virtual;
-    Procedure SetitemType(AIndex : Integer; AValue : String); virtual;
+    Procedure SetitemCount(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetitemType(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property itemCount : String Index 0 Read FitemCount Write SetitemCount;
@@ -239,7 +239,7 @@ type
   Protected
     //Property setters
     Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
-    Procedure Settitle(AIndex : Integer; AValue : String); virtual;
+    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property publishedAt : TDatetime Index 0 Read FpublishedAt Write SetpublishedAt;
@@ -261,9 +261,9 @@ type
   Protected
     //Property setters
     Procedure SetcontentDetails(AIndex : Integer; AValue : TGroupTypecontentDetails); virtual;
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setsnippet(AIndex : Integer; AValue : TGroupTypesnippet); virtual;
   Public
   Published
@@ -285,8 +285,8 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property id : String Index 0 Read Fid Write Setid;
@@ -307,10 +307,10 @@ type
     Fresource : TGroupItemTyperesource;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
-    Procedure SetgroupId(AIndex : Integer; AValue : String); virtual;
-    Procedure Setid(AIndex : Integer; AValue : String); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetgroupId(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setresource(AIndex : Integer; AValue : TGroupItemTyperesource); virtual;
   Public
   Published
@@ -333,9 +333,9 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TGroupItemListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -359,9 +359,9 @@ type
     Fkind : String;
   Protected
     //Property setters
-    Procedure Setetag(AIndex : Integer; AValue : String); virtual;
+    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TGroupListResponseTypeitemsArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); 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;
@@ -385,9 +385,9 @@ type
     Fname : String;
   Protected
     //Property setters
-    Procedure SetcolumnType(AIndex : Integer; AValue : String); virtual;
-    Procedure SetdataType(AIndex : Integer; AValue : String); virtual;
-    Procedure Setname(AIndex : Integer; AValue : String); virtual;
+    Procedure SetcolumnType(AIndex : Integer; const AValue : String); virtual;
+    Procedure SetdataType(AIndex : Integer; const AValue : String); virtual;
+    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
   Public
   Published
     Property columnType : String Index 0 Read FcolumnType Write SetcolumnType;
@@ -408,7 +408,7 @@ type
   Protected
     //Property setters
     Procedure SetcolumnHeaders(AIndex : Integer; AValue : TResultTableTypecolumnHeadersArray); virtual;
-    Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TResultTableTyperowsArray); virtual;
     //2.6.4. bug workaround
     {$IFDEF VER2_6}
@@ -647,7 +647,7 @@ implementation
   --------------------------------------------------------------------}
 
 
-Procedure TBatchReportTypeoutputsItem.SetdownloadUrl(AIndex : Integer; AValue : String); 
+Procedure TBatchReportTypeoutputsItem.SetdownloadUrl(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdownloadUrl=AValue) then exit;
@@ -657,7 +657,7 @@ end;
 
 
 
-Procedure TBatchReportTypeoutputsItem.Setformat(AIndex : Integer; AValue : String); 
+Procedure TBatchReportTypeoutputsItem.Setformat(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fformat=AValue) then exit;
@@ -667,7 +667,7 @@ end;
 
 
 
-Procedure TBatchReportTypeoutputsItem.Set_type(AIndex : Integer; AValue : String); 
+Procedure TBatchReportTypeoutputsItem.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -722,7 +722,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBatchReport.Setid(AIndex : Integer; AValue : String); 
+Procedure TBatchReport.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -732,7 +732,7 @@ end;
 
 
 
-Procedure TBatchReport.Setkind(AIndex : Integer; AValue : String); 
+Procedure TBatchReport.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -752,7 +752,7 @@ end;
 
 
 
-Procedure TBatchReport.SetreportId(AIndex : Integer; AValue : String); 
+Procedure TBatchReport.SetreportId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FreportId=AValue) then exit;
@@ -802,7 +802,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TBatchReportDefinition.Setid(AIndex : Integer; AValue : String); 
+Procedure TBatchReportDefinition.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -812,7 +812,7 @@ end;
 
 
 
-Procedure TBatchReportDefinition.Setkind(AIndex : Integer; AValue : String); 
+Procedure TBatchReportDefinition.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -822,7 +822,7 @@ end;
 
 
 
-Procedure TBatchReportDefinition.Setname(AIndex : Integer; AValue : String); 
+Procedure TBatchReportDefinition.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -832,7 +832,7 @@ end;
 
 
 
-Procedure TBatchReportDefinition.Setstatus(AIndex : Integer; AValue : String); 
+Procedure TBatchReportDefinition.Setstatus(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fstatus=AValue) then exit;
@@ -842,7 +842,7 @@ end;
 
 
 
-Procedure TBatchReportDefinition.Set_type(AIndex : Integer; AValue : String); 
+Procedure TBatchReportDefinition.Set_type(AIndex : Integer; const AValue : String); 
 
 begin
   If (F_type=AValue) then exit;
@@ -880,7 +880,7 @@ end;
 
 
 
-Procedure TBatchReportDefinitionList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TBatchReportDefinitionList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -920,7 +920,7 @@ end;
 
 
 
-Procedure TBatchReportList.Setkind(AIndex : Integer; AValue : String); 
+Procedure TBatchReportList.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -950,7 +950,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupTypecontentDetails.SetitemCount(AIndex : Integer; AValue : String); 
+Procedure TGroupTypecontentDetails.SetitemCount(AIndex : Integer; const AValue : String); 
 
 begin
   If (FitemCount=AValue) then exit;
@@ -960,7 +960,7 @@ end;
 
 
 
-Procedure TGroupTypecontentDetails.SetitemType(AIndex : Integer; AValue : String); 
+Procedure TGroupTypecontentDetails.SetitemType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FitemType=AValue) then exit;
@@ -987,7 +987,7 @@ end;
 
 
 
-Procedure TGroupTypesnippet.Settitle(AIndex : Integer; AValue : String); 
+Procedure TGroupTypesnippet.Settitle(AIndex : Integer; const AValue : String); 
 
 begin
   If (Ftitle=AValue) then exit;
@@ -1014,7 +1014,7 @@ end;
 
 
 
-Procedure TGroup.Setetag(AIndex : Integer; AValue : String); 
+Procedure TGroup.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1024,7 +1024,7 @@ end;
 
 
 
-Procedure TGroup.Setid(AIndex : Integer; AValue : String); 
+Procedure TGroup.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1034,7 +1034,7 @@ end;
 
 
 
-Procedure TGroup.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroup.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1061,7 +1061,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupItemTyperesource.Setid(AIndex : Integer; AValue : String); 
+Procedure TGroupItemTyperesource.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1071,7 +1071,7 @@ end;
 
 
 
-Procedure TGroupItemTyperesource.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupItemTyperesource.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1088,7 +1088,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupItem.Setetag(AIndex : Integer; AValue : String); 
+Procedure TGroupItem.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1098,7 +1098,7 @@ end;
 
 
 
-Procedure TGroupItem.SetgroupId(AIndex : Integer; AValue : String); 
+Procedure TGroupItem.SetgroupId(AIndex : Integer; const AValue : String); 
 
 begin
   If (FgroupId=AValue) then exit;
@@ -1108,7 +1108,7 @@ end;
 
 
 
-Procedure TGroupItem.Setid(AIndex : Integer; AValue : String); 
+Procedure TGroupItem.Setid(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fid=AValue) then exit;
@@ -1118,7 +1118,7 @@ end;
 
 
 
-Procedure TGroupItem.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupItem.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1145,7 +1145,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupItemListResponse.Setetag(AIndex : Integer; AValue : String); 
+Procedure TGroupItemListResponse.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1165,7 +1165,7 @@ end;
 
 
 
-Procedure TGroupItemListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupItemListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1195,7 +1195,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TGroupListResponse.Setetag(AIndex : Integer; AValue : String); 
+Procedure TGroupListResponse.Setetag(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fetag=AValue) then exit;
@@ -1215,7 +1215,7 @@ end;
 
 
 
-Procedure TGroupListResponse.Setkind(AIndex : Integer; AValue : String); 
+Procedure TGroupListResponse.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;
@@ -1245,7 +1245,7 @@ end;
   --------------------------------------------------------------------}
 
 
-Procedure TResultTableTypecolumnHeadersItem.SetcolumnType(AIndex : Integer; AValue : String); 
+Procedure TResultTableTypecolumnHeadersItem.SetcolumnType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FcolumnType=AValue) then exit;
@@ -1255,7 +1255,7 @@ end;
 
 
 
-Procedure TResultTableTypecolumnHeadersItem.SetdataType(AIndex : Integer; AValue : String); 
+Procedure TResultTableTypecolumnHeadersItem.SetdataType(AIndex : Integer; const AValue : String); 
 
 begin
   If (FdataType=AValue) then exit;
@@ -1265,7 +1265,7 @@ end;
 
 
 
-Procedure TResultTableTypecolumnHeadersItem.Setname(AIndex : Integer; AValue : String); 
+Procedure TResultTableTypecolumnHeadersItem.Setname(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fname=AValue) then exit;
@@ -1292,7 +1292,7 @@ end;
 
 
 
-Procedure TResultTable.Setkind(AIndex : Integer; AValue : String); 
+Procedure TResultTable.Setkind(AIndex : Integer; const AValue : String); 
 
 begin
   If (Fkind=AValue) then exit;