Probleme beim Speichern einer Datei

[Sorry bin Anfänger]

Hallo und einen schönen Abend an Alle,

nunja wie mein Name ja schon sagt bin ich absoluter und stümperhafter Anfänger in Delphi. Ich hoffe ihr könnt darüber hinwegsehen, dass ich keinen Plan habe.
Ich hoffe ihr nehmt euch für meine Anfänger-Fragen Zeit und ich nerve euch nicht so sehr, dass ihr mir nicht antwortet. Soviel zur Einleitung.

Mein Problem

Ich möchte ein einfaches Programm zum Üben des Laden und Speicherns von Dateien schreiben. Dazu habe ich mir ein Adressbuch ausgesucht (einfach und üblich)

Da ich ja nicht weiß was ich falsch mache hier der Quellcode:

Delphi-Quellcode:

unit Unit_Sp_1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Datei_speichern_Dialog: TSaveDialog;
    Datei_laden_Dialog: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const max = 1000;

type

  TAdresse = record

            Vorname : String[30];
            Nachname : String[30];
            Wohnort : String[50];
            PLZ : String[50];
            Strasse : String[50];
            Telefonnummer : String[50];
            Handynummer : String[50];
            Faxnummer : String[50];
            Firma : String[50];
  end;

  TAdressenkartei = Array[1..max] of TAdresse;


var
  Form1: TForm1;
  Datei : file of TAdresse;
  Allah : TAdressenkartei;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
      If Datei_speichern_Dialog.Execute then begin
         assignfile(Datei, Datei_speichern_Dialog.FileName);
         rewrite(Datei);

         for i := 1 to max do begin
         write(datei, TAdressenkartei[i]);  
         end
             closefile(Datei);
      end;
end;

end.

Hier der angezeigte Fehler: '(' erwartet aber '[' gefunden (die betreffende Stelle habe ich im Quellcode rot markiert)

Eigentlich steht hinter TAdressenkartei in eckigen Klammern der Index i.
Ich hoffe ihr seid mir wegen meiner wahrscheinlich etwas blöden Frage nicht zu böse...
Ich danke euch für die ins Lesen und Antworten investierte Zeit.

Habe das ganze jetzt mal um die von Klaus gewünschte Variable ergänzt...und jetzt???

LG Euer Anfänger