Source position: pastree.pp line 1327
public function TPasClassProcedure.TypeName: TPastreeString; override;