Array : Record

[WM_CLOSE]

Delphi-Quellcode:

var
  i:Integer
 a:array of array of TRecord;
begin
  SetLength(a, 10);
  for i:=Low(a) to High(a) do
  begin
    SetLength(a[i], 42);
  end;
end;