Source position: line 0
function DbgSName(
const p: TObject
):String; overload;function DbgSName(
const p: TClass
):String; overload;