Source position: pparser.pp line 202
protected procedure TPasTreeContainer.SetCurrentParser(
AValue: TPasParser
); virtual;