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