내부 중첩 클래스의 외부 클래스에 액세스

이것은 오브젝트 파스칼입니다. 외부 인스턴스 포인터를 엉망으로 만들고 내부로 전달하지 않고 어떻게 든 가능할지 궁금합니다.
내가하고 싶은 것은 내부 메서드를 사용하여 외부 (ClassOne) 클래스에 대한 전체 액세스 권한을 얻는 것입니다. 나는 시도 해왔다 :

{ this class should be able to access by all clases inside it }
ClassOne = class
    type
        { can be accessed by ClassThree, can access: ClassOne }
        ClassTwo = class
            type
                { can be accessed by / can access: ClassOne and ClassTwo }
                ClassThree = class 
                    public
                        procedure MethodOne();
                end;

            private
                FieldOne: Array[1 .. 10] of ClassThree;
                FieldTwo: integer;

            public
                procedure MethodOne();
        end;

    private
        FieldOne: Array[1 .. 5] of ClassTwo;
        FieldTwo: Byte;

    public
        procedure MethodOne(Something: Byte);
end;

이행:

procedure ClassOne.MethodOne(Something: Byte);
begin
    FieldTwo := Something;
end;    

procedure ClassOne.ClassTwo.MethodOne();
begin
    { does something but not important in this case }
end;

procedure ClassOne.ClassTwo.ClassThree.MethodOne();
begin
    { here i need the FieldTwo value of ClassOne of the current instance }
    ClassOne(self).FieldTwo; // Does not work
end;

접속하다:

var Test: ClassOne;

...

Test := ClassOne.Create();
Test.FieldOne[2] := ClassOne.ClassTwo.Create;
Test.FieldOne[2].FieldOne[5] := ClassOne.ClassTwo.ClassThree.Create;

Test.MethodOne(15);
Test.FieldOne[2].MethodOne();
Test.FieldOne[2].FieldOne[5].MethodOne();

반복 및 배열 크기는 임의의 예입니다.

나는 Java에서 그것과 비슷한 것이라고 생각 OuterClass.self.OuterClassField;하지만 이것은 여기서 작동하지 않습니다.
이것은 생성 직후 외부 인스턴스를 전달하여 수행 할 수 있지만 나중에 생성자와 인스턴스에 많은 문제가 발생합니다.
어떻게 그렇게 만들 수 있습니까?

업데이트
아마도 이것은 조상들과 함께해야 할 필요가 있습니까?
이것은 컴파일되지만 ClassTwo 또는 ClassThree의 생성자를 호출 한 직후 충돌합니다. 왜?

ClassOne = class
    type
        ClassTwo = class(ClassOne) { changed ancestor }
            type
                ClassThree = class(ClassTwo) { changed ancestor }
                    public
                        procedure MethodOne();
                end;

            private
                FieldOne: Array[1 .. 10] of ClassThree;
                FieldTwo: integer;

            public
                procedure MethodOne();
        end;

    private
        FieldOne: Array[1 .. 5] of ClassTwo;
        FieldTwo: Byte;

    public
        procedure MethodOne(Something: Byte);
end;