Datenbank ohne BDE für delphi 5.0

[dazon]

ich versuche seid gut 3 Tagen eine Datenbank per record zu erstellen, leider ohne grossen erfolg. Zwar habe ich in diesem forum schon eine tolle source gefunden, leider ist die aber für delphi 7.0, was ich leider nicht besitze. Meine delphi kenntnisse sind sehr gering, darum ist es mir peinlich meine bisherige source in dieses forum zu posten, ich tue es aber trotzdem, vielleicht hilft mir ja jemand.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ename: TEdit;
    evorname: TEdit;
    estrasse: TEdit;
    enr: TEdit;
    etelefonnummer: TEdit;
    ewohnort: TEdit;
    eplz: TEdit;
    ehandy: TEdit;
    eemail: TEdit;
    eschule: TEdit;
    egeburtsdatum: TEdit;
    ehomepage: TEdit;
    estand: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
 ...

 ...
Type
  tperson       = record
  name          : String [30];
  vorname       : string [30];
  strasse       : String [30];
   {usw}
  end;

 var
  Form1: TForm1;
  person : tperson;
  adresse: array[1..100] of tperson;
  Datei : file of tperson;
  
procedure TForm1.Button1Click(Sender: TObject);   // übertragung von edit in array
var i : Integer;
begin
 assignfile(datei, 'Datenbank.dat');
 rewrite(datei);
 for i := 1 to 100 do begin
  adresse[i].name := ename.text;
  adresse[i].vorname := evorname.text;
  adresse[i].strasse := estrasse.text;
  {usw}
  Write(datei, adresse[i]);               // speichern der array daten in datei
                       end;
end;

das ist er einmal die wichtige prozedur, mit der ich Probleme habe. Es soll den array in eine externe datei speichern, was er aber glaube ich nicht richtig tut, denn wenn ich es wieder lade, sind alle textfelder leer. Vielleicht speichert er auch nur den letzten array.... ich weiss es nicht so recht.
Bitte versucht mit zu helfen, egal wie......

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]