diff --git a/components/rx/trunk/rxcontrols/rxfolderlister.pas b/components/rx/trunk/rxcontrols/rxfolderlister.pas
index 8ed46763f..028fdd468 100644
--- a/components/rx/trunk/rxcontrols/rxfolderlister.pas
+++ b/components/rx/trunk/rxcontrols/rxfolderlister.pas
@@ -141,7 +141,7 @@ begin
   AFolderList:=TStringList.Create;
   AFolderList.Sorted:=true;
   AFileList:=TStringList.Create;
-  AFolderList.Sorted:=true;
+  AFileList.Sorted:=true;
   try
     R:=FindFirstUTF8(S+AllMask,faAnyFile, Rec);
     while R=0 do