Source position: rlparser.pas line 96
type TRLParserOnFindAgregateEvent = procedure(
Sender: TObject;
Owner: TPersistent;
const Name: string;
var Agregate: TPersistent
) of object;