Source position: syshelph.inc line 535
public class function TShortStringHelper.CompareText(
const A: ShortString;
const B: ShortString
):Integer;