Dynam. Array vergrössern?

[Hallo_Thomas]

Hallo,

ich Versuch mich gerad ein bisschen damit Dynam. Arrays zu vergrössern, aber Irgendwie wills nich.
Die ersten fünf Werte macht die Procedur noch mit, dann wills nich mehr:
"Exception der Klasse EAcessViolation mit der Meldung'Zugriffsverletzung......'"



Wird wohl irgendwie hierdran liegen:

Delphi-Quellcode:

public
  MyListe                 :Array of Byte;

procedure TForm1.AllSpeedButtons(Sender: TObject);
var
  itag        : Integer;
begin
  itag := (Sender as TSpeedbutton).Tag;
  ArrayInsert(itag);
  Label8.Caption:=IntToStr(MyListe[0]);
end;


procedure TForm1.ArrayInsert(Item:Integer);
var i:Integer;
begin
  //setlength(MyListe, 0);
  //Initialize(MyListe);
  setlength(MyListe, length(MyListe) + 1);
  for i:=0 to length(MyListe)do MyListe[i +1] := MyListe[i];
  MyListe[0]:=Item;
  //Finalize(Myliste
end;