参考下面的图：

我在Delphi主程序里定义了一下内容：

//一个测试类，一个读写属性Text和一个当Text值改变时触发的事件OnChange
TTestObject = class(TObject)
private
FText: String;
FOnChange: TNotifyEvent;
procedure SetText(const Value: String);
public
property Text: String read FText write SetText;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;

procedure TTestObject.SetText(const Value: String);
begin
if FText <> Value then
begin
FText := Value;
if Assigned(FOnChange) then FOnChange(Self);
end;
end;

//对象初始化，创建了TestObject对象，Text属性赋了初值为'Text'
procedure Teditor.FormCreate(Sender: TObject);
begin
TestObject := TTestObject.Create;
TestObject.Text := 'Text';
end;

下面是执行Script结果
在Script中定义了一个函数处理TestObject的事件
一切都是这么美好，真是爽