From e25ea34794af532555bb2816abfd64e6c80b506c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 26 Dec 2012 07:34:16 +0000
Subject: [PATCH] No need to cast for TTableKey.

---
 source/table_editor.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/source/table_editor.pas b/source/table_editor.pas
index ac404bae..54216f00 100644
--- a/source/table_editor.pas
+++ b/source/table_editor.pas
@@ -1455,7 +1455,6 @@ end;
 
 procedure TfrmTableEditor.btnClearIndexesClick(Sender: TObject);
 var
-  i: Integer;
   TblKey: TTableKey;
 begin
   // Clear all indexes
@@ -1464,8 +1463,7 @@ begin
     treeIndexes.CancelEditNode;
   // Trigger ValidateIndexControls
   SelectNode(treeIndexes, nil);
-  for i:=0 to FKeys.Count-1 do begin
-    TblKey := TTableKey(FKeys[i]);
+  for TblKey in FKeys do begin
     if not TblKey.Added then
       DeletedKeys.Add(TblKey.OldName);
   end;