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