Source position: compproc.inc line 245
function fpc_do_is(
aclass: TClass;
aobject: TObject
):Boolean;