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