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

type
  T_GridVariables = record
    NewDay_Caption: string;
    NewDay_Date:String;
    NewDay_Grid_Name:Integer;
    GridCell_Uhrzeit: string;
    GridCell_Nummer: string;
    GridCell_Name: string;
    GridCell_X1: string;
    GridCell_Bemerkung: string;
    GridCell_X2: string;
    GridCell_Geburtsdatum: string;
    GridCell_User: string;
    GridCell_Lock: Boolean;
    GridCell_Einweiser: string;
    GridCell_FreiesFeld: array[11..22] of string;
    GridCell_Eintrag: string;
    GridCell_Telefon: string;
  end;                    

1:
2:

var
  GridVariables: array of T_GridVariables;                    

1:
2:

    inc(Array_Count, 1);
    Setlength(GridVariables, Array_Count);                    

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

// globalvar:
Array_Capacity, Array_Pos: Integer;

//... Initialisierung
Array_Capacity := 1000; // oder ein Schätzwert für die Anzahl der Datensätze
Array_Pos := 0; // Einfüge-Poistion im Array
Setlength(GridVariables, Array_Capacity);

If Array_Pos > Array_Capacity - 1 then
begin
   Array_Capacity  := Round(Array_Capacity * 1.25); // Array um 25% vergrößern
   Setlength(GridVariables, Array_Capacity)
end 

// Daten einfügen ohne weiteres setlength
GridVariables[Array_Pos] := ...;
inc(Array_Pos);