Source position: pscanner.pp line 714
type TPScannerLinkLibEvent = procedure(
Sender: TObject;
const aLibName: string;
const aLibAlias: string;
const aLibOptions: string;
var Handled: Boolean
) of object;