diff --git a/wst/trunk/type_lib_edtr/ufclassedit.pas b/wst/trunk/type_lib_edtr/ufclassedit.pas
index c9f0faa89..4edac3f45 100644
--- a/wst/trunk/type_lib_edtr/ufclassedit.pas
+++ b/wst/trunk/type_lib_edtr/ufclassedit.pas
@@ -261,7 +261,6 @@ procedure TfClassEdit.MovePropertyItem(AItem: TPasProperty; const ANewIndex: Int
 
 var
   locItem : TListItem;
-  i : Integer;
 begin
   if ( AItem <> nil ) and
      ( ( ANewIndex >= 0 ) and ( ANewIndex < edtProp.Items.Count ) )