--- oup/current/DataAccess/Access_OUP_ADB.pas	2007/03/28 17:57:12	135
+++ oup/current/DataAccess/Access_OUP_ADB.pas	2007/04/01 21:14:29	155
@@ -253,6 +253,7 @@ var
 
 begin
   list := TStringList.Create;
+  list.CaseSensitive := True;
   list.Sorted := True;
   for i := 0 to GetFileCount - 1 do
   begin
@@ -270,7 +271,7 @@ begin
           ST_IDAsc, ST_IDDesc:     list.Add(id + ';' + name + ';' + extension);
           ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension);
           ST_ExtAsc, ST_ExtDesc:   list.Add(extension + ';' + id + ';' + name);
-          ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id);
+          ST_ExtNameAsc, ST_ExtNameDesc: list.Add(extension + ';' + name + ';' + id);
         end;
       end;
     end;