1
23
45
67
89
1011
1213
1415
1617
1819
2021
2223
2425
2627
2829
3031
3233
3435
3637

function ExAnsiCompareText(const S1, S2: string): integer;
begin   Result := CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE or
             NORM_IGNORENONSPACE, PChar(S1),             Length(S1), PChar(S2), Length(S2)) - 2;
end; 
 function ExLowerCase(const S: string): string;
var  Ch: Char;
  L: Integer;  Source, Dest: PChar;
begin  L := Length(S);
  SetLength(Result, L);  Source := Pointer(S);
  Dest := Pointer(Result);  while L <> 0 do
  begin    Ch := Source^;
    if (Ch >= 'A') and (Ch <= 'Z') then Inc(Ch, 32)    else
       case Ch of         'à', 'ä', 'â', 'å', 'Ä','Â', 'á': Ch:= 'a';
         'é', 'è', 'ë', 'ê', 'Ë','Ê','É' : Ch:= 'e';         'ï', 'î', 'ì', 'í', 'Î', 'Ï': Ch:= 'i';
         'ö','ô','ò','Ö', 'Ô', 'ó': Ch:= 'o';         'ü', 'ù', 'û', 'ú', 'Û', 'Ü': Ch:= 'u';
         'ç': Ch:= 'c';       end;
    Dest^ := Ch;    Inc(Source);
    Inc(Dest);    Dec(L);
  end;end;