Index: JVCL3/run/JvBDEIndex.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvBDEIndex.pas,v
retrieving revision 1.15
diff -u -r1.15 JvBDEIndex.pas
--- JVCL3/run/JvBDEIndex.pas	17 Feb 2005 10:19:59 -0000	1.15
+++ JVCL3/run/JvBDEIndex.pas	27 Oct 2005 02:02:04 -0000
@@ -283,7 +283,8 @@
     else
     begin
       AName := TIndexDef(Items.Objects[ItemIndex]).Fields;
-      if AName = '' then
+      if (AName = '') or
+         (ixDescending in TIndexDef(Items.Objects[ItemIndex]).Options)  then
       begin
         AName := TIndexDef(Items.Objects[ItemIndex]).Name;
         Result := False;
@@ -312,7 +313,10 @@
           if not (ixExpression in Options) then
           begin
             if FDisplayMode = dmIndexName then
-              AFld := Name
+ 	      if (Name = '') and (EnableNoIndex) then //(TableType = ttparadox) and (ixprimaty in Options) 
+    		AFLd := NoIndexItem
+             else
+               AFld := Name
             else
             begin
               AFld := '';