рьте этот упрощенный образец (реальный сценарий другой), я хочу установить значение вложенного свойства объекта, в этом случае установить цвет шрифта дляTLabel компонент кclRed используя RTTI.

var
  p : TRttiProperty;
  p2: TRttiProperty;
  c : TRttiContext;
begin
   c := TRttiContext.Create;
   try
     p := c.GetType(Label1.ClassInfo).GetProperty('Font');
     p2 := c.GetType(p.PropertyType.Handle).GetProperty('Color');
     p2.SetValue(p.PropertyType.AsInstance,clred); //this line is not working
   finally
     c.Free;
   end;
end;

также я пытался

p2.SetValue(Label1,clred);