Eine Liste von Objekten speichern

[Luckie]

Ich versuche gerade verzweifelt eine Liste von Objekten zu speichern:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    btnKundeNeu: TButton;
    procedure btnKundeNeuClick(Sender: TObject);
  private
    { Private declarations }
    FKundenListe: array of TBankKunde;
    procedure UpdateListbox;
  public
    { Public declarations }
  end;

var
  Form1             : TForm1;

const
  FRMCAPTION        = 'Meine kleine Bank - %s';

implementation

{$R *.dfm}

procedure TForm1.UpdateListbox;
var
  i                 : Integer;
  KundenName        : string;
  BankKunde         : TBankKunde;
begin
  Listbox1.Clear;
  for i := 0 to length(FKundenListe) - 1 do
  begin
    BankKunde := TBankKunde.Create;
    try
      BankKunde := FKundenListe[i];
      KundenName := BankKunde.Name;
    finally
      BankKunde.Free;
    end;
    ListBox1.Items.Add(KundenName);
  end;
end;

procedure TForm1.btnKundeNeuClick(Sender: TObject);
var
  BankKunde         : TBankKunde;
  KundenName        : string;
  len: Integer;
begin
  KundenName := InputBox('Neuer Kunden', 'Name des Kunden:', '');
  BankKunde := TBankKunde.Create;
  try
    try
      BankKunde.Name := KundenName;

      len := length(FKundenListe);
      SetLength(FKundenListe, len + 1);
      FKundenListe[len] := BankKunde;
    except
      on E: Exception do
        MessageBox(Handle, PChar(E.Message), PChar('Neuen Kunde anlegen'), MB_ICONSTOP);
    end;
  finally
    BankKunde.Free;
  end;
  UpdateListbox;
end;

Aber die Listbox bleibt leer. Nehme ich das BankKunde.Free in Zeile 64 weg, geht es genau einmal. Will ich ein zweites Objekt hinzufügen bekomme ich eine AccessViolation.

Ich habe auch schon versucht mit einer TList zu arbeiten, aber das hat auch nicht geklappt. Es muss doch eine Möglichkeit geben ein Objekt zu speichern und nicht nur einen Zeiger auf das Objekt, der wieder ungültig wird, wenn das Objekt freigegeben wird. Oder muss ich mir extra eine Klasse TKundenListe schreiben, die dann die Objekte vom Typ TBankKunde aufnimmt?