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