Source position: syshelph.inc line 560
public function TShortStringHelper.CompareTo(
const B: ShortString
):Integer;