diff --git a/lcl/grids.pas b/lcl/grids.pas
index 6d8eb15449..791ba0b594 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -3973,7 +3973,7 @@ end;
 
 procedure TCustomGrid.WMVScroll(var message: TLMVScroll);
 var
-  C, TL, CTL, MaxPos: Integer;
+  C, TL, CTL: Integer;
   R: TRect;
 
   function NextRowHeight(aRow: Integer; Delta: Integer): integer;