var
  context: TRttiContext;
  method: TValue; // System.TMethod
  methodType: TRttiInvokableType;
begin
  { Get the value of the OnChange property, which is a method pointer }
  method := context.GetType(mapModel.ClassType).GetProperty('OnChange')
    .GetValue(mapModel);
 
  { Display the method code and data pair }
  Writeln(method.ToString);
 
  { Get event RTTI }
  methodType := context.GetType(method.TypeInfo) as TRttiInvokableType;
  Writeln(methodType.Name);
 
  { Invoke event }
  { The first parameter must be the procedure/method pointer in a TValue variable }
  methodType.Invoke(method, [mapModel { Sender } , nil { Area } ]);

procedure TForm2.Button6Click(Sender: TObject);
var
  rc: TRttiContext;
  v: TValue;
  rm: TRttiMethod;
  rt: TRttiType;
  rp: TRttiProperty;
begin
  //取Btn2的属性Name 和Caption
  //分步
  rt := TRttiContext.Create.GetType(self.Button2.ClassType);
  rp := rt.GetProperty('Name');
  v := rp.GetValue(self.btn2);
  ShowMessage(v.AsString);

  //合并一步
 ShowMessage(  rt.GetProperty('Caption').GetValue(self.btn2).AsString);

end;

//调用btn2单击方法
procedure TForm2.Button7Click(Sender: TObject);
var
  tt: TRttiType;
  rm: TRttiMethod;
begin
  tt := TRttiContext.Create.GetType(self.btn2.ClassType);
  rm := tt.GetMethod('Click');
  rm.Invoke(self.btn2, []);//空参
end;

procedure TForm13.Button7Click(Sender: TObject);
var
  p : TRttiProperty;
  p2: TRttiProperty;
  c : TRttiContext;
begin
   c := TRttiContext.Create;
   try
     p := c.GetType(Panel1.ClassInfo).GetProperty('Font');
     p2 := c.GetType(p.PropertyType.Handle).GetProperty('Color');
     p2.SetValue(p.GetValue(Panel1).AsObject,clred);
   finally
     c.Free;
   end;
end;



procedure TForm13.Button8Click(Sender: TObject);
var
  p : TRttiProperty;
  p2: TRttiProperty;
  c : TRttiContext;
begin
   c := TRttiContext.Create;
   try
//        self.Panel1.Font.Style:
     p := c.GetType(Panel1.ClassInfo).GetProperty('Font');
     p2 := c.GetType(p.PropertyType.Handle).GetProperty('Size');
     p2.SetValue(p.GetValue(Panel1).AsObject,20); //this line now works.
   finally
     c.Free;
   end;
end;

procedure GetOrdTypeInfo(ATypeInfo: PTypeInfo; AStrings: TStrings);
var
  OrdTypeData: PTypeData;
  I: Integer;
begin
  OrdTypeData := GetTypeData(ATypeInfo);
  AStrings.Add('------------------------------------');
  AStrings.Add('Type Name: ' + ATypeInfo^.Name);
  AStrings.Add('Type Kind: ' + GetEnumName(TypeInfo(TTypeKind),
    Integer(ATypeInfo^.Kind)));
  AStrings.Add('Data Type: ' + GetEnumName(TypeInfo(TOrdType),
    Integer(OrdTypeData^.OrdType)));
  if ATypeInfo^.Kind <> tkSet then
  begin
    AStrings.Add('Min Value: ' + IntToStr(OrdTypeData^.MinValue));
    AStrings.Add('Max Value: ' + IntToStr(OrdTypeData^.MaxValue));
  end;
  if ATypeInfo^.Kind = tkSet then
    GetOrdTypeInfo(OrdTypeData^.CompType^, AStrings);
  if ATypeInfo^.Kind = tkEnumeration then
    for I := OrdTypeData^.MinValue to OrdTypeData^.MaxValue do
      AStrings.Add(Format('  Value %d: %s', [I, GetEnumName(ATypeInfo, I)]));
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  GetOrdTypeInfo(TypeInfo(Char), Memo1.Lines);
  GetOrdTypeInfo(TypeInfo(Integer), Memo1.Lines);
  GetOrdTypeInfo(TypeInfo(TFormBorderStyle), Memo1.Lines);
  GetOrdTypeInfo(TypeInfo(TBorderIcons), Memo1.Lines);
  GetOrdTypeInfo(TypeInfo(TMyEnum), Memo1.Lines);
  GetOrdTypeInfo(TypeInfo(TDBGridOption), Memo1.Lines);
end;

var
  ctx: TRttiContext;
  rttitype: TRttiType;
  rttiprop: TRttiIndexedProperty;
  value: TValue;
begin
  rttitype := ctx.GetType(StringGrid1.ClassType);
  rttiprop := rttitype.GetIndexedProperty('Cells');
  value := rttiprop.GetValue(StringGrid1, [1, 1]);
  rttiprop.SetValue(StringGrid1, [1, 1], value.ToString + ' hello');
end;

procedure DeserializeProperty(P: TRttiProperty; s: string);
var
  v: TValue;      
begin
  case p.PropertyType.TypeKind of
    tkInteger: v := StrToInt(s);
    tkFloat: v := StrToFloat(s);
    tkString: v := s;
  end;
  p.SetValue(self, v);
end;