variable name refactoring.

src/core.utils/UCoreUtils.pas

@@ -222,7 +222,7 @@ begin
         // With defined password
         if APayloadEncryptionPassword = '' then
         begin
-          AErrorMessage := 'Payload Encryption Password Cannot be Empty with the Chosen Option : "Encrypt With Password."';
+          AErrorMessage := 'Payload Encryption Password Cannot Be Empty With The Chosen Option : "Encrypt With Password."';
           Exit(False);
         end;
         AEncodedPayloadBytes := TAESComp.EVP_Encrypt_AES256(
@@ -249,7 +249,7 @@ begin
       if Length(AEncodedPayloadBytes) > CT_MaxPayloadSize then
       begin
         LValid := False;
-        AErrorMessage := Format('Payload Size is %d Which is Bigger Than %d', [Length(AEncodedPayloadBytes), CT_MaxPayloadSize]);
+        AErrorMessage := Format('Payload Size Is %d Which Is Bigger Than %d', [Length(AEncodedPayloadBytes), CT_MaxPayloadSize]);
       end;
     Result := LValid;
   end;
@@ -366,7 +366,7 @@ begin
 
       if LCurrentAccount.account = ADestinationAccount.account then
       begin
-        AErrorMessage := Format('Sender "%s" and Destination "%s" Accounts are the Same', [LCurrentAccount.AccountString, ADestinationAccount.AccountString]);
+        AErrorMessage := Format('Sender "%s" And Destination "%s" Accounts Are The Same', [LCurrentAccount.AccountString, ADestinationAccount.AccountString]);
         Exit(False);
       end;
 
@@ -411,7 +411,7 @@ begin
             end
             else
             begin
-              AErrorMessage := Format('Insufficient Funds in "%s". %s < (%s + %s = %s)', [LCurrentAccount.AccountString, TAccountComp.FormatMoney(LCurrentAccount.balance), TAccountComp.FormatMoney(AAmount), TAccountComp.FormatMoney(AFee), TAccountComp.FormatMoney(AAmount + AFee)]);
+              AErrorMessage := Format('Insufficient Funds In "%s". %s < (%s + %s = %s)', [LCurrentAccount.AccountString, TAccountComp.FormatMoney(LCurrentAccount.balance), TAccountComp.FormatMoney(AAmount), TAccountComp.FormatMoney(AFee), TAccountComp.FormatMoney(AAmount + AFee)]);
               Exit(False);
             end;
         end
@@ -423,7 +423,7 @@ begin
         LPCOperation := TOpTransaction.CreateTransaction(
           LCurrentAccount.account, LCurrentAccount.n_operation + 1, ADestinationAccount.account, LWalletKey.PrivateKey, LAmount, LFee, LPayloadEncodedBytes);
         try
-          LOperationsTxt := Format('Transaction to "%s"', [ADestinationAccount.AccountString]);
+          LOperationsTxt := Format('Transaction To "%s"', [ADestinationAccount.AccountString]);
 
           if Assigned(LPCOperation) then
           begin
@@ -443,7 +443,7 @@ begin
     end;
     if (LOperationsHashTree.OperationsCount = 0) then
     begin
-      AErrorMessage := 'No Valid Operation to Execute';
+      AErrorMessage := 'No Valid Operation To Execute';
       Exit(False);
     end;
 
@@ -507,7 +507,7 @@ begin
       if (TAccountComp.EqualAccountKeys(LCurrentAccount.accountInfo.accountKey,
         APublicKey)) then
       begin
-        AErrorMessage := 'New Key is Same as Current Key';
+        AErrorMessage := 'New Key Is Same As Current Key';
         Exit(False);
       end;
 
@@ -518,13 +518,13 @@ begin
         if (TAccountComp.IsAccountLocked(LSignerAccount.accountInfo,
           LNode.Bank.BlocksCount)) then
         begin
-          AErrorMessage := Format('Signer Account "%s" is Locked Until Block %u', [LSignerAccount.AccountString, LSignerAccount.accountInfo.locked_until_block]);
+          AErrorMessage := Format('Signer Account "%s"  Is Locked Until Block %u', [LSignerAccount.AccountString, LSignerAccount.accountInfo.locked_until_block]);
           Exit(False);
         end;
         if (not TAccountComp.EqualAccountKeys(
           LSignerAccount.accountInfo.accountKey, LCurrentAccount.accountInfo.accountKey)) then
         begin
-          AErrorMessage := Format('Signer Account %s is Not The Owner Of Account %s', [LSignerAccount.AccountString, LCurrentAccount.AccountString]);
+          AErrorMessage := Format('Signer Account %s Is Not The Owner Of Account %s', [LSignerAccount.AccountString, LCurrentAccount.AccountString]);
           Exit(False);
         end;
       end
@@ -548,9 +548,9 @@ begin
       if not Assigned(LWalletKey.PrivateKey) then
       begin
         if LWalletKey.HasPrivateKey then
-          AErrorMessage := 'Wallet is Password Protected. Please Unlock Before You Proceed.'
+          AErrorMessage := 'Wallet Is Password Protected. Please Unlock Before You Proceed.'
         else
-          AErrorMessage := Format('Only Public Key of Account %s Was Found in Wallet. You Cannot Operate This Account', [LCurrentAccount.AccountString]);
+          AErrorMessage := Format('Only Public Key of Account %s Was Found In Wallet. You Cannot Operate This Account', [LCurrentAccount.AccountString]);
         Exit(False);
       end;
 
@@ -582,7 +582,7 @@ begin
           1, LCurrentAccount.account, LWalletKey.PrivateKey, APublicKey, LFee, LPayloadEncodedBytes);
 
       try
-        LOperationsTxt := Format('Change Key to "%s"', [TAccountComp.GetECInfoTxt(APublicKey.EC_OpenSSL_NID)]);
+        LOperationsTxt := Format('Change Key To "%s"', [TAccountComp.GetECInfoTxt(APublicKey.EC_OpenSSL_NID)]);
         if Assigned(LPCOperation) then
         begin
           LOperationsHashTree.AddOperationToHashTree(LPCOperation);
@@ -659,13 +659,13 @@ begin
 
       if TAccountComp.IsAccountForSale(LCurrentAccount.accountInfo) then
       begin
-        AErrorMessage := Format('Account "%s" is Already Enlisted For Sale', [LCurrentAccount.AccountString]);
+        AErrorMessage := Format('Account "%s" Is Already Enlisted For Sale', [LCurrentAccount.AccountString]);
         Exit(False);
       end;
 
       if (ASellerAccount.account = LCurrentAccount.account) then
       begin
-        AErrorMessage := 'Seller Account Cannot be Same as Account to be Sold.';
+        AErrorMessage := 'Seller Account Cannot Be Same As Account To Be Sold.';
         Exit(False);
       end;
 
@@ -681,7 +681,7 @@ begin
         if TAccountComp.EqualAccountKeys(APublicKey,
           LCurrentAccount.accountInfo.accountKey) then
         begin
-          AErrorMessage := 'You Cannot Sell to an Account That You Want to Enlist For Sale.';
+          AErrorMessage := 'You Cannot Sell To An Account That You Want To Enlist For Sale.';
           Exit(False);
         end;
 
@@ -709,9 +709,9 @@ begin
       if not Assigned(LWalletKey.PrivateKey) then
       begin
         if LWalletKey.HasPrivateKey then
-          AErrorMessage := 'Wallet is Password Protected. Please Unlock Before You Proceed.'
+          AErrorMessage := 'Wallet Is Password Protected. Please Unlock Before You Proceed.'
         else
-          AErrorMessage := Format('Only Public Key of Account %s Was Found in Wallet. You Cannot Operate This Account', [LCurrentAccount.AccountString]);
+          AErrorMessage := Format('Only Public Key Of Account %s Was Found In Wallet. You Cannot Operate This Account', [LCurrentAccount.AccountString]);
         Exit(False);
       end;
 
@@ -740,7 +740,7 @@ begin
       end;
 
       try
-        LOperationsTxt := Format('Enlist Account For Sale at a Price of "%s" PASC', [TAccountComp.FormatMoney(ASalePrice)]);
+        LOperationsTxt := Format('Enlist Account For Sale At a Price Of "%s" PASC', [TAccountComp.FormatMoney(ASalePrice)]);
         if Assigned(LPCOperation) then
         begin
           LOperationsHashTree.AddOperationToHashTree(LPCOperation);

src/gui/wizards/operations/UWIZChangeKey_EnterKey.pas

@@ -84,26 +84,26 @@ end;
 
 function TWIZChangeKey_EnterKey.Validate(out message: ansistring): boolean;
 var
-  tempAccountKey: TAccountKey;
-  i: integer;
+  LTempAccountKey: TAccountKey;
+  LIdx: integer;
 begin
   Result := True;
   if not TAccountComp.AccountKeyFromImport(Trim(mmoNewPrivateKey.Lines.Text),
-    tempAccountKey, message) then
+    LTempAccountKey, message) then
   begin
     Result := False;
     Exit;
   end;
-  for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
-    if TAccountComp.EqualAccountKeys(Model.Account.SelectedAccounts[i].accountInfo.accountKey,
-      tempAccountKey) then
+  for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+    if TAccountComp.EqualAccountKeys(Model.Account.SelectedAccounts[LIdx].accountInfo.accountKey,
+      LTempAccountKey) then
     begin
       Result := False;
-      message := 'New key is same as current key';
+      message := 'New Key Is Same As Current Key';
       Exit;
     end;
 
-  Model.TransferAccount.AccountKey := tempAccountKey;
+  Model.TransferAccount.AccountKey := LTempAccountKey;
 end;
 
 end.

src/gui/wizards/operations/UWIZChangeKey_SelectKey.pas

@@ -53,8 +53,8 @@ uses
 
 procedure TWIZChangeKey_SelectKey.cbNewPrivateKeyChange(Sender: TObject);
 var
-  i: integer;
-  wk: TWalletKey;
+  LIdx: integer;
+  LWalletKey: TWalletKey;
 begin
   if cbNewPrivateKey.ItemIndex < 1 then
   begin
@@ -64,19 +64,19 @@ begin
   else
   begin
     lblKeyName.Font.Color := clGreen;
-    i := PtrInt(cbNewPrivateKey.Items.Objects[cbNewPrivateKey.ItemIndex]);
-    wk := TWallet.Keys.Key[i];
+    LIdx := PtrInt(cbNewPrivateKey.Items.Objects[cbNewPrivateKey.ItemIndex]);
+    LWalletKey := TWallet.Keys.Key[LIdx];
     lblKeyName.Caption := Format('%s ',
-      [IIF(wk.Name = '', TCrypto.ToHexaString(
-      TAccountComp.AccountKey2RawString(wk.AccountKey)), wk.Name)]);
+      [IIF(LWalletKey.Name = '', TCrypto.ToHexaString(
+      TAccountComp.AccountKey2RawString(LWalletKey.AccountKey)), LWalletKey.Name)]);
   end;
 end;
 
 procedure TWIZChangeKey_SelectKey.UpdateWalletKeys();
 var
-  i: integer;
-  wk: TWalletKey;
-  s: string;
+  LIdx: integer;
+  LWalletKey: TWalletKey;
+  LBuilder: string;
 begin
   cbNewPrivateKey.items.BeginUpdate;
   try
@@ -84,13 +84,13 @@ begin
     cbNewPrivateKey.Items.Add('Select Private Key');
     if not Assigned(TWallet.Keys) then
       Exit;
-    for i := 0 to TWallet.Keys.Count - 1 do
+    for LIdx := 0 to TWallet.Keys.Count - 1 do
     begin
-      wk := TWallet.Keys.Key[i];
-      s := IIF(wk.Name = '', TCrypto.ToHexaString(TAccountComp.AccountKey2RawString(wk.AccountKey)), wk.Name);
-      if not Assigned(wk.PrivateKey) then
-        s := s + '(*)';
-      cbNewPrivateKey.Items.AddObject(s, TObject(i));
+      LWalletKey := TWallet.Keys.Key[LIdx];
+      LBuilder := IIF(LWalletKey.Name = '', TCrypto.ToHexaString(TAccountComp.AccountKey2RawString(LWalletKey.AccountKey)), LWalletKey.Name);
+      if not Assigned(LWalletKey.PrivateKey) then
+        LBuilder := LBuilder + '(*)';
+      cbNewPrivateKey.Items.AddObject(LBuilder, TObject(LIdx));
     end;
     cbNewPrivateKey.Sorted := True;
   finally
@@ -140,25 +140,25 @@ end;
 
 function TWIZChangeKey_SelectKey.Validate(out message: ansistring): boolean;
 var
-  i: integer;
-  tempAccountKey: TAccountKey;
+  LIdx: integer;
+  LAccountKey: TAccountKey;
 begin
   Result := True;
   if cbNewPrivateKey.ItemIndex < 1 then
   begin
-    message := 'A key must be selected';
+    message := 'A Key Must Be Selected';
     Result := False;
     Exit;
   end;
 
-  tempAccountKey := TWallet.Keys.Key[PtrInt(cbNewPrivateKey.Items.Objects[cbNewPrivateKey.ItemIndex])].AccountKey;
+  LAccountKey := TWallet.Keys.Key[PtrInt(cbNewPrivateKey.Items.Objects[cbNewPrivateKey.ItemIndex])].AccountKey;
 
-  for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
-    if TAccountComp.EqualAccountKeys(Model.Account.SelectedAccounts[i].accountInfo.accountKey,
-      tempAccountKey) then
+  for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+    if TAccountComp.EqualAccountKeys(Model.Account.SelectedAccounts[LIdx].accountInfo.accountKey,
+      LAccountKey) then
     begin
       Result := False;
-      message := 'New key is same as current key';
+      message := 'New Key Is Same As Current Key';
       Exit;
     end;
 

src/gui/wizards/operations/UWIZEnlistAccountForSale_EnterLockingBlock.pas

@@ -45,18 +45,18 @@ end;
 
 function TWIZEnlistAccountForSale_EnterLockingBlock.Validate(out message: ansistring): boolean;
 var
-  LockedUntilBlock: cardinal;
+  LLockedUntilBlock: cardinal;
 begin
   Result := True;
 
-  LockedUntilBlock := StrToIntDef(edtBlockLock.Text, 0);
-  if LockedUntilBlock = 0 then
+  LLockedUntilBlock := StrToIntDef(edtBlockLock.Text, 0);
+  if LLockedUntilBlock = 0 then
   begin
-    message := 'Insert locking block';
+    message := 'You Didn''t Insert a Locking Block.';
     Result := False;
-    exit;
+    Exit;
   end;
-  Model.EnlistAccountForSale.LockedUntilBlock := LockedUntilBlock;
+  Model.EnlistAccountForSale.LockedUntilBlock := LLockedUntilBlock;
 
 end;
 

src/gui/wizards/operations/UWIZEnlistAccountForSale_EnterPublicKey.pas

@@ -47,29 +47,29 @@ end;
 
 procedure TWIZEnlistAccountForSale_EnterPublicKey.OnNext;
 begin
-   UpdatePath(ptInject, [TWIZEnlistAccountForSale_EnterLockingBlock]);
+  UpdatePath(ptInject, [TWIZEnlistAccountForSale_EnterLockingBlock]);
 end;
 
 function TWIZEnlistAccountForSale_EnterPublicKey.Validate(out message: ansistring): boolean;
 var
-  i: integer;
+  LIdx: integer;
 begin
   Result := True;
 
   if not TAccountComp.AccountKeyFromImport(Trim(mmoPublicKey.Lines.Text),
     Model.EnlistAccountForSale.NewOwnerPublicKey, message) then
   begin
-    message := 'Public key: ' + message;
+    message := Format('Error Importing Public Key, Specific Error: %s', [message]);
     Result := False;
-    exit;
+    Exit;
 
   end;
 
-  for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+  for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
     if TAccountComp.EqualAccountKeys(Model.EnlistAccountForSale.NewOwnerPublicKey,
-      Model.Account.SelectedAccounts[i].accountInfo.accountKey) then
+      Model.Account.SelectedAccounts[LIdx].accountInfo.accountKey) then
     begin
-      message := 'New public key for private sale is the same public key';
+      message := 'You Cannot Sell To An Account That You Want To Enlist For Sale.';
       Result := False;
       Exit;
     end;

src/gui/wizards/operations/UWIZEnlistAccountForSale_EnterSaleAmount.pas

@@ -33,7 +33,6 @@ type
     procedure UpdateUI();
 
 
-
   public
     procedure OnPresent; override;
     procedure OnNext; override;
@@ -68,11 +67,8 @@ begin
 end;
 
 procedure TWIZEnlistAccountForSale_EnterSaleAmount.OnNext;
-var
-  amount: int64;
 begin
   Model.Payload.HasPayload := chkAttachPayload.Checked;
-  TAccountComp.TxtToMoney(edtAmt.Text, Model.EnlistAccountForSale.SalePrice);
 
   if chkChooseFee.Checked then
     UpdatePath(ptInject, [TWIZOperationFee_Custom])
@@ -94,24 +90,26 @@ end;
 
 function TWIZEnlistAccountForSale_EnterSaleAmount.Validate(out message: ansistring): boolean;
 var
-  amount: int64;
+  LSaleAmount: int64;
 begin
   Result := True;
 
-  if not TAccountComp.TxtToMoney(edtAmt.Text, amount) then
+  if not TAccountComp.TxtToMoney(edtAmt.Text, LSaleAmount) then
   begin
-    message := 'Invalid amount (' + edtAmt.Text + ')';
+    message := Format('Invalid Amount "%s"', [edtAmt.Text]);
     Result := False;
     Exit;
   end;
 
-  if amount < 1 then
+  if LSaleAmount < 1 then
   begin
-    message := 'Invalid amount (' + edtAmt.Text + '), you must sell for an amount greater than zero';
+    message := 'You Must Sell For An Amount Greater Than Zero.';
     Result := False;
     Exit;
   end;
 
+  Model.EnlistAccountForSale.SalePrice := LSaleAmount;
+
 end;
 
 end.

src/gui/wizards/operations/UWIZEnlistAccountForSale_EnterSeller.pas

@@ -33,6 +33,7 @@ type
     procedure btnSearchClick(Sender: TObject);
     procedure edtSellerAccChange(Sender: TObject);
     procedure UpdateUI();
+
   public
     procedure OnPresent; override;
     procedure OnNext; override;
@@ -56,19 +57,21 @@ end;
 
 procedure TWIZEnlistAccountForSale_EnterSeller.UpdateUI();
 var
-  LAcc: TAccount;
-  LAccNo: cardinal;
+  LAccount: TAccount;
+  LAccountNumber: cardinal;
 begin
-  if TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, LAccNo) then begin
-    if (LAccNo < 0) or (LAccNo >= TNode.Node.Bank.AccountsCount) then begin
+  if TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, LAccountNumber) then
+    if (LAccountNumber < 0) or (LAccountNumber >= TNode.Node.Bank.AccountsCount) then
+    begin
       lblSellerAccount.Caption := '';
       lblSellerAccount.Visible := False;
-    end else begin
-      LAcc := TNode.Node.Operations.SafeBoxTransaction.account(LAccNo);
-      lblSellerAccount.Caption := LAcc.DisplayString;
+    end
+    else
+    begin
+      LAccount := TNode.Node.Operations.SafeBoxTransaction.account(LAccountNumber);
+      lblSellerAccount.Caption := LAccount.DisplayString;
       lblSellerAccount.Visible := True;
     end;
-  end;
 end;
 
 procedure TWIZEnlistAccountForSale_EnterSeller.OnPresent;
@@ -79,66 +82,65 @@ end;
 
 procedure TWIZEnlistAccountForSale_EnterSeller.btnSearchClick(Sender: TObject);
 var
-  F: TFRMAccountSelect;
-  c: cardinal;
+  LFRMAccountSelect: TFRMAccountSelect;
+  LAccountNumber: cardinal;
 begin
-  F := TFRMAccountSelect.Create(Self);
-  F.Position := poMainFormCenter;
+  LFRMAccountSelect := TFRMAccountSelect.Create(Self);
+  LFRMAccountSelect.Position := poMainFormCenter;
   try
-    F.Node := TNode.Node;
-    F.WalletKeys := TWallet.Keys;
-    F.Filters := edtSellerAcc.Tag;
-    if TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, c) then
-      F.DefaultAccount := c;
-    F.AllowSelect := True;
-    if F.ShowModal = mrOk then
-      edtSellerAcc.Text := TAccountComp.AccountNumberToAccountTxtNumber(F.GetSelected);
+    LFRMAccountSelect.Node := TNode.Node;
+    LFRMAccountSelect.WalletKeys := TWallet.Keys;
+    LFRMAccountSelect.Filters := edtSellerAcc.Tag;
+    if TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, LAccountNumber) then
+      LFRMAccountSelect.DefaultAccount := LAccountNumber;
+    LFRMAccountSelect.AllowSelect := True;
+    if LFRMAccountSelect.ShowModal = mrOk then
+      edtSellerAcc.Text := TAccountComp.AccountNumberToAccountTxtNumber(LFRMAccountSelect.GetSelected);
   finally
-    F.Free;
+    LFRMAccountSelect.Free;
   end;
 end;
 
 
 procedure TWIZEnlistAccountForSale_EnterSeller.OnNext;
 var
-  c: cardinal;
-  aa: TAccount;
+  LAccountNumber: cardinal;
+  LAccount: TAccount;
 begin
-  TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, c);
-  Model.SendPASC.DestinationAccount := TNode.Node.Operations.SafeBoxTransaction.account(c);
+  TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, LAccountNumber);
+  Model.SendPASC.DestinationAccount := TNode.Node.Operations.SafeBoxTransaction.account(LAccountNumber);
 end;
 
 function TWIZEnlistAccountForSale_EnterSeller.Validate(out message: ansistring): boolean;
 var
-  i: integer;
-  c: cardinal;
+  LIdx: integer;
+  LAccountNumber: cardinal;
 begin
   Result := True;
 
-  if not (TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, c)) then
+  if not (TAccountComp.AccountTxtNumberToAccountNumber(edtSellerAcc.Text, LAccountNumber)) then
   begin
-    message := 'Invalid seller account (' + edtSellerAcc.Text + ')';
+    message := Format('Invalid Seller Account "%s"', [edtSellerAcc.Text]);
     Result := False;
     Exit;
   end;
 
-  if (c < 0) or (c >= TNode.Node.Bank.AccountsCount) then
+  if (LAccountNumber < 0) or (LAccountNumber >= TNode.Node.Bank.AccountsCount) then
   begin
-    message := 'Invalid seller account (' +
-      TAccountComp.AccountNumberToAccountTxtNumber(c) + ')';
+    message := Format('Invalid Seller Account "%s"', [TAccountComp.AccountNumberToAccountTxtNumber(LAccountNumber)]);
     Result := False;
     Exit;
   end;
 
-  for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
-    if (Model.Account.SelectedAccounts[i].Account = c) then
+  for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+    if (Model.Account.SelectedAccounts[LIdx].Account = LAccountNumber) then
     begin
-      message := 'Seller account cannot be same account';
+      message := 'Seller Account Cannot Be Same As Account To Be Sold.';
       Result := False;
       Exit;
     end;
 
-  Model.EnlistAccountForSale.SellerAccount := TNode.Node.Operations.SafeBoxTransaction.account(c);
+  Model.EnlistAccountForSale.SellerAccount := TNode.Node.Operations.SafeBoxTransaction.account(LAccountNumber);
 
 end;
 

src/gui/wizards/operations/UWIZOperationConfirmation.pas

@@ -66,7 +66,7 @@ type
 
 procedure TWIZOperationConfirmation.OnPresent;
 var
-  Data: TOperationConfirmationDataSource;
+  LData: TOperationConfirmationDataSource;
 begin
   FConfirmationGrid := TVisualGrid.Create(Self);
   FConfirmationGrid.CanSearch := False;
@@ -120,9 +120,9 @@ begin
     DataAlignment := taRightJustify;
   end;
 
-  Data := TOperationConfirmationDataSource.Create(FConfirmationGrid);
-  Data.Model := Model;
-  FConfirmationGrid.DataSource := Data;
+  LData := TOperationConfirmationDataSource.Create(FConfirmationGrid);
+  LData.Model := Model;
+  FConfirmationGrid.DataSource := LData;
   paGrid.AddControlDockCenter(FConfirmationGrid);
   lblSgnAcc.Caption := TAccountComp.AccountNumberToAccountTxtNumber(Model.Signer.SignerAccount.account);
   if not (Model.ExecuteOperationType = omtEnlistAccountForSale) then
@@ -141,10 +141,10 @@ end;
 
 procedure TWIZOperationConfirmation.OnNext;
 var
-  locked: boolean;
+  LLocked: boolean;
 begin
-  locked := (not TWallet.Keys.HasPassword) or (not TWallet.Keys.IsValidPassword);
-  if locked then
+  LLocked := (not TWallet.Keys.HasPassword) or (not TWallet.Keys.IsValidPassword);
+  if LLocked then
     TUserInterface.UnlockWallet(Self);
 end;
 
@@ -231,10 +231,10 @@ end;
 
 procedure TOperationConfirmationDataSource.FetchAll(const AContainer: TList<TAccount>);
 var
-  i: integer;
+  LIdx: integer;
 begin
-  for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
-    AContainer.Add(Model.Account.SelectedAccounts[i]);
+  for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+    AContainer.Add(Model.Account.SelectedAccounts[LIdx]);
 end;
 
 

src/gui/wizards/operations/UWIZOperationFee_Custom.pas

@@ -36,8 +36,6 @@ type
     procedure fseFeeChange(Sender: TObject);
 
 
-
-
   public
     procedure OnPresent; override;
     procedure OnNext; override;
@@ -56,10 +54,10 @@ uses
 
 procedure TWIZOperationFee_Custom.UpdateUI();
 var
-  opfee: int64;
+  LOperationFee: int64;
 begin
-  TAccountComp.TxtToMoney(Trim(fseFee.ValueToStr(fseFee.Value)), opfee);
-  lblTotalFeeValue.Caption := Format('%s PASC', [TAccountComp.FormatMoney(opfee * Length(Model.Account.SelectedAccounts))]);
+  TAccountComp.TxtToMoney(Trim(fseFee.ValueToStr(fseFee.Value)), LOperationFee);
+  lblTotalFeeValue.Caption := Format('%s PASC', [TAccountComp.FormatMoney(LOperationFee * Length(Model.Account.SelectedAccounts))]);
 end;
 
 procedure TWIZOperationFee_Custom.fseFeeChange(Sender: TObject);
@@ -88,25 +86,24 @@ end;
 
 function TWIZOperationFee_Custom.Validate(out message: ansistring): boolean;
 var
-  opfee: int64;
-  i: integer;
-  acc: TAccount;
+  LOperationFee: int64;
+  LAccount: TAccount;
 begin
   Result := True;
 
-  if not TAccountComp.TxtToMoney(Trim(fseFee.ValueToStr(fseFee.Value)), opfee) then
+  if not TAccountComp.TxtToMoney(Trim(fseFee.ValueToStr(fseFee.Value)), LOperationFee) then
   begin
-    message := 'Invalid fee value "' + fseFee.ValueToStr(fseFee.Value) + '"';
+    message := Format('Invalid Fee Value "%s"', [fseFee.ValueToStr(fseFee.Value)]);
     Result := False;
     Exit;
   end;
 
-  Model.Fee.SingleOperationFee := opfee;
+  Model.Fee.SingleOperationFee := LOperationFee;
 
   if Length(Model.Account.SelectedAccounts) > 1 then
     if not (Model.Fee.SingleOperationFee > 0) then
     begin
-      message := 'zero fee only allowed for single operations.';
+      message := 'Zero Fee Is Only Allowed For Single Operations.';
       Result := False;
       Exit;
     end;
@@ -117,8 +114,9 @@ begin
 
   if Length(Model.Signer.SignerCandidates) < 1 then
   begin
+    message := 'No Valid Signer Account Was Found With The Current Requirements.';
     Result := False;
-    message := 'no valid signer account was found with the current requirements.';
+    Exit;
   end;
 
 end;

src/gui/wizards/operations/UWIZOperationPayload_Content.pas

@@ -67,7 +67,7 @@ begin
   Result := True;
   if Length(mmoPayload.Lines.Text) > CT_MaxPayloadSize then
   begin
-    message := 'Payload is Larger than Max Payload Size "255"';
+    message := Format('Payload Size Is Larger Than Max Payload Size Which Is "%u"', [CT_MaxPayloadSize]);
     Result := False;
     Exit;
   end;

src/gui/wizards/operations/UWIZOperationPayload_Encryption.pas

@@ -90,7 +90,7 @@ begin
   if (not rbNotEncrypted.Checked) and (not rbEncryptedWithSender.Checked) and
     (not rbEncryptedWithRecipient.Checked) and (not rbEncryptedWithPassword.Checked) then
   begin
-    message := 'you must select an encryption option for payload';
+    message := 'You Must Select An Encryption Option For Payload';
     Result := False;
     Exit;
   end;

src/gui/wizards/operations/UWIZOperationPayload_Password.pas

@@ -68,7 +68,7 @@ begin
   Result := True;
   if Length(Trim(edtPassword.Text)) = 0 then
   begin
-    message := 'password cannot be empty';
+    message := 'Password Cannot Be Empty';
     Result := False;
     Exit;
   end;

src/gui/wizards/operations/UWIZOperationSelected.pas

@@ -59,10 +59,10 @@ type
 
 procedure TWIZOperationSelected.OnPresent;
 var
-  Data: TOperationSelectedDataSource;
-  i: integer;
-  acc: TAccount;
-  totalBalance: int64;
+  LData: TOperationSelectedDataSource;
+  LIdx: integer;
+  LAccount: TAccount;
+  LTotalBalance: int64;
 begin
   FSelectedAccountsGrid := TVisualGrid.Create(Self);
   FSelectedAccountsGrid.CanSearch := False;
@@ -93,37 +93,40 @@ begin
     Renderer := TCellRenderers.PASC;
     Filters := SORTABLE_NUMERIC_FILTER;
   end;
-  Data := TOperationSelectedDataSource.Create(FSelectedAccountsGrid);
-  Data.Model := Model;
-  FSelectedAccountsGrid.DataSource := Data;
+  LData := TOperationSelectedDataSource.Create(FSelectedAccountsGrid);
+  LData.Model := Model;
+  FSelectedAccountsGrid.DataSource := LData;
   paGrid.AddControlDockCenter(FSelectedAccountsGrid);
 
-  totalBalance := 0;
-  for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+  LTotalBalance := 0;
+  for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
   begin
-    acc := Model.Account.SelectedAccounts[i];
-    totalBalance := totalBalance + acc.balance;
+    LAccount := Model.Account.SelectedAccounts[LIdx];
+    LTotalBalance := LTotalBalance + LAccount.balance;
   end;
 
   lblTotalBalanceValue.Caption :=
-    Format('%s PASC', [TAccountComp.FormatMoney(totalBalance)]);
+    Format('%s PASC', [TAccountComp.FormatMoney(LTotalBalance)]);
 end;
 
 function TWIZOperationSelected.Validate(out message: ansistring): boolean;
 var
-  i: integer;
+  LIdx: integer;
+  LAccount: TAccount;
 begin
   Result := True;
 
   if Model.ExecuteOperationType = omtEnlistAccountForSale then
-    for i := Low(model.Account.SelectedAccounts) to High(model.Account.SelectedAccounts) do
-      if TAccountComp.IsAccountForSale(model.Account.SelectedAccounts[i].accountInfo) then
+    for LIdx := Low(model.Account.SelectedAccounts) to High(model.Account.SelectedAccounts) do
+    begin
+      LAccount := model.Account.SelectedAccounts[LIdx];
+      if TAccountComp.IsAccountForSale(LAccount.accountInfo) then
       begin
         Result := False;
-        message := 'Account ' + TAccountComp.AccountNumberToAccountTxtNumber(
-          model.Account.SelectedAccounts[i].account) + ' is already enlisted for sale';
+        message := Format('Account "%s" Is Already Enlisted For Sale', [LAccount.AccountString]);
         Exit;
       end;
+    end;
 
   // get signer accounts from selected accounts
   Model.Signer.SignerCandidates := TCoreTool.GetSignerCandidates(Length(Model.Account.SelectedAccounts), Model.Fee.SingleOperationFee, Model.Account.SelectedAccounts);
@@ -131,7 +134,7 @@ begin
   if Length(Model.Signer.SignerCandidates) < 1 then
   begin
     Result := False;
-    message := 'no valid signer account was found.';
+    message := 'No Valid Signer Account Was Found.';
   end;
 
 end;
@@ -140,10 +143,10 @@ end;
 
 procedure TOperationSelectedDataSource.FetchAll(const AContainer: TList<TAccount>);
 var
-  i: integer;
+  LIdx: integer;
 begin
-  for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
-    AContainer.Add(Model.Account.SelectedAccounts[i]);
+  for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+    AContainer.Add(Model.Account.SelectedAccounts[LIdx]);
 
 end;
 

src/gui/wizards/operations/UWIZOperationSigner_Select.pas

@@ -67,25 +67,25 @@ end;
 
 procedure TWIZOperationSigner_Select.OnPresent;
 
-  function GetAccNoWithChecksum(AAccountNumber: cardinal): string;
+  function GetAccountNumberWithChecksum(AAccountNumber: cardinal): string;
   begin
     Result := TAccountComp.AccountNumberToAccountTxtNumber(AAccountNumber);
   end;
 
 var
-  acc: TAccount;
-  accNumberwithChecksum: string;
-  i: integer;
+  LAccount: TAccount;
+  LAccountNumberWithChecksum: string;
+  LIdx: integer;
 begin
   cbSignerAccount.Items.BeginUpdate;
   try
     cbSignerAccount.Items.Clear;
     cbSignerAccount.Items.Add('Select Signer Account');
-    for i := Low(Model.Signer.SignerCandidates) to High(Model.Signer.SignerCandidates) do
+    for LIdx := Low(Model.Signer.SignerCandidates) to High(Model.Signer.SignerCandidates) do
     begin
-      acc := Model.Signer.SignerCandidates[i];
-      accNumberwithChecksum := GetAccNoWithChecksum(acc.account);
-      cbSignerAccount.Items.AddObject(accNumberwithChecksum, TObject(i));
+      LAccount := Model.Signer.SignerCandidates[LIdx];
+      LAccountNumberWithChecksum := GetAccountNumberWithChecksum(LAccount.account);
+      cbSignerAccount.Items.AddObject(LAccountNumberWithChecksum, TObject(LIdx));
     end;
   finally
     cbSignerAccount.Items.EndUpdate;
@@ -114,7 +114,7 @@ begin
   Result := True;
   if cbSignerAccount.ItemIndex < 1 then
   begin
-    message := 'A signer account must be selected';
+    message := 'A Signer Account Must Be Selected';
     Result := False;
     Exit;
   end;

src/gui/wizards/operations/UWIZSendPASC_EnterQuantity.pas

@@ -115,33 +115,33 @@ end;
 
 function TWIZSendPASC_EnterQuantity.Validate(out message: ansistring): boolean;
 var
-  amount: int64;
-  i: integer;
-  acc: TAccount;
+  LAmount: int64;
+  LIdx: integer;
+  LAccount: TAccount;
 begin
   Result := True;
   if not chkallfunds.Checked then
   begin
-    if not TAccountComp.TxtToMoney(edtAmt.Text, amount) then
+    if not TAccountComp.TxtToMoney(edtAmt.Text, LAmount) then
     begin
-      message := 'Invalid amount (' + edtAmt.Text + ')';
+      message := Format('Invalid Amount "%s"', [edtAmt.Text]);
       Result := False;
       Exit;
     end;
 
-    if amount < 1 then
+    if LAmount < 1 then
     begin
-      message := 'Invalid amount (' + edtAmt.Text + '), you must send an amount greater than zero';
+      message := 'You Must Send An Amount Greater Than Zero.';
       Result := False;
       Exit;
     end;
 
-    for i := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
+    for LIdx := Low(Model.Account.SelectedAccounts) to High(Model.Account.SelectedAccounts) do
     begin
-      acc := Model.Account.SelectedAccounts[i];
-      if acc.balance < amount then
+      LAccount := Model.Account.SelectedAccounts[LIdx];
+      if LAccount.balance < LAmount then
       begin
-        message := 'Insufficient funds in one or more accounts';
+        message := 'Insufficient Funds In One Or More Accounts.';
         Result := False;
         Exit;
       end;

src/gui/wizards/operations/UWIZSendPASC_EnterRecipient.pas

@@ -18,7 +18,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ExtCtrls, Buttons, UCommon, UCommon.Collections, UWallet,
-  UFRMAccountSelect, UNode, UWizard, UWIZSendPASC, UWIZSendPASC_EnterQuantity, UDataObjects;
+  UFRMAccountSelect, UNode, UWizard, UWIZSendPASC, UWIZSendPASC_EnterQuantity, UCoreUtils, UDataObjects;
 
 type
 
@@ -38,7 +38,6 @@ type
     procedure UpdateUI();
 
 
-
   public
     procedure OnPresent; override;
     procedure OnNext; override;
@@ -62,25 +61,25 @@ end;
 
 procedure TWIZSendPASC_EnterRecipient.UpdateUI();
 var
-  tempAcc: TAccount;
-  c: cardinal;
+  LTempAccount: TAccount;
+  LAccountNumber: cardinal;
 begin
-  if TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, c) then
+  if TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, LAccountNumber) then
   begin
-    if (c < 0) or (c >= TNode.Node.Bank.AccountsCount) then
+    if (LAccountNumber < 0) or (LAccountNumber >= TNode.Node.Bank.AccountsCount) then
     begin
-      lblDestAccNumberValue.Caption := 'unknown';
-      lblDestAccNumberNameValue.Caption := 'unknown';
+      lblDestAccNumberValue.Caption := 'Unknown';
+      lblDestAccNumberNameValue.Caption := 'Unknown';
       Exit;
     end;
-    tempAcc := TNode.Node.Operations.SafeBoxTransaction.account(c);
+    LTempAccount := TNode.Node.Operations.SafeBoxTransaction.account(LAccountNumber);
     lblDestAccNumberValue.Caption := edtDestAcc.Text;
-    lblDestAccNumberNameValue.Caption := tempAcc.Name;
+    lblDestAccNumberNameValue.Caption := LTempAccount.Name;
   end
   else
   begin
-    lblDestAccNumberValue.Caption := 'unknown';
-    lblDestAccNumberNameValue.Caption := 'unknown';
+    lblDestAccNumberValue.Caption := 'Unknown';
+    lblDestAccNumberNameValue.Caption := 'Unknown';
   end;
 
 end;
@@ -93,71 +92,70 @@ end;
 
 procedure TWIZSendPASC_EnterRecipient.btnSearchClick(Sender: TObject);
 var
-  F: TFRMAccountSelect;
-  c: cardinal;
+  LFRMAccountSelect: TFRMAccountSelect;
+  LAccountNumber: cardinal;
 begin
-  F := TFRMAccountSelect.Create(Self);
-  F.Position := poMainFormCenter;
+  LFRMAccountSelect := TFRMAccountSelect.Create(Self);
+  LFRMAccountSelect.Position := poMainFormCenter;
   try
-    F.Node := TNode.Node;
-    F.WalletKeys := TWallet.Keys;
-    F.Filters := edtDestAcc.Tag;
-    if TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, c) then
-      F.DefaultAccount := c;
-    F.AllowSelect := True;
-    if F.ShowModal = mrOk then
-      edtDestAcc.Text := TAccountComp.AccountNumberToAccountTxtNumber(F.GetSelected);
+    LFRMAccountSelect.Node := TNode.Node;
+    LFRMAccountSelect.WalletKeys := TWallet.Keys;
+    LFRMAccountSelect.Filters := edtDestAcc.Tag;
+    if TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, LAccountNumber) then
+      LFRMAccountSelect.DefaultAccount := LAccountNumber;
+    LFRMAccountSelect.AllowSelect := True;
+    if LFRMAccountSelect.ShowModal = mrOk then
+      edtDestAcc.Text := TAccountComp.AccountNumberToAccountTxtNumber(LFRMAccountSelect.GetSelected);
   finally
-    F.Free;
+    LFRMAccountSelect.Free;
   end;
 end;
 
 
 procedure TWIZSendPASC_EnterRecipient.OnNext;
 var
-  c: cardinal;
-  aa: TAccount;
+  LAccountNumber: cardinal;
+  LAccount: TAccount;
 begin
-  TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, c);
-  Model.SendPASC.DestinationAccount := TNode.Node.Operations.SafeBoxTransaction.account(c);
+  TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, LAccountNumber);
+  Model.SendPASC.DestinationAccount := TNode.Node.Operations.SafeBoxTransaction.account(LAccountNumber);
   UpdatePath(ptInject, [TWIZSendPASC_EnterQuantity]);
 
 end;
 
 function TWIZSendPASC_EnterRecipient.Validate(out message: ansistring): boolean;
 
-  function GetAccNoWithChecksum(constref AAccount: TAccount): string;
+  function GetAccountNumberWithChecksum(constref AAccount: TAccount): string;
   begin
-    Result := TAccountComp.AccountNumberToAccountTxtNumber(AAccount.account);
+    Result := AAccount.AccountString;
   end;
 
 var
-  AccountNumbersWithChecksum: TArray<string>;
-  c: cardinal;
+  LAccountNumbersWithChecksum: TArray<string>;
+  LAccountNumber: cardinal;
 begin
   Result := True;
 
-  if not (TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, c)) then
+  if not (TAccountComp.AccountTxtNumberToAccountNumber(edtDestAcc.Text, LAccountNumber)) then
   begin
-    message := 'Invalid destination account (' + edtDestAcc.Text + ')';
+    message := Format('Invalid Destination Account "%s"', [edtDestAcc.Text]);
     Result := False;
     Exit;
   end;
 
-  if (c < 0) or (c >= TNode.Node.Bank.AccountsCount) then
+  if (LAccountNumber < 0) or (LAccountNumber >= TNode.Node.Bank.AccountsCount) then
   begin
-    message := 'Invalid destination account (' +
-      TAccountComp.AccountNumberToAccountTxtNumber(c) + ')';
+    message := Format('Invalid Destination Account "%s"', [TAccountComp.AccountNumberToAccountTxtNumber(LAccountNumber)]);
     Result := False;
     Exit;
   end;
 
-  AccountNumbersWithChecksum :=
-    TListTool<TAccount, string>.Transform(Model.Account.SelectedAccounts, GetAccNoWithCheckSum);
+  LAccountNumbersWithChecksum :=
+    TListTool<TAccount, string>.Transform(Model.Account.SelectedAccounts, GetAccountNumberWithChecksum);
 
-  if TArrayTool<string>.Contains(AccountNumbersWithChecksum, edtDestAcc.Text) then
+  if TArrayTool<string>.Contains(LAccountNumbersWithChecksum, edtDestAcc.Text) then
   begin
-    message := 'Sender and destination account are the same';
+    message := 'Sender And Destination Account Are Same';
     Result := False;
     Exit;
   end;