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