{
Compare strings, return -1,0,+1 if s1 <,=,> s2.
}
function StrComp(s1,s2:String):Integer;
begin
 if s1>s2 then StrComp:=+1 else
 if s1<s2 then StrComp:=-1 else StrComp:=0;
end;
{
Compare strings, ignore char case.
}
function StrIComp(s1,s2:String):Integer;
begin
 StrIComp:=StrComp(UpCaseStr(s1),UpCaseStr(s2));
end;
