function SameStr(const S1, S2: String): Boolean;
Сравнивает строки S1 и S2 с учётом регистра. Возвращает значение True, если они равны.