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