Source position: pasresolver.pp line 2276
public function TPasResolver.CheckClassesAreRelated(
TypeA: TPasType;
TypeB: TPasType
):Integer;