diff --git a/components/lazutils/lazutf8classes.pas b/components/lazutils/lazutf8classes.pas
index 3f3fe46dca..5996816278 100644
--- a/components/lazutils/lazutf8classes.pas
+++ b/components/lazutils/lazutf8classes.pas
@@ -29,6 +29,8 @@ type
 procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
 procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string);
 
+function CompareStringListItemsUTF8LowerCase(List: TStringList; Index1, Index2: Integer): Integer;
+
 implementation
 
 procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
@@ -67,6 +69,12 @@ begin
   end;
 end;
 
+function CompareStringListItemsUTF8LowerCase(List: TStringList; Index1,
+  Index2: Integer): Integer;
+begin
+  Result:=CompareStr(UTF8LowerCase(List[Index1]),UTF8LowerCase(List[Index2]));
+end;
+
 constructor TFileStreamUTF8.Create(const AFileName: utf8string; Mode: Word);
 var
   lHandle: THandle;