Procedure TestIndex();
var Temp: TStringList;
begin
Temp:= File.CreateStringList;
Temp.Append('Test');
Temp.Append('TeSt');
Temp.Append('TEst');
Temp.Append('TesT');
WriteLn(inttostr(Temp.IndexOf('Test'))); //Return 0
WriteLn(inttostr(Temp.IndexOf('TeSt'))); //Return 0
WriteLn(inttostr(Temp.IndexOf('TEst'))); //Return 0
WriteLn(inttostr(Temp.IndexOf('TesT'))); //Return 0
Temp.Free;
end;