type

rec_test = record
   name:string;
end;

var list:array of rec_test;

procedure test()
begin
   // Größe des Arrays setzen
   setLength(list,5);
   
   // Array mit Werten füllen
   list[0].name:='Asterix';
   list[1].name:='Obelix';
   list[2].name:='Idefix';
   list[3].name:='Automatix';
   list[4].name:='Miraculix';

   // jetzt testweise die Liste kürzen
   setLength(list,4);
end;