Source position: pastree.pp line 1239
public function TPasProcedure.TypeName: TPastreeString; override;