delphi 数组如何动态增加

//下面是一记录，三维坐标
type
  Tposition  = record
    x:integer;
    y:integer;
    z:integer;
  end;

//======下面是要在一个循环中动态地增加三维坐标数据的长度
//请问如何写会高效。
produce getposition(Sender: TObject)
var

position:array of record;

begin
。。。
  for i =A to B do
    if k then
      position增加一个C（xc,yc,zc)的数;  //这里如何写？
。。。
end;

请大侠指点。谢谢！！

---

SetLength

---

starluck：

  具体如何写？
  每次都用setlength?

---

SetLength(Length(position)+1)

---

position:array of record; //貌似应当是position:array of Tposition;
____________
SetLength(position, Length(position) + 1);
with position[Length(position) - 1] do
begin
  x := xc;
  y := yc;
  z := zc;
end;