diff --git a/lcl/grids.pas b/lcl/grids.pas
index 52c0a7b4c5..41513ee55a 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -8463,7 +8463,6 @@ var
   i,W: Integer;
   Ts: TSize;
   TmpCanvas: TCanvas;
-  DC: HDC;
   C: TGridColumn;
 begin
   if (aCol<0) or (aCol>ColCount-1) then