Remove alguns warnings

EvoUMLPlugin/src/DelphiAddInObj.pas

@@ -51,11 +51,11 @@ type
 implementation
 
 uses
-  InstantCode, SysUtils, Mostra_Processamento, utuStateMachine, fCodeGen, Controls, Forms,
+  InstantCode, SysUtils, Mostra_Processamento, fCodeGen, Controls, Forms,
   fModelMappingsGenerationOptions, fXSDEditor, ituDataBaseLogin, formMemo,
-  cxuCadastroClasse, cxuCadastroCasoDeUso, ituCadastrarDefinicao, ituCadastrarFormulario,
+  cxuCadastroClasse, cxuCadastroCasoDeUso, ituCadastrarFormulario,
   utuMessage, uCadastroCasoDeUso, uCadastroClasse, ituServiceParameters, ituExplorerV2,
-  Registry, uRTFEditor, ituXSDExplorer, ituExportUnits, ituOQLExplorerV2, cxuCadastroDefinicaoClasse;
+  Registry, ituOQLExplorerV2, cxuCadastroDefinicaoClasse;
 
 //procedure TDelphiAddInObj.NotifyUpdate(piMsg: string);
 //begin
@@ -250,9 +250,10 @@ begin
 end;
 
 class procedure TDelphiAddInObj.ActionMenu_LoadMethods;
-var lsResult: string;
-    lUtilitario: TUtil;
-    lMetaModelGenOpt: TMetaModelGenerationOptions;
+var
+//lsResult: string;
+//    lUtilitario: TUtil;
+  lMetaModelGenOpt: TMetaModelGenerationOptions;
 begin
   lMetaModelGenOpt.SilentMode := false;
   lMetaModelGenOpt.CheckDBAttributeNameLength := true;
@@ -470,7 +471,7 @@ var lDynamoDef: TitCadastrarFormulario;
     lSession: cxSession;
     lCadastroDefinicaoClasseUC: cxCadastroDefinicaoClasse;
     lModel: IModel;
-    lUMLPackageAux: IUMLPackage;
+    //lUMLPackageAux: IUMLPackage;
     lUMLClassAux: IUMLClass;
 begin
   lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
@@ -525,12 +526,12 @@ end;
 
 
 class procedure TDelphiAddInObj.ActionMenu_ExportDiagramClasses;
-var
-  lEnum : Integer;
-  listaStrings : TStringList;
-  listaObjetos : TInterfaceList;
+//var
+  //lEnum : Integer;
+  //listaStrings : TStringList;
+  //listaObjetos : TInterfaceList;
 //  lClass: IUMLClass;  
-  lForm : TExportUnits;
+  //lForm : TExportUnits;
 begin
   //listaStrings := TStringList.Create;
   //listaObjetos := TInterfaceList.Create;
@@ -566,7 +567,7 @@ begin
 end;
 
 class procedure TDelphiAddInObj.ActionMenu_UseCaseXSDsEditor;
-var lXSDExplorer: TXSDExplorer;
+//var lXSDExplorer: TXSDExplorer;
 begin
 //  lModel := StarUMLApp.SelectionManager.GetSelectedModelAt(0);
   //if lModel.GetMetaClass.IsKindOf('UMLUseCase') then

EvoUMLPlugin/src/acuObjectExplorer.pas

@@ -10,9 +10,9 @@ uses
 {$IFnDEF FPC}
   Windows,
 {$ELSE}
-  LCLIntf, LCLType, LMessages,
+  LCLIntf, LCLType,
 {$ENDIF}
-  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ComCtrls, acuModel, acuframework;
 
 type

EvoUMLPlugin/src/ituOQLExplorerV2.pas

@@ -10,11 +10,11 @@ uses
 {$IFnDEF FPC}
   Windows,
 {$ELSE}
-  LCLIntf, LCLType, LMessages,
+  LCLIntf, LCLType,
 {$ENDIF}
-  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls, utuOQL, Menus, ComCtrls, Buttons, ActnList, ituExplorerV2, ImgList,
-  ituDataBaseLogin, ToolWin, SynHighlighterPas, SynEdit;
+  SynHighlighterPas, SynEdit;
 
 type
 

EvoUMLPlugin/src/ituOQLParams.pas

@@ -10,10 +10,10 @@ uses
 {$IFnDEF FPC}
   Mask, Windows,
 {$ELSE}
-  MaskEdit, LCLIntf, LCLType, LMessages,
+  MaskEdit, LCLIntf, LCLType,
 {$ENDIF}
-  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ExtCtrls, acuOQL, ComCtrls, StdCtrls, acuContainers, Buttons;
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, acuOQL, ComCtrls, StdCtrls, Buttons;
 
 const cCol1 = 5;
       cCol1Width = 120;

EvoUMLPlugin/src/uCadastroCasoDeUso.pas

@@ -7,10 +7,10 @@ unit uCadastroCasoDeUso;
 interface
 
 uses
-  LCLIntf, LCLType, LMessages, StarUMLintf,
-  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  LCLIntf, LCLType, StarUMLintf,
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls, ComCtrls, utuMessage, uCadastroCasoDeUsoIcones, acuObject, cxuCadastroCasoDeUso,
-  Buttons, cxuSession;
+  Buttons;
 
 type
 
@@ -196,8 +196,7 @@ var lFieldCategorias, lFieldCategoria,
     lMemoryStream: TMemoryStream;
     lListItem: TListItem;
     lIDO: integer;
-    I,T: integer;
-    s: CP1252String;
+    I: integer;
 begin
   inherited;
     //CATEGORIAS
@@ -225,7 +224,6 @@ begin
       while not lEnum.EOL do
       begin
         lFieldEntidade := utField(lEnum.Current);
-        s :=  lFieldEntidade.AttributeByName('nome').AsString;
         cbxEntidade.AddItem(lFieldEntidade.AttributeByName('nome').AsString, lFieldEntidade.AttributeByName('ido'));
         lEnum.MoveNext;
       end;

EvoUMLPlugin/src/uCadastroClasse.pas

@@ -7,10 +7,10 @@ unit uCadastroClasse;
 interface
 
 uses
-  LCLIntf, LCLType, LMessages, StarUMLintf,
-  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ExtCtrls, StdCtrls, ComCtrls, utuMessage, uCadastroCasoDeUsoIcones, acuObject, cxuCadastroClasse,
-  Buttons, cxuSession;
+  LCLIntf, LCLType, StarUMLintf,
+   SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, StdCtrls, ComCtrls, utuMessage, acuObject, cxuCadastroClasse,
+  Buttons;
 
 type