Source position: fpg_readonly.pas line 32
type TfpgOnProcessEvent = procedure(
pSender: TObject;
var pReadOnly: Boolean;
var pProcess: Boolean
) of object;