Delphi - Generic type as parameter

Question

Why this won't compile ?

(Code from a custom JSON Interceptor)

procedure myproc(MyObject: TObject);

  procedure test(C: TClass);
  begin
    var ctx := TRttiContext.Create;
    var typ := ctx.GetType(C);
    for var fld in typ.GetFields do
    begin
      if fld.Name = 'anyfield' then
      begin
         TObjectList<Fld.ClassType>.Create(True);
      end;
    end;
    typ.Free;
    ctx.Free;
  end;

begin
  Test( MyOrgObject );
end;

something is wrong with : TObjectList<Fld.ClassType>.Create(True);

Any Ideas ? Thank you

OK, What I have is :

procedure TqBitObjectListInterceptor.StringReverter(Data: TObject; Field, Arg: string);
begin   
  if (Data is TqBitLogsType) and (Field = 'Flogs') then
  begin
    TqBitLogsType(Data).Flogs := TObjectList<TqBitLogType>.Create(True);
  end else
  if (Data is TqBitPrefsType) and (Field = 'Flist') then
  begin
    TqBitPrefsType(Data).Flogs := TObjectList<TqBitPrefsType>.Create(True);
  end else... 
end;
   

and so on for each pair Type/Field with the same code I would like to be able to assign the Data.Field to a TObjectList using RTTI :

procedure TqBitObjectListInterceptor.StringReverter(Data: TObject; Field, Arg: string);

  function Convert(C: TClass; F: string): boolean;
  if (Data is C) and (Field = F) then
  begin
    var ctx := TRttiContext.Create;
    var typ := ctx.GetType(Data);
    for var fld in typ.GetFields do
    begin
      if fld.Name = F then
      begin
        fld.SetValue( TObjectList<C>.Create(True) );
      end;
       TObjectList<C>.Create(True); <<<<<
      end;
    end;
    typ.Free;
    ctx.Free;
    Result := True;
  end;
  
begin
  Convert(TqBitLogsType, 'Flogs');
  Convert(TqBitPreferenceType, 'Flist');
end;

For Reference : https://sourceforge.net/p/qbitvcl/code/HEAD/tree/trunk/

Unit : uqBitAPITypes.pas procedure TqBitObjectListInterceptor.StringReverter(Data: TObject; Field, Arg: string);