mi ako ne ti se zanimawa s variant parts in record:

type

  TShapeList = (Rectangle, Triangle, Circle, Ellipse, Other);

  TFigure = record

    case TShapeList of

      Rectangle: (Height, Width: Real);



      Triangle: (Side1, Side2, Angle: Real);

      Circle: (Radius: Real);

      Ellipse, Other: ();

  end;

type 

  t1=record

       t1f1:type1;

       t1f2:type2;

  end;

  p1=^t1;

  t2=record 

      t2f1:type3;

      t2f2:type4;

  end;

  p2=^t1;

var

  v1:T1;

  ptr2:P2;

....

   ptr2=@v1;

   v1.t1f1:=....

   ptr2^.t2f1:=....