Собираются ли вводить делегаты?

connector con;
 
con = foo;
 
same1 result1 = con();
 
con = bar;
 
same2 result2 = con();

int _tmain(int argc, _TCHAR* argv[]) {
    // Obtain the RTTI context
    TRttiContext *context = new TRttiContext();
 
    // Obtain type information for TStringList
    TRttiType *type = context->GetType(__delphirtti(TStringList));
    TRttiInstanceType *instanceType = dynamic_cast<TRttiInstanceType*>(type);
    if (!instanceType) {
        return 1; // failure to dynamic cast
    }
 
    // Calculate the number of new methods, fields, and properties introduced in TStringList
    const int newMethods = instanceType->GetMethods().Length -
        instanceType->GetDeclaredMethods().Length;
    const int newProperties = instanceType->GetProperties().Length -
        instanceType->GetDeclaredProperties().Length;
    const int newFields = instanceType->GetFields().Length -
        instanceType->GetDeclaredFields().Length;
 
    // Print the result onto the console
    printf("%ls introduces %d fields, %d methods, and %d properties relative to its %ls ancestor"
        , instanceType->Name.c_str(), newFields, newMethods, newProperties,
        instanceType->BaseType->Name.c_str());
 
    delete context;
    return 0;
}

class TTest : TObject {
public:
    int FInteger;
    String FString;
};
 
int _tmain(int argc, _TCHAR* argv[]) {
    // Obtain the RTTI context
    TRttiContext context;
 
    // Obtain type information for the TTest class
    TRttiType *type = context.GetType(__delphirtti(TTest));
    TRttiInstanceType *instanceType = dynamic_cast<TRttiInstanceType*>(type);
    if (instanceType) {
        // Create a new TTest instance and initialize its values
        TTest *var = new TTest();
        var->FInteger = 10;
        var->FString = "Hello RTTI!";
 
        // Print the values of var using RTTI
        // field FInteger
        TRttiField *field = instanceType->GetField("FInteger");
        if (field) {
            printf("%ls\n", field->GetValue(var).ToString());
        }
 
        // field FString
        field = instanceType->GetField("FString");
        if (field) {
            printf("%ls\n", field->GetValue(var).ToString());
        }
    }
 
    return 0;
}