diff --git a/lcl/grids.pas b/lcl/grids.pas
index 1639850354..d6b0853e6c 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -2657,7 +2657,7 @@ end;
 
 procedure TCustomGrid.SetRowCount(AValue: Integer);
 var
-  OldR, OldC, NewColCount: Integer;
+  OldR, NewColCount: Integer;
 begin
   OldR := FRows.Count;
   if AValue<>OldR then begin