implementation

uses
  rtti, typinfo;
{$R *.dfm}

type

  TTest1 = class
    MemberOfTTest1: Integer;
  end;

  TTest2 = class(TPersistent)
    MemberOfTest2: TObject;
  end;

  {$M+}
  TTest3 = class
    MemberOfTest3: TObject;
  end;
  {$M-}

  TMemberVisibilityHelper = record helper for TMemberVisibility
  public
    function ToString: string;
  end;

function TMemberVisibilityHelper.ToString: string;
const
  VisibilityStrings: array [TMemberVisibility] of string = ('Private', 'Protected', 'Public', 'Published');
begin
  Result := VisibilityStrings[Self];
end;

procedure TForm1.ShowMemberOf(const obj: TClass);
var
  rttiContext: TRttiContext;
  rttiType: TRttiType;
  rttiField: TRttiField;
begin
  rttiContext := TRttiContext.Create;
  rttiType := rttiContext.GetType(obj);
  for rttiField in rttiType.GetFields do
  begin
    mmo1.Lines.Add(Format('FieldName: %s, Visibility: %s', [rttiField.Name, rttiField.Visibility.ToString]));
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMemberOf(TTest1);
  ShowMemberOf(TTest2);
  ShowMemberOf(TTest3);
end;