diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas
index 41ce3dfb..55a03403 100644
--- a/Source/GUIBase/uViewDetallesBase.pas
+++ b/Source/GUIBase/uViewDetallesBase.pas
@@ -1032,10 +1032,6 @@ begin
 end;
 
 procedure TfrViewDetallesBase.actDetallesPegarExecute(Sender: TObject);
-var
-  i : Integer;
-  AIndex : Integer;
-  ADataSet : TDataSet;
 begin
   ShowHourglassCursor;
   try