diff --git a/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas b/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
index 980a15a8..c5fb19da 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
+++ b/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
@@ -84,14 +84,16 @@ begin
 end;
 
 procedure TfrViewTiendas.ModificarInterno;
+var
+  AController : ITiendasEmpresaController;
 begin
   inherited;
-  with TTiendasEmpresaController.Create do
-    try
-      VerTienda((dsDetalles.DataTable) as IBizEmpresasTiendas);
-    finally
-      Free;
-    end;
+  AController := TTiendasEmpresaController.Create;
+  try
+    AController.VerTienda((dsDetalles.DataTable) as IBizEmpresasTiendas);
+  finally
+    AController := NIL;
+  end;
 end;
 
 end.