CompareStr(s1,s2:string):integer
CompareStr compares S1 to S2, with
case-sensitivity. The return value is less than 0 if S1 is less than S2, 0 if S1
equals S2, or greater than 0 if S1 is greater than S2. The compare operation is
based on the 8-bit ordinal value of each character and is not affected by the
current locale.
b=CompareStr("Test","test")