Source position: titanscripter.pas line 114
type TTitanScripterVarEventEx = procedure(
Sender: TTitanScripter;
ID: Integer;
var Mode: Integer
) of object;