Source position: pastree.pp line 1397
public function TPasClassProcedure.ElementTypeName: TPastreeString; override;