Source position: sqlscript.pp line 31
type TSQLScriptExceptionEvent = procedure(
Sender: TObject;
Statement: TStrings;
TheException: Exception;
var Continue: Boolean
) of object;