Блиц-опрос! Опции

[UtaH]

Господа программеры и программерши! Объявляется блиц опрос на внимательность! Вопросов не знаю пока сколько, ну в общем время пошло. Итак, вопрос №1:
Почему TCP-пакеты доходят до цели?

Кто первый правильно ответит - тот будет COOL :D

[BlackShadow]

Если "запущено", то функция или процедура.
А вообще в первом случае идёт обращение к переменной/константе/функции/процедуре/типу какогото модуля (например System.Abs(x)) или же к элементу класса (возможно статическому)/записи/объекта.
Во втором случае тоже самое: обращение к элменту класса/переменной-записи/переменной-объекту из некоего модуля t1 либо обращение к структуре/классу/объекту в каком-либо структуре/классе/объекте.
Бредово звучит.
Я лучше на примерах.
1)

Код

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.

2) А я уже над первым запарился...

Код

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.

Где моя конфетка???