máme
deklarácie:
var
a,c:TKruh;
b:TStvorec;
potom
je povolené:
a:=TKruh.Create(...);
b:=TStvorec.Create(...);
c:=b; // c referencuje tú istú inštanciu ako b
c:=TStvorec.Create(...);
procedure
zmen(k:TKruh);
begin
k.ZmenFarbu(clBlue);
k.posun(1,1);
end;