From c50c6e5f9047e847e8d6fa59ac64bb597a73926a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 16 Jun 2008 09:04:33 +0000
Subject: [PATCH] LCL: clean up

git-svn-id: trunk@15436 -
---
 lcl/dbgrids.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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