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

type TWert1 = record
                      Nr : Integer;
                      Name : String[30];
       end;

       Twert2 = record
                     Nr : Integer;
                     Wert1 : Array of Twert1;
       end;

var  
Wert : Array[0..10] of TWert2;

procedure irgendwas;
begin
       SetLength(Wert[0].Wert1[0], 200);					

1:

SetLength(Wert[0].Wert1, 200);