Source position: pastree.pp line 1496
public function TPasImplBlock.AddBeginBlock: TPasImplBeginBlock;