program test;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ScriptEvent;

var
  FormEvent: TCnScriptFormEditorNotify;
begin
  if Event = nil then
  begin
    OutputDebugString('Event = nil');
    Exit;
  end;
  case Event.Mode of
    smManual: OutputDebugString('smManual');
    smIDELoaded: OutputDebugString('smIDELoaded');
    smFileNotify: OutputDebugString('smFileNotify');
    smBeforeCompile: OutputDebugString('smBeforeCompile');
    smAfterCompile: OutputDebugString('smAfterCompile');
    smSourceEditorNotify: OutputDebugString('smSourceEditorNotify');
    smFormEditorNotify: OutputDebugString('smFormEditorNotify');
  end;
end.