Source position: base_engine.pas line 2881
type TCodeEvent = procedure(
Sender: TObject;
N: Integer;
var Handled: Boolean
) of object;