diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
index 472b7c07..f74a24af 100644
--- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
+++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
@@ -71,7 +71,7 @@ var
   AConn : IDAConnection;
   dsData: IDADataset;
 
-  AWhere : TDAWhereExpression;
+//  AWhere : TDAWhereExpression;
   ABinary : Binary;
 begin
   {
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
index 20ea2fed..54b707be 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas	
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas	
@@ -10,7 +10,7 @@ unit srvAlbaranesCliente_Impl;
 interface
 
 uses
-  {vcl:} Classes, SysUtils,
+  {vcl:} Windows, Classes, SysUtils,
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
diff --git a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
index 8d550a5f..84d92c92 100644
--- a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
+++ b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
@@ -66,8 +66,8 @@ begin
 
   FConnection.BeginTransaction;
 
+  AStream := TMemoryStream.Create;
   try
-    AStream := TMemoryStream.Create;
     dsMaster := schReport.NewDataset(FConnection, ds_InformeContactos, [], [], False); //, ['ID'], ['611, 751']); //AID]);
     dsMaster.Where.AddText(fld_ContactosID + ' in (' + AID + ')');
     dsMaster.Open;
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index ce297184..a972a65c 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
@@ -103,8 +103,6 @@ begin
 end;
 
 function TRptWordPresupuestoCliente.Generar : Boolean;
-var
-  Aux : OleVariant;
 begin
   FWordApp := TWordApp.Create (False, False);
   with FWordApp do