Source position: pastree.pp line 501
public function TPasProgram.ElementTypeName: TPastreeString; override;