Это не шаманство, а вынужденная мера, тк CharLower(PChar(Str)), ну или CharUpper(PChar(Str)) (кстати, настоятельно рекомендованная tsdim'ой, тк работает с текущей кодовой страницой), работает с указателем на массив и меняет все его содержимое, в результате получается, что дальше входные данные в исходном состоянии применять уже не получится (этот баг был обнаружен не мной, где-то было на форуме). Надо обязательно поставить защиту.
------------ Дoбавленo:

Исправлено