Регистронезависимый Contains в Delphi

В справке по System.SysUtils.TStringHelper.Contains написано, что Contains - This function is case-sensitive.

А как сделать Contains case-insensitive?
Можно воспользоваться другими функциями, например, ToUpper.
Итого:

'Test'.ToUpper.Contains('s'.ToUpper)

вернёт true