diff --git a/packages/fcl-stl/src/gdeque.pp b/packages/fcl-stl/src/gdeque.pp
index 9a91f3f483..54f90667e3 100644
--- a/packages/fcl-stl/src/gdeque.pp
+++ b/packages/fcl-stl/src/gdeque.pp
@@ -236,7 +236,7 @@ const
   cSizeSmall = 1*1024*1024;
   cSizeBig = 256*1024*1024;
 var
-  i,OldEnd,
+  OldEnd,
   DataSize,CurLast,EmptyElems,Elems:SizeUInt;
 begin
   OldEnd:=FCapacity;