[]


DM>А зачем в описании TTestEvent стоит __closure?

Потому, что в паскалевском объявлении функции указано

TTestEvent=procedure(text:WideString) of object

А вообще, вот вам выдержка из хелпа про __closure:

The __closure keyword is used to declare a special type of pointer to a member function. Unlike a regular C++ member function pointer, a closure contains an object pointer.

То есть __closure — это такой специальный тип указателя, который указывает на функцию в экземпляре класса. Это расширение Borland.