diff --git a/Source/GUIBase/uEditorGridBase.dfm b/Source/GUIBase/uEditorGridBase.dfm
index 6fe919ea..9b596e4c 100644
--- a/Source/GUIBase/uEditorGridBase.dfm
+++ b/Source/GUIBase/uEditorGridBase.dfm
@@ -1516,8 +1516,6 @@ inherited fEditorGridBase: TfEditorGridBase
     Bitmap = {}
   end
   inherited JvFormStorage: TJvFormStorage
-    OnSavePlacement = JvFormStorageSavePlacement
-    OnRestorePlacement = JvFormStorageRestorePlacement
     Left = 400
     Top = 160
   end
diff --git a/Source/GUIBase/uEditorGridBase.pas b/Source/GUIBase/uEditorGridBase.pas
index 61463beb..852f74f2 100644
--- a/Source/GUIBase/uEditorGridBase.pas
+++ b/Source/GUIBase/uEditorGridBase.pas
@@ -61,8 +61,6 @@ type
     procedure FormShow(Sender: TObject); 
     procedure actQuitarFiltroExecute(Sender: TObject);
     procedure actDuplicarUpdate(Sender: TObject);
-    procedure JvFormStorageSavePlacement(Sender: TObject);
-    procedure JvFormStorageRestorePlacement(Sender: TObject);
     procedure actModificarUpdate(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevoUpdate(Sender: TObject);
@@ -279,13 +277,6 @@ begin
        (Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1);
 end;
 
-procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject);
-begin
-  inherited;
-  if Assigned(ViewGrid) then
-    ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root);
-end;
-
 procedure TfEditorGridBase.PrevisualizarInterno;
 begin
   inherited;
@@ -312,13 +303,6 @@ begin
   end;
 end;
 
-procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
-begin
-  inherited;
-  if Assigned(ViewGrid) then
-    ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
-end;
-
 initialization
   RegisterClass(TfEditorGridBase);
 
diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas
index 0ff62fac..0efb9652 100644
--- a/Source/GUIBase/uViewGridBase.pas
+++ b/Source/GUIBase/uViewGridBase.pas
@@ -180,7 +180,8 @@ procedure Register;
 implementation
 
 uses
-  CCReg, uDMBase, cxGridBandedTableView, uDBSelectionListUtils;
+  CCReg, uDMBase, cxGridBandedTableView, uDBSelectionListUtils,
+  uSistemaFunc, SHFolder, uAppInfoUtils;
 
 {$R *.dfm}