Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
Haupt := THaupt.Create;
setlength(Haupt.Block, 0);
end;
// und setlength(Block, High(Block)+4);
// ersetzen durch:
setlength(Block, Length(Block)+4);
In Deinem Code ändert sich die Arraylänge folgendermassen:
1 // setlength(Haupt.Block, 0);
4 // setlength(Block, High(Block)+4); High(Block) ist 0 weil bereits ein Element enthalten ist
7 // setlength(Block, High(Block)+4); High(Block) ist 3
10 // High(Block) ist 6