diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index 0f541d409b..6ee0963740 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -1493,11 +1493,9 @@ type
 procedure TCustomDBGrid.ColRowMoved(IsColumn: Boolean; FromIndex,
   ToIndex: Integer);
 var
-  F,CurField: TField;
-  ColIndex: Integer;
+  F: TField;
 begin
   if IsColumn then begin
-    CurField := SelectedField;
     if Columns.Enabled then
       inherited ColRowMoved(IsColumn, FromIndex, ToIndex)
     else if FDatalink.Active and (FDataLink.DataSet<>nil) then begin