function SameStr(const S1, S2: String): Boolean;
Compares S1 to S2, with case-sensitivity. The return value is True if they are equal.