add function StrCmpLogical(const s1, s2: string): Integer;