не работает CaseSensitive=true в TStringList (Lazarus, Delphi7)

Столкнулся со странным поведением TStringList (в Lazarus и Delphi7): отсутствие реакции на установку CaseSensitive:=true

    Uses SysUtils,Classes;
    Var  FList:TStringList;
    BEGIN
      if FileExists(ParamStr(1)) then
      begin
         FList:= TStringList.Create;
         FList.CaseSensitive:=true;
         FList.Sorted:=true;
         FList.LoadFromFile(ParamStr(1));
         FList.SaveToFile(ParamStr(1)+'.sorted');
         FList.Free;
      end;
    END.       

Пробовал альтернативный вариант:

   if FileExists(ParamStr(1)) then
   begin
     FList:= TStringList.Create;
     FList.CaseSensitive:=true;
     FList.Sorted:=false;
     FList.LoadFromFile(ParamStr(1));
     FList.Sort;
     FList.SaveToFile(ParamStr(1)+'.sorted');
     FList.Free;
   end;

Результат то же: текст отсортирован, но без учёта регистра.

Что я делаю не так ?

Ведь не может быть, чтобы в обеих средах программирования жил один и тот же баг...