Source position: syshelph.inc line 557
public class function TShortStringHelper.UpperCase(
const S: ShortString
):ShortString; overload;