...

// Метод, где свойству присваиваю строковое значение
procedure TForm4.Bind(AObject: TObject; APropName: string; AValue: string);
var
  vProp: TRttiProperty;
  vVal: TValue;
begin
  vVal := AValue;
  vProp := TRttiContext.Create.GetType(AObject.ClassType).GetProperty(APropName);
  vProp.SetValue(AObject, vVal);
end;

// Метод, где свойству присваиваю свой метод (AEvent)
procedure TForm4.Bind(AObject: TObject; APropName: string; AEvent: TNotifyEvent);
var
  vProp: TRttiProperty;
  vVal: TValue;
begin
  TValue.Make(@AEvent, TypeInfo(TMethod), vVal);
  vProp := TRttiContext.Create.GetType(AObject.ClassType).GetProperty(APropName);
  vProp.SetValue(AObject, vVal);  // Вот здесь вылетает Invalid class typecast
end;


procedure TForm4.btn1Click(Sender: TObject);
begin
  Bind(btn2, 'Caption', 'aaa');  // Присваиваю свойству Caption строковое значение  
  Bind(btn2, 'OnClick', MyClickProc);  // Пытаюсь присвоить свойству OnClick метод MyClickProc
end;

procedure TForm4.MyClickProc(Sender: TObject);
begin
  ShowMessage('Hello');
end;

  vProp := TRttiContext.Create.GetType(AObject.ClassInfo).GetProperty(APropName);
  vProp.SetValue(AObject, TValue.From<TNotifyEvent>(AEvent));