Source position: pscanner.pp line 717
type TResourceHandler = procedure(
Sender: TObject;
const aFileName: string;
aOptions: TStrings
) of object;