1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  private
  { Private-Deklarationen }
    order : TxmlOrder;
    oi    : Array[0..1] of OrderItemType;
    pn    : Array of ProductName;
.
.
.
.
procedure frm_Test.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
  order := TxmlOrder.Create;
  oi[0]    := OrderItemType.create;
  oi[1]    := OrderItemType.create;

  SetLength(pn, 100);
  pn[0].Language := '..';
end;					

1:
2:
3:
4:

...etLength(pn, 100);
  pn[0] := ProductName.Create( ...);
  pn[0].Language := '..';
end;					

1:
2:
3:
4:

  SetLength(pn, 100);

  pn[0] := ProductName.Create;
  pn[0].Language := '..';