type
  TStroka= class
    Column1: String;
    Column2: String;
    Column3: String;
  end;
var
  Dictionary: TDictionary <Integer, TStroka>;
  Stroka: TStroka;

procedure XXX(Sender: TObject);
var
  LType: TRttiType;
  LContext: TRttiContext;
  LMethod : TRttiMethod;
  LProperty : TRttiProperty;

  Col1, Col2, Col3: string;
  Node: TTreeNode;
  RootLevelCount: Integer;
  X, X1, Y: Integer;
  CurrentTextField: String;
  MyTreeNodeText: array [0..10] of String;
  MyTreeNode: array [0..10] of TTreeNode;

begin

    Dictionary := TDictionary<Integer, TStroka>.Create;
    Y := 0;
    for i := 0 to MyStringList.Count - 1 do begin
          //objects
          LType := LContext.GetType(MyStringList.Objects[i].ClassType);
          Col1 := LType.ToString;

          //methods
          for LMethod in LType.GetMethods do
          begin
            if TRttiInstanceType(LMethod.Parent).MetaclassType.ClassName = MyStringList[i] then begin
              Col2 := 'Method';
              Col3 := LMethod.ToString;

              Stroka := TStroka.Create;
              Stroka.Column1 := Col1;
              Stroka.Column2 := Col2;
              Stroka.Column3 := Col3;
              try
                Dictionary.Add(Y, Stroka);
                Y := Y + 1;
              except
                on Exception do
                //
              end;
            end;
          end;

          //properties
          for LProperty in LContext.GetType(MyStringList.Objects[i].ClassType).GetProperties do
          begin
            Col2 := 'Property';
            Col3 := LProperty.ToString;

            Stroka := TStroka.Create;
            Stroka.Column1 := Col1;
            Stroka.Column2 := Col2;
            Stroka.Column3 := Col3;
            try
              Dictionary.Add(Y, Stroka);
              Y := Y + 1;
            except
              on Exception do
              //
            end;
          end;
    end;
end;

  for Key := 0 to Dictionary.Count - 1 do
  begin
      //Memo1.Lines.Add( Dictionary.Items[Key].Column1 + ', ' + Dictionary.Items[Key].Column2 + ', ' + Dictionary.Items[Key].Column3);

       RootLevelCount := 3;
       for X := 0 to RootLevelCount-1 do
        begin
          case x of
            0: CurrentTextField := Dictionary.Items[Key].Column1;
            1: CurrentTextField := Dictionary.Items[Key].Column2;
            2: CurrentTextField := Dictionary.Items[Key].Column3;
          end;
          if CurrentTextField = '' then CurrentTextField := 'Level ' + IntToStr(x);
          if MyTreeNodeText[x] <> CurrentTextField then
            begin
              MyTreeNodeText[X]:=CurrentTextField;
              for X1 := x+1 to RootLevelCount-1 do
                MyTreeNodeText[x1]:='';
              if x=0 then
                begin
                 Node:= treeview1.Items.Add(nil, CurrentTextField);
                 MyTreeNode[x] := node;
                end else
                begin
                 node:=treeview1.Items.AddChild(MyTreeNode[x-1], CurrentTextField);
                 MyTreeNode[x] := node;
                end;
            end;
        end;
        MyTreeNodeText[RootLevelCount]:='';
  end;

  Dictionary.Free;
  Stroka.Free;