--- ibx/trunk/ibcontrols/IBLookupComboEditBox.pas	2016/05/17 08:14:52	39
+++ ibx/trunk/ibcontrols/IBLookupComboEditBox.pas	2016/07/16 12:25:48	41
@@ -31,7 +31,7 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, DbCtrls,
-  ExtCtrls, IBSQLParser, DB, StdCtrls, IBCustomDataSet;
+  ExtCtrls, IBSQLParser, DB, StdCtrls, IBCustomDataSet, LCLVersion;
 
 type
 
@@ -145,7 +145,7 @@ type
 
 implementation
 
-uses IBQuery, LCLType, Variants, LCLProc;
+uses IBQuery, LCLType, Variants, LCLProc, LazUTF8;
 
 { TIBLookupControlLink }
 
@@ -371,13 +371,13 @@ begin
       Parser.Add2WhereClause('Upper(' + GetRelationNameQualifier + '"' +  ListField + '") Like Upper(''' +
                                   SQLSafe(Text) + '%'')');
 
-  end;
-  if cbactSearchAscending in AutoCompleteText then
-  begin
-    FieldPosition := Parser.GetFieldPosition(ListField);
-    if FieldPosition = 0 then Exit;
+    if cbactSearchAscending in AutoCompleteText then
+    begin
+      FieldPosition := Parser.GetFieldPosition(ListField);
+      if FieldPosition = 0 then Exit;
 
-    Parser.OrderByClause := IntToStr(FieldPosition) + ' ascending';
+      Parser.OrderByClause := IntToStr(FieldPosition) + ' ascending';
+    end;
   end;
 end;