diff --git a/X2UtPersistXML.pas b/X2UtPersistXML.pas
index 44102f4..5d98b1c 100644
--- a/X2UtPersistXML.pas
+++ b/X2UtPersistXML.pas
@@ -187,6 +187,9 @@ end;
 
 
 procedure TX2UtPersistXMLFiler.EndSection;
+var
+  lastItem: Integer;
+  
 begin
   inherited;