Speicherzugriffsfehler bei Array of TButton

[Teekeks]

Hi!
Ich will mir eine Classe erstellen in der ich u.a. ein Array of TButton habe.
Ich kriege nur einen Speicherzugriffs fehler wenn ich einen Button hinzufügen möchte:

Delphi-Quellcode:

  TButtons= class
  private
    FButtonList:TButtonList;
    FButtonIndex:Integer;
    FOwner:TObject;
  {...}
  public
    procedure AddButton;
    constructor create(Owner:TObject);
  {...}
  end;

implementation



{ TButtons }

procedure TButtons.AddButton;
begin
  inc(FButtonIndex);
  setlength(FButtonList,FButtonIndex);
  FButtonList[FButtonIndex].Button.Create(FOwner); //Hier kriege ich den Fehler
  FButtonList[FButtonIndex].Button.Parent:=FOwner;
end;

constructor TButtons.create(Owner:TObject);
begin
  FOwner:=Owner;
  FButtonIndex:=0;
end;

Weis jemand warum ich diesen Fehler kriege?
Achso: Aufrufen tu ich das so von ner anderen Form:

Delphi-Quellcode:

var Buttons:TButtons
{...}
  Buttons:=TButtons.create(Form1,form1,Form1);
  Buttons.AddButton;

gruß Teekeks