From 06a8bfbeb2a1669bee4101d23b03f978ee57c365 Mon Sep 17 00:00:00 2001
From: Thulio Bittencourt <bittencourtthulio@gmail.com>
Date: Thu, 6 May 2021 13:53:53 -0300
Subject: [PATCH] =?UTF-8?q?Remo=C3=A7=C3=A3o=20de=20Warnings?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Bind4D.Component.Edit.pas  | 26 +++++++++++++-------------
 src/Bind4D.Component.Image.pas |  4 ----
 src/Bind4D.pas                 |  6 +-----
 3 files changed, 14 insertions(+), 22 deletions(-)

diff --git a/src/Bind4D.Component.Edit.pas b/src/Bind4D.Component.Edit.pas
index 335212b..23177f8 100644
--- a/src/Bind4D.Component.Edit.pas
+++ b/src/Bind4D.Component.Edit.pas
@@ -18,7 +18,7 @@   TBind4DComponentEdit = class(TInterfacedObject, iBind4DComponent)
       FComponent : TEdit;
       FAttributes : iBind4DComponentAttributes;
       function onChangeAttribute : TBind4DComponentEdit;
-      function onExitAttribute : TBind4DComponentEdit;
+      //function onExitAttribute : TBind4DComponentEdit;
       function especialValidate : TBind4DComponentEdit;
       procedure TryValidations;
     public
@@ -294,17 +294,17 @@ function TBind4DComponentEdit.onChangeAttribute : TBind4DComponentEdit;
       end);
 end;
 
-function TBind4DComponentEdit.onExitAttribute: TBind4DComponentEdit;
-begin
-  Result := Self;
-  FComponent.OnExit :=
-  TBind4DUtils
-    .AnonProc2NotifyEvent(
-      FComponent,
-      procedure (Sender : TObject)
-      begin
-        TCommandMaster.New.Execute((Sender as TEdit));
-      end);
-end;
+//function TBind4DComponentEdit.onExitAttribute: TBind4DComponentEdit;
+//begin
+//  Result := Self;
+//  FComponent.OnExit :=
+//  TBind4DUtils
+//    .AnonProc2NotifyEvent(
+//      FComponent,
+//      procedure (Sender : TObject)
+//      begin
+//        TCommandMaster.New.Execute((Sender as TEdit));
+//      end);
+//end;
 
 end.
diff --git a/src/Bind4D.Component.Image.pas b/src/Bind4D.Component.Image.pas
index 0d58567..ae48992 100644
--- a/src/Bind4D.Component.Image.pas
+++ b/src/Bind4D.Component.Image.pas
@@ -94,8 +94,6 @@ function TBind4DComponentImage.ApplyValue: iBind4DComponent;
   Attribute : S3Storage;
   HorseAttribute : HorseStorage;
   AttImage : ImageAttribute;
-  lStream : TStringStream;
-  lImagem : TMemoryStream;
 begin
   Result := Self;
   try
@@ -174,8 +172,6 @@ function TBind4DComponentImage.GetValueString: String;
 var
   Attribute : S3Storage;
   HorseAttribute : HorseStorage;
-  lStream: TMemoryStream;
-  lImagem : TStringStream;
 begin
   try
     if RttiUtils.TryGet<HorseStorage>(FComponent, HorseAttribute) then
diff --git a/src/Bind4D.pas b/src/Bind4D.pas
index 44bb613..76c6349 100644
--- a/src/Bind4D.pas
+++ b/src/Bind4D.pas
@@ -408,7 +408,6 @@ function TBind4D.SetCaptionComponents : iBind4D;
 var
   Attribute : Translation;
   I: Integer;
-  Component : TComponent;
   iBind : iBind4DComponent;
 begin
   Result := Self;
@@ -493,13 +492,10 @@ function TBind4D.SetStyleComponents: iBind4D;
 function TBind4D.SetZipCodeValue: iBind4D;
 var
   Attribute : ComponentZipCode;
-  I: Integer;
-  Component : TComponent;
-  iBind : iBind4DComponent;
   lJson : TJsonObject;
-  a : string;
 begin
   Result := Self;
+  lJson := nil;
   for Attribute in RttiUtils.Get<ComponentZipCode>(FForm) do
   begin
     if (TBind4DComponentFactory.New.Component(Attribute.Component).GetValueString = '') and