Record erweitern

[Bomberbb]

Ich will ein vorhandenes Record

Delphi-Quellcode:

rec=record
  p1:tpoint;
  p2:tpoint;
  p3:tpoint;
  p4:tpoint;
end;

so erweitern:

Delphi-Quellcode:

rec=record
  p1:tpoint;
  p2:tpoint;
  p3:tpoint;
  p4:tpoint;
  p:Array[1..4]of tpoint;
end;

ggf. auch mit pointern. So dass ich mit rec.p1 und rec.p[1] auf den gleichen Wert zugreife.