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