如何在DWScript中注册两个具有循环引用的类？

type
  ClassA = class
    FClassB: ClassB;
  end;

  ClassB = class
    FClassA: ClassA;
  end;

var
  Program: TProgram;
begin
  Program := TProgram.Create;
  try
    // 注册类的代码将放在这里
  finally
    Program.Free;
  end;
end;

var
  ClassASymbol, ClassBSymbol: TClassSymbol;
begin
  Program := TProgram.Create;
  try
    ClassASymbol := TClassSymbol.Create('ClassA', nil);
    Program.Table.AddSymbol(ClassASymbol);

    ClassBSymbol := TClassSymbol.Create('ClassB', nil);
    Program.Table.AddSymbol(ClassBSymbol);

    // 添加ClassA的方法
    ClassASymbol.AddMethod('DoSomething', ...);

    // 添加ClassB的方法
    ClassBSymbol.AddMethod('DoSomethingElse', ...);

    // 设置循环引用
    ClassASymbol.AddField('FClassB', ClassBSymbol, ...);
    ClassBSymbol.AddField('FClassA', ClassASymbol, ...);

    // 注册完成后，可以使用这两个类了
  finally
    Program.Free;
  end;
end;