type
_A = record
     name: string;
     matrix: array[1..2] of array[1..2] of string[5];
     zopa: longint;
     lol: comp
    end
var
a:array[0..2] of _a

t1.t2

t1.t2.t3

x:=System.Abs(x); {Те же t1.t2, только буквы другие...}
------------------------------
Type
 r=Record
   t1:Integer;
 End;
Var
 t1:r;
Begin
 t1.t1:=1
End.
-------------------------------
Type
 r=Object
   t2:Integer;
 End;
Var
 t1:r;

Begin
 t1.t2:=1
End.
-------------------------
Type
 r=Object
   Procedure t2;
 End;
Var
 t1:r;

Begin
 t1.t2
End.
----------------------------
Type
 r=Class {Варианты с полем и методом демонстрировать не буду - аналогичны предыдущим}
   property t2:Intger ...;
 End;

var
 t1:r;
Begin
 t1:=r.Create;
 t1.t2:=1
End.
---------------------------------------------
{Либо так}
Type
 t1=Class
   class procedure t2;
 End;

Begin
 t1.t2
End.

Unit t1;

Interface

type
 r = class
   procedure t3;{Аналогично для полей записей и методов объектов}
 End;

Var
 t2:t1;
....

Uses t1;
Begin
 t1.t2.t3
End;
-------------------------------------------------------
Unit t1;

Interface

type
 t2 = class
   class procedure t3;
 End;
.....

Uses t1;

Begin
 t1.t2.t3
End.
-----------------------------
{Теперь без модулей}
Type
 r=Record
   t3:Byte;{Аналогично, если r - класс/объект с public полем t3}
 End;
 rr=Record
   t2:r{См. выше - rr - что угодно, лишь бы t2 public}
 End;

Var
 t1:r;

Begin
 t1.t2.t3:=1
End.
------------------------------------------
А вот самый интригующий вариант:
Type
 r=class
   t3:Function:Integer;
 End;
 rr=class
   Function t2:r;
 End;

Var
 t1:rr;
 x:Integer;

Begin
 t1:=t1.Create;
 x:=t1.t2.t3
End.