added 'search by name' function to remaining classes

Project1.dproj

@@ -157,27 +157,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployClass Name="DependencyModule">
+                <DeployClass Name="ProjectiOSDeviceResourceRules">
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                        <Extensions>.dll;.bpl</Extensions>
-                    </Platform>
                     <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
                     </Platform>
                     <Platform Name="iOSDevice32">
                         <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectOSXResource">
@@ -531,12 +516,27 @@
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
-                <DeployClass Name="ProjectiOSDeviceResourceRules">
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
                     <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
                     </Platform>
                     <Platform Name="iOSDevice32">
                         <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
                     </Platform>
                 </DeployClass>
                 <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>

Project1.dproj.local

@@ -2,34 +2,34 @@
 <BorlandProject>
 	<Transactions>
     <Transaction>2018/08/02 11:30:33.000.203,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
-    <Transaction>2018/08/02 11:33:44.000.784,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormSplash.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
+    <Transaction>2018/08/02 11:33:44.000.784,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormSplash.dfm</Transaction>
-    <Transaction>2018/08/02 11:33:44.000.784,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormSplash.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
+    <Transaction>2018/08/02 11:33:44.000.784,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormSplash.pas</Transaction>
-    <Transaction>2018/08/02 11:34:22.000.896,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
+    <Transaction>2018/08/02 11:34:22.000.896,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
     <Transaction>2018/08/02 11:34:57.000.485,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_Cadastro_Forms\UnitLista.pas</Transaction>
-    <Transaction>2018/08/02 11:35:17.000.765,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitLista.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_Cadastro_Forms\UnitLista.pas</Transaction>
+    <Transaction>2018/08/02 11:35:17.000.765,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_Cadastro_Forms\UnitLista.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitLista.pas</Transaction>
     <Transaction>2018/08/02 11:35:39.000.518,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/02 11:37:42.000.005,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPadrao.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
+    <Transaction>2018/08/02 11:37:42.000.005,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPadrao.pas</Transaction>
-    <Transaction>2018/08/02 11:37:42.000.005,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPadrao.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm</Transaction>
+    <Transaction>2018/08/02 11:37:42.000.005,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPadrao.dfm</Transaction>
     <Transaction>2018/08/02 11:50:57.000.642,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/02 11:51:22.000.511,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormCidade.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
+    <Transaction>2018/08/02 11:51:22.000.511,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormCidade.dfm</Transaction>
-    <Transaction>2018/08/02 11:51:22.000.511,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormCidade.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm</Transaction>
+    <Transaction>2018/08/02 11:51:22.000.511,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormCidade.pas</Transaction>
     <Transaction>2018/08/02 11:54:03.000.448,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
     <Transaction>2018/08/03 07:57:41.000.908,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm</Transaction>
+    <Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.dfm</Transaction>
-    <Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
+    <Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.pas</Transaction>
     <Transaction>2018/08/03 09:19:04.000.339,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.pas</Transaction>
+    <Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.dfm</Transaction>
+    <Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm</Transaction>
     <Transaction>2018/08/03 11:37:12.000.927,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
     <Transaction>2018/08/03 12:44:44.000.083,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
     <Transaction>2018/08/06 10:32:04.000.123,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/06 10:39:43.000.299,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormGrid.dfm</Transaction>
+    <Transaction>2018/08/06 10:39:43.000.299,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormGrid.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/06 10:39:43.000.299,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormGrid.pas</Transaction>
+    <Transaction>2018/08/06 10:39:43.000.299,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormGrid.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm</Transaction>
     <Transaction>2018/08/07 12:32:02.000.009,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
     <Transaction>2018/08/08 10:01:00.000.149,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitSharedVariables.pas</Transaction>
     <Transaction>2018/08/08 10:50:02.000.574,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitSharedVariables.pas=</Transaction>
     <Transaction>2018/08/08 10:52:58.000.982,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
-    <Transaction>2018/08/08 10:53:51.000.544,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitDados.pas</Transaction>
+    <Transaction>2018/08/08 10:53:51.000.544,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitDados.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
     <Transaction>2018/08/08 12:16:26.000.969,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
     <Transaction>2018/08/08 14:58:46.000.344,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
     <Transaction>2018/08/14 14:54:15.000.469,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>

Project1.stat

@@ -1,10 +1,10 @@
 [Stats]
-EditorSecs=60702
+EditorSecs=62163
-DesignerSecs=6684
+DesignerSecs=6844
-InspectorSecs=2336
+InspectorSecs=2376
-CompileSecs=360808
+CompileSecs=373514
-OtherSecs=2143
+OtherSecs=2081
 StartTime=03/08/2018 07:57:26
 RealKeys=0
 EffectiveKeys=0
-DebugSecs=27197
+DebugSecs=28213

UnitFormCidade.dfm

@@ -1,11 +1,14 @@
 inherited FormCidade: TFormCidade
   Caption = 'Cadastro de cidade:'
   ClientHeight = 312
+  ClientWidth = 600
   OnCreate = FormCreate
+  ExplicitWidth = 616
   ExplicitHeight = 351
   PixelsPerInch = 96
   TextHeight = 15
   inherited ToolBar1: TToolBar
+    Width = 600
     inherited btAnterior: TButton
       TabOrder = 2
       OnClick = btAnteriorClick
@@ -34,10 +37,11 @@ inherited FormCidade: TFormCidade
     end
   end
   inherited Panel1: TPanel
+    Width = 600
     Height = 264
     ExplicitHeight = 264
     inherited Panel2: TPanel
-      Left = 99
+      Left = 100
       Top = 6
       ExplicitLeft = 99
       ExplicitTop = 6
@@ -121,6 +125,7 @@ inherited FormCidade: TFormCidade
   end
   inherited StatusBar1: TStatusBar
     Top = 293
+    Width = 600
     Panels = <
       item
         Text = 'Aguardando'

UnitFormGrid.dfm

@@ -22,7 +22,7 @@ object FormGrid: TFormGrid
     Left = 0
     Top = 59
     Width = 265
-    Height = 184
+    Height = 222
     ColCount = 4
     DrawingStyle = gdsClassic
     FixedCols = 0

UnitFormGrid.pas

@@ -93,7 +93,7 @@ begin
        for wCont := 0 to FLista.Count-1 do
          begin
            wObj := FLista.getObjectByIndex(wCont);
-           if FClass = TCidade then
+                if wObj.ClassType = TCidade then
                   begin
                     with wObj as TCidade do
                       begin
@@ -102,8 +102,31 @@ begin
                              wLista.Inserir(wObj, TCidade);
                            end;
                       end;
+                  end
+                  else
+                    if wObj.ClassType = TEstado then
+                       begin
+                         with wObj as TEstado do
+                           begin
+                             if ContainsText (wEstado, palavra) then
+                                begin
+                                  wLista.Inserir(wObj, TEstado);
                                 end;
                            end;
+                       end
+                       else
+                         if wObj.ClassType = TPais then
+                            begin
+                              with wObj as TPais do
+                                begin
+                                  if ContainsText (wPais, palavra) then
+                                     begin
+                                       wLista.Inserir(wObj, TPais);
+                                     end;
+                                end;
+                            end;
+
+          end;
 
        if wLista.Count > 0 then
           begin
@@ -115,6 +138,8 @@ begin
             for wCont := 0 to wLista.Count-1 do
               begin
                 wObj := wLista.getObjectByIndex(wCont);
+                if wObj.ClassType = TCidade then
+                  begin
                     with wObj as TCidade do
                       begin
                         StringGrid1.Cells[0, wCont] := inttostr(wCod);
@@ -122,6 +147,29 @@ begin
                         StringGrid1.Cells[2, wCont] := wPais;
                         StringGrid1.Cells[3, wCont] := wUF;
                       end;
+                  end
+                  else
+                    if wObj.ClassType = TEstado then
+                       begin
+                         with wObj as TEstado do
+                           begin
+                             StringGrid1.Cells[0, wCont] := inttostr(wCod);
+                             StringGrid1.Cells[1, wCont] := wEstado;
+                             StringGrid1.Cells[2, wCont] := wPais;
+                             StringGrid1.Cells[3, wCont] := inttostr(wAliquota);
+                           end;
+                       end
+                       else
+                         if wObj.ClassType = TPais then
+                            begin
+                              with wObj as Tpais do
+                                begin
+                                  StringGrid1.Cells[0, wCont] := inttostr(wCod);
+                                  StringGrid1.Cells[1, wCont] := wPais;
+                                  StringGrid1.Cells[2, wCont] := wNacionalidade;
+                                  StringGrid1.Cells[3, wCont] := inttostr(wCodfed);
+                                end;
+                            end;
               end;
           end;
      end
@@ -131,6 +179,8 @@ begin
          for wCont := 0 to FLista.Count-1 do
            begin
              wObj := FLista.getObjectByIndex(wCont);
+             if wObj.ClassType = TCidade then
+                begin
                   with wObj as TCidade do
                     begin
                       StringGrid1.Cells[0, wCont] := inttostr(wCod);
@@ -138,6 +188,29 @@ begin
                       StringGrid1.Cells[2, wCont] := wPais;
                       StringGrid1.Cells[3, wCont] := wUF;
                     end;
+                end
+                else
+                  if wObj.ClassType = TEstado then
+                     begin
+                       with wObj as TEstado do
+                         begin
+                           StringGrid1.Cells[0, wCont] := inttostr(wCod);
+                           StringGrid1.Cells[1, wCont] := wEstado;
+                           StringGrid1.Cells[2, wCont] := wPais;
+                           StringGrid1.Cells[3, wCont] := inttostr(wAliquota);
+                         end;
+                     end
+                     else
+                       if wObj.ClassType = TPais then
+                          begin
+                            with wObj as TPais do
+                              begin
+                                StringGrid1.Cells[0, wCont] := inttostr(wCod);
+                                StringGrid1.Cells[1, wCont] := wPais;
+                                StringGrid1.Cells[2, wCont] := wNacionalidade;
+                                StringGrid1.Cells[3, wCont] := inttostr(wCodFed);
+                              end;
+                          end;
            end;
        end;
 end;

UnitFormPadrao.dfm

@@ -3,7 +3,7 @@ object FormPadrao: TFormPadrao
   Top = 0
   Caption = 'FormPadrao'
   ClientHeight = 332
-  ClientWidth = 598
+  ClientWidth = 601
   Color = clBtnFace
   Font.Charset = ANSI_CHARSET
   Font.Color = clWindowText
@@ -20,11 +20,12 @@ object FormPadrao: TFormPadrao
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 598
+    Width = 601
     Height = 29
     ButtonHeight = 20
     Caption = 'ToolBar1'
     TabOrder = 0
+    ExplicitWidth = 598
     object btAnterior: TButton
       Left = 0
       Top = 0
@@ -109,21 +110,23 @@ object FormPadrao: TFormPadrao
   object Panel1: TPanel
     Left = 0
     Top = 29
-    Width = 598
+    Width = 601
     Height = 284
     Align = alClient
     TabOrder = 1
+    ExplicitWidth = 598
     DesignSize = (
-      598
+      601
       284)
     object Panel2: TPanel
-      Left = 354
+      Left = 357
       Top = 296
       Width = 400
       Height = 250
       Anchors = []
       BevelOuter = bvNone
       TabOrder = 0
+      ExplicitLeft = 354
       object cbLimparCampos: TCheckBox
         Left = 344
         Top = 229
@@ -137,7 +140,7 @@ object FormPadrao: TFormPadrao
   object StatusBar1: TStatusBar
     Left = 0
     Top = 313
-    Width = 598
+    Width = 601
     Height = 19
     Panels = <
       item
@@ -146,6 +149,7 @@ object FormPadrao: TFormPadrao
         Text = 'Aguardando'
         Width = 50
       end>
+    ExplicitWidth = 598
   end
   object SaveTextFileDialog1: TSaveTextFileDialog
     Left = 552

UnitFormPais.dfm

@@ -22,7 +22,6 @@ inherited FormPais: TFormPais
       OnClick = btBuscarClick
     end
     inherited btInserir: TButton
-      Default = False
       OnClick = btInserirClick
     end
     inherited btExcluir: TButton
@@ -43,14 +42,12 @@ inherited FormPais: TFormPais
     DesignSize = (
       602
       266)
-    inherited cbLimparCampos: TCheckBox
-      TabOrder = 1
-    end
     inherited Panel2: TPanel
+      Left = 99
       Top = 6
-      TabOrder = 0
+      ExplicitLeft = 99
-      ExplicitLeft = 98
+      ExplicitTop = 6
-      object Label1: TLabel
+      object Label1: TLabel [0]
         Left = 49
         Top = 74
         Width = 42
@@ -58,7 +55,7 @@ inherited FormPais: TFormPais
         Anchors = []
         Caption = 'C'#243'digo:'
       end
-      object Label2: TLabel
+      object Label2: TLabel [1]
         Left = 66
         Top = 117
         Width = 25
@@ -66,7 +63,7 @@ inherited FormPais: TFormPais
         Anchors = []
         Caption = 'Pa'#237's:'
       end
-      object Label3: TLabel
+      object Label3: TLabel [2]
         Left = 12
         Top = 165
         Width = 79
@@ -74,7 +71,7 @@ inherited FormPais: TFormPais
         Anchors = []
         Caption = 'Nacionalidade:'
       end
-      object Label4: TLabel
+      object Label4: TLabel [3]
         Left = 268
         Top = 163
         Width = 51
@@ -82,6 +79,9 @@ inherited FormPais: TFormPais
         Anchors = []
         Caption = 'C'#243'd.Fed.:'
       end
+      inherited cbLimparCampos: TCheckBox
+        TabOrder = 4
+      end
       object edCod: TEdit
         Left = 110
         Top = 71