Source position: pas2jsfiler.pp line 665
type TPCUGetSrcEvent = procedure(
Sender: TObject;
aFilename: string;
out p: PAnsiChar;
out Count: Integer
) of object;