IndexOf verwentet intern CompareStrings und diese Funktion nutzt AnsiCompareText ... also CaseInsensitive.
Leite die Klasse (TStringList?) ab und überschreib CompareStrings (dieses ist virtual) mit einer eigenen Funktion.
Delphi-Quellcode:
function {TStrings}.CompareStrings(const S1, S2: string): Integer;
begin
Result := AnsiCompareStr(S1, S2);
end;