Dynamisches Array verursacht brutalen Fehler.

[VT-DA]

Hi,

damit ich die Dynamischen Arrays besser verstehe, habe ich mir ein beispielprogramm geschrieben mit dem ich lernen kann. Doch leider kommt immer ein kritischer Fehler wenn ich auf die Arrays zugreife.
Vllt könnte mir hier mal jemand kurz einen kleinen Schubser geben.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type bla = record
  a:Integer;
end;

var
  Form1: TForm1;
  MyArray: Array of bla;
  Temp1: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Temp1 := (high(MyArray) + 1);
  Setlength(MyArray, Temp1);
  MyArray[Temp1].a := Temp1;
    label1.Caption := IntToStr(Temp1);
end;

end.

Mfg