Source position: tiUtils.pas line 571
function tiIsClassOfType(
pData: TObject;
pClassName: string
):Boolean;